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| Interrupt vector dispatch table 
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| One entry per interrupt vector location 


text 
-globl 


_dispate: 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsxr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
psr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 


lfavlt 
lfault 
lpuserr 
laddrerr 
lfault 
lfault 
lfault 
lfault 
lfault 
lfault 
lfauit 
lfault 
lfauit 
lfault 
lfault 
lfault 
ifault 
lfault 
lfault 
ifavnlt 
1lfault 
ifanlt 
lfault 
ifault 
lfault 
llintr 
kbintr 
pis 
pi4 
pi3 
scintr 
nmi 
lsyscall 
lfault 
ifault 
1lfault 
1lfault 
lfault 
lfaulit 
lfault 
lfauit 
lfault 
lfault 
lfault 
lfault 
lfault 
lfault 
lfault 
lfault 
1lfault 
lfault 
lfanlt 
lfault 
ifault 
lfault 
ifaulit 
lfault 
lfault 
lfault 
ifault 
lfault 
lfault 
ifault 
ifault 
ifault 
lfault 
lfault 
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OWI D UP WN EH 


_dispatc, _pmvect, _tevect 


Reset: Initial SSP 
Reset: Initial Pc 

Bus Error 

Address Error 

Illegal Instruction 
zero Divide 

CHK Instruction 

TRAPV Instruction 
Privilege Violation 
Trace 

Line 1016 Emulator 

Line 1111 Emulator 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
{Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
Spurious Interrupt 
Level 1 pp 0, sony, vert retrace (clock) 
Level 2 cops, mouse, rtclock, buttons 
Level 3 exp slot 3 {default 2-port card) 
Level 4 exp slot 2 (default 2-port card) 
Level 5 exp slot 1 (default 2-port card) 
Level 6 scc chip 

Level 7 Interrupt Autovector 
System Call 

TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
TRAP Instruction Vector 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
(Unassigned, reserved) 
{User Interrupt Vector) 
{User Interrupt Vector) 
(User Interrupt Vector) 


bsr 
bsr 
bsr 
bsr 
bsr 
dsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 
bsr 


lfault 
lfault 
lfault 
1lfault 
lfauit 
ifavit 
ifault 
lfanit 
lfault 
lfault 
1fanlt 
lfault 
lfault 
lfault 
lfault 
lfault 
lfault 
ifault 
lfault 
lfault 
lfault 
lfault 
ifault 
lfault 
lfauit 
lfault 
1lfault 
lfauit 


| 
| 
| 
| 
| 
| 
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| 


67 (User 
68 (User 
69 (User 


70 (User 
71 (User 
72 (User 
73 (User 
74 (User 


75 (User 


76 (User 
77 (User 
78 (User 
79 {User 
80 {User 
81 (User 
82 {User 
83 (User 
84 {User 
85 {User 
86 (User 


87 (User 


88 (User 
$9 (User 
30 (User 
91 {User 


92 (User 
93 {User 
94 {User 


| Values for expansion card interrupt vectors 


_pmvect: 
bsr 
bsr 
bsr 


pmint3 
pmint2 
pmintl 


| 
| 
l 


27 Level 
28 Level 
23 Level 


| Values for expansion card interrupt vectors 


_tevect: 
bsr 
bsr 
bsr 


teint3 
teint2 
teintl 


27 Level 
28 Level 
29 Level 


Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 
Interrupt Vector) 


when Priam card present. 
3 exp slot 3, Priam card 
4 exp slot 2, Priam card 
5 exp slot 1, Priam card 
when Techmar card present. 
3 exp slot 3, Tecmar card 


4 exp slot 2, Tecmar card 
5 exp slot 1, Tecmar card 


| Put actual "C" routine name onto the stack and call the system 
| interrupt dispatcher 


-globl call, fault, buserr, addrerr, syscall, _idleflg 


lfault: jmp 
lbuserr: jmp 
laddrerr: jmp 
lsyscall:jmp 


fault 
buserr 
addrerr 
syscall 


| tty interrupt priority entry point 


-globl 
_spltty:movw 

mOovW 

rts 


.globl 

lilintr: movw 
movl 
movw 


jmp 
»globl 
kbintr: movl 
clrw 
jmp 
.globl 
pi3: movl 
movw 
jmp 
pi4: movl 


movw 
amp 


_spltty 
sr,d0 
#0x2600,sr 


_ilintr 
#0x2600,sr 
#_llintr,sp@ 
_idleflg, sp@- 
call 


_kbintr 
#_kbintr, spe 
spe- 

call 


_ppintr 
#_ppintr, spe 
#1,spe@- 

call 


# ppintr,spé 
#4, spe- 
call 


fetch current CPU priority 
set priority 6 


go to splé 


push call address 


clock needs 


old value so cheat 


jump to common interrupt handler 


push call address 
device number 
jump to common interrupt handler 


push call address 
device number 
jump to common interrupt handler 


push call address 
device number 
jump to common interrupt handler 


ivec.s 


movl 
movw 


jmp 


pis: 


-globl 
movl 
movw 


jmp 


pmint3: 


movl 
movw 


jmp 


pmint2: 


movi 
clrw 
jmp 


pmintl: 


»globl 
movl 
movw 


jmp 


scintr: 


-globl 
movi 
movw 


jmp 
-globl 


movi 
movw 


jnp 


teint3: 


movl 
movw 


jmp 


teint2: 


teintl: movl 


clrw 
jmp 
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#_ppintr, spe 
#7, spe—- 
call 


intr 
#_pmintr, spé@ 
#2, spa- 
call 


#_pmintr, sp@ 
#1, sp@- 
call 


# pmintr,spé@ 
sp@- 
call 


_scintr 
#_scintr, spe 
#1,spR- 

call 


_nmikey 

# nmikey, sp@ 
#0, sp@- 

call 


_teintr 

# teintr, spé@ 
#2, spe- 

call 


# teintr, spe 
#1, spe- 
call 


#_teintr, spe 
spe- 
call 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


push call address 
device number 
jump to common interrupt 


handler 


handler 


handler 


handler 


handler 


handler 


handler 


handler 


handler 


mch.s 


| USIZE dependencies 
USIZE = 0x800 
PGSIZE = 512 
PAGESHIFT= 9 


{ Configuration depende 
HIGH = 0x2700 

LOW = 0x2000 

USTART = 6x0 

PAGEBASE= 0xA00000 

UDOT = OxFA0000 
UBASE = PAGEBASE+UDOT 


SETUP_0 = OxFCEG12 
SETUP_1 = OxFCE010 
SEG1_0 = OxFCE008 
SEG1_1 = OxFCEOQOA 
SEG2_0 = OxFCEOOC 
SEG2_1 = 0xFCEOOE 


-globl 
-data 
_u = UDOT 
cputype: .word Q 


_u, _se 


«text 
-globl start, 


start: movw 


| Size 


‘ 
moles 
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of U area 
| Size of a page 
| Page shift 


High priority supervisor mode (spl 7) 
Low priority, supervisor mode (spl 6) 


Base page address 
Logical start of U dot 


| 
| 
{| Start of user program 
| 
| 
| 


U dot page map address 


| Turn 
{| Turn 
| Turn 
{| Turn 
{ Turn 
{ Turn 


gofft 


setup bit off 
setup bit on 
SEG1 bit off 
SEG1 bit on 
SEG2 bit off 
SEG2 bit on 


| Local copy of _cputype, 0 if 68060 


_end, edata, main, cputype, _dispatc 


#HIGH, sr 
movl # end+PGSIZR+USIZE-1, d7 


andl #-PGSIZE,d7 

movl #_edata,ab 
clrbss: movl #0,a0@+ 

cmpl a7,a0 

jes clrbss 


| Determine cpu type 


movl #1$,16 


word Ox4E7A 
»word Ox0801 
movi #68010, 


_cputype 


move #1,cputype 


1S: subl 
moveq 
isrl d1,a? 


#USI2E, 


a? 


#PAGESHIFT, dl 


movb #0,SEG1 0 


movb #0, SEG2 


oO 


movb #0,SETUP_1 


movw 0+0x800 


8,dl 


movb #0,SETUP_0 


andl #0xFFF, 


dl 


movw dl, _segoff 


addl1 dl,a7 


movb #0, SETUP_1 
movw a7, UDOT+0x8008 


movw #0x7FC, 


UDOT+0x8000 


movb #0,SETUP_0 


subl dl,da7 


movl #UDOT+USIZE, sp 


jsr _bminit 


movl d7, sp@- 


jsr _Main 

elrl spe@- 

movl #USTART, sp@- 
clrw spe- 

rte 


i; Save and restore of r 


-globl — save, 
_Save: movl sp@+,al 
movi sp@,ad 


egister sets 


_resume, qsave 


spl? 

End of unix 

Round to nearest click 
Start clearing here 
Clear bss 


Tllegal instruction vector 
movec 
vbr, ad 
No trap. Must be 680616 
Local copy 


Start of U dot 

Calculate U dot page entry 
Calculate U dot page entry 
Set Contex 6 

Set Contex 0 

Enable MMU modification 
Read segment origin 
Disable MMU modification 
Take just what is valid 
Save segment offset 

Add segment offset 

Enable MMU modification 
Segment origin 

Segment access and length (4 clicks) 
Disable MMU modification 
Subtract off segment offset 
Set stack at top of U area 


initialize raster display 


Click address of udot to main 
Long jump to unix, init returns here 


Indicate shart 4 byte stack format 
Starting program address 

New sr value 

Call init 


| return address 
| ptr te iabel_ t 


moveml 
movl 
moveg 
jmp 


_qsave: movl 
movl 
addw 
movl 
movl 
movl 
moved 
jmp 


_Tresume:movl 
movil 
movw 
movb 

| movb 
addw 
movb 
movw 
movw 
movb 
movb 

| movb 
movenl 
movw 
movl 
moveq 
jmp 


| spl commands 
«globl 


_splhi: 
_Spl7: movw 
movw 
rts 
_spl6é: movw 
movw 
rts 
_spl5: movw 
movw 
rts 
_spl4: movw 
movw 
rts 
_spl3: movw 
movw 
rts 
_spl2: movw 
movw 
rts 
_spll: movw 
movw 
rts 
_spl0: movw 
move 
rts 


_splx: movw 
rts 


-data 
.globl 
_idleflg: .word 


text 

-globl 
_idle: movw 

movw 

movw 
idlel: tstw 
_waitloc: 

pne 


#0xFCFC,a0@ 
al,a0@ (48) | 
#0,d0 

alg i 


sp@t+,al | 
sp@,ad | 
#46,a0 

a6,adet+ | 
a7,ab@t+ | 
al,a0@+ | 
#0,d0 

al@ | 


sp@ (4),d6 

sp@ (8),a6 
#HIGH, sr 
#0,SEG1_0 
#0,SEG2_0 
_segoff, dd 
#0,SETUP_1 

dO, UDOT+Gx8008 
#0x7FC, UDOT+0x8000 
#0,SETUP_O 
#0,SEG1_1 
#0,SEG2_0 
a0@+, #0xFCFC 
#LOW, sr 

ad@,al 

#1,da0 

alg 


save d2-d7?, a2-a7 
Save return address 


return 


return address 
ptr to label t 


save a6 
save a7 


save return address 


return 


click address of new udot 
ptr to label t 

spl 7 

Set Contex 6 

Set Contex 0 

Add segment offset 

Enable MMU modification 
Segment origin 

Segment access and length (2k) 
Disable MMU modification 
Set Contex 1 

Set Contex 1 

restore the registers 
restore spl 6 

fetch the original pe 
return 1 

return 


_splhi, spl7,_spl6, spl5, spl4, spl3, spl2, spll, spl0, splx 


sr,ao l 
#0x2700,sr | 


sr, dad | 
#0x2600, sr | 


sr, dG | 
#0x2500,sr | 


sr,dd I 
#0x2400,sr | 


sr,d0 | 
#0x2300,sr | 


sr, do | 
#0x2200,sr | 


sr, do | 
#0x2100,sr 1 


sr,d0 | 
#0x2000,sr | 


sp@(6),sr | 


_idleflg 
0 


_idle, idlei, _wai 
sr,d0 | 
#1, idleflg | 
#0x2000,sr | 
_idleflg | 

| 


idlel 


fetch current CPU priority 
set priority 7 


fetch current CPU priority 
set priority 6 


fetch current CPU priority 
set priority 5 


fetch current CPU priority 
set priority 4 


fetch current CPU priority 
set priority 3 


fetch current CPU priority 
set priority 2 


fetch current CPU priority 
set priority 1 


fetch current CPU priority 
set priority 0 


set priority 


tloc 


Fetch current CPU priority 

Set idle flag 

Set priority zero 

Wait for interrupz 

Pseudo location addr used by kernel profiling 


mch.s 


movw 
rts 


«globl 
-globl 


fault: clrw 
clrw 
moveml 
movl 
movl 
movl 
subl 
asrl 

resched:movl 
jsr 
addql 
jsr 
btst 
jne 
tstb 
jeq 
movil 
jra 


28: movl 
movl 
movb 
movb 
moveml 
addw 
rte 


-globl 
syscall:iclrw 
moveml 
movi 
movil 
btst 
jne 
isr 
4sr 
tstb 
jeq 
movl 
jra 


258; movl 
movl 
moveml 
addw 
rte 


38: movemL 
addql 
movil 
jra 
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d0,sr | 


Restore priority 


buserr, addrerr, fault, call, _busaddr 


_runrun, trap 


spe- I 
_idleflg 
#OxFFFF, sp@- | 
usp, aQ 

a0, sp@ (60) 

sp@ (66), a0 
#_dispatct4,d0 
#2,da0 

do, sp@- 

_trap 

#4,sp 

checknet 

#5, sp@ (76) 

25 

_runrun 

25 

#256,d0 
resched 


sp@(60),a0 
ao,usp 
#0,SEG1_ 1 
#0,SEG2_ 0 
sp@+, #0x7FFF 
#10,sp 


syscall, syscall 
spt- 
#OxFFFF, sp@- I 
usp, ad 
a0, sp@ (60) | 
#5, sp@ (76) l 
3$ | 
_syscall ! 
checknet | 
I 
I 
t 
| 


_runrun 
2§ 
#256, d0 
resched 


sp@ (60),a0 

a0,usp | 
spe+, #0x7FFF I 
#10,sp | 


sp@+, #0x7FFF | 
#6,sp { 
#_dispatc+132, spe 
fault 


this makes ps long aligned 
clear idle flag 
save all registers 


save usr stack ptr 

return ptr from the jsr 
subtract dispatch table offset 
calculate vector number 
argument to trap 

C handler for traps and faults 


check for net int requests 
did we come from user mode? 
no, just continue 

should we reschedule? 

no, just return normally 

256 is reschedule trap number 
go back into trap 


restore usr stack ptr 

Set Contex 1 

Set Contex 1 

restore all other registers 

Sp, pop fault pc, and alignment word 


this makes ps long aligned 
save all registers 


save usr stack ptr 

did we come from user mode? 
no, error !!! 

Process system call 

check for net int requests 
should we reschedule? 

no, just return normally 

256 is reschedule trap number 
go back into trap 


restore user stack pointer 
restore all other registers 
sp, pop fault pe, and alignment word 


restore registers 
sp, pop fault pc, and alignment word 
| simulate a bsr 


| Bus error entry, this has its stack somewhat different. We will 
| call a C routine to save the info then fix the stack to look like a trap. 
| These entries will be called directly from interrupt vector. 


buserr: tstw 
bne 
moveml 
jsr 
moveml 
addql 

38: movl 
bra 


addrerr:tstw 
bne 
moveml 
jsr 
moveml 


cputype | 
38 I 
#0xC0C0, spe~- | 
_busaddr | 
sp@+, #0x303 | 
#8, sp 
# dispatct12, sp@|! 
fault 


cputype | 
4s | 
#0xC0CO, spé—- | 
_busaddr | 
spe+, #0x303 i 


test cpu type 

branch if 68010 

save registers that C clobbers 

save the info for a bus or address error 
restore registers 

pop bsr address, fcode, aaddr and ireg 
simulate a bsr 


test cpu type 

branch if 68010 

save registers that C clobbers 

save the info for a bus or address error 
restore registers 


addql 
4s: movil 
bra 


#8,sp | 
# dispatctl6, spe | 
fault 


{| common interrupt dispatch 


call: moveml 
clrw 
moyvl 
movl 
movl 
movl 
jsr 
addql 
jsr 
btst 
jne 
tstb 
jeq 
movil 
jra 


28: movl 
movl 
movb 

| movb 
moveml 
addw 
rte 


| General 
-globl 
_tstb: tstb 


_getusp:movl 
movl 
rts 


_getsr: moveg 
movw 
rts 


| Net int 
-globl 


checknet: 

tstl 
beq 

movw 
tstb 
bne 

movb 
movil 
movl 
|movw 
movw 
jsr 

movl 
clirb 


rts 


-data 
innet: .byte 


text 
| -globl 


#0xFFFF, sp@- | 
_idleflg | 
usp, a0 

a0, sp# (60) | 
sp@ (66) ,a0 | 
Sp, spe- | 
ace | 
#4,sp 

checknet | 
#5, sp@ (70) | 
2s | 
_runrun | 
2$ I 
#256, da0 | 
resched | 


sp@ (60),a0 
a0,usp 
#0,SEG1 1 
#0,SEG2_0 
spét, #0x7FFF 
#10,sp 


purpose code 


pop bsr address, fcode, aaddr and ireg 
simulate a bsr 


save all registers 
clear idle flag 


Save usr stack ptr 
fetch interrupt routine address 
push argument list pointer onto stack 


jump to actual interrupt handler 


check for net int requests 
did we come from user mode? 
no, just continue 

should we reschedule? 

no, just return normally 

256 is reschedule trap number 
go back into trap 


restore usr stack ptr 

Set Contex 1 

Set Contex 1 

restore all other registers 

sp, pop fault pc, and alignment word 
return from whence called 


_tstb, _getusp, _getsr 


sp@ (0) | 


usp,a0 | 
a0,dad 


#0,da0 | 
sr,ad 


request handier 


stack probe instruction prototype 


get the user stack pointer 


get the sr 


_netisr, netintr, _svstak 
|-globl _chkstak 


_netisr 

3$ 
#0x2700,sr 
innet 

3$ 
#1,innet 
sp,_svstak 
# netstak+2996,sp 
#0x2600,sr 
#0x2000,sr 
_netintr 
_svstak, sp 
innet 


0 


csl, _chkstak 


Net requesting soft interrupt? 
no: return 

set priority 7 

already in net code ? 

yes: return 

no: set flag -> in the net code 
Save stack, get net stack 


| set priority 6 
| set priority 0 
| do tasks 


| clear flag 


| first stage of checkstack routine. save regs, call real routine 


|csl: 


{ moveml 


|jsz 


j moveml 


#OxFFFF, sp@- {| Save all registers 


_chkstak | 


spét+, #0xFFFF 


really check the stack 
| restore all registers 


[rts 
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bmfont.h 


#define FONTHORZ 8 
#define FONTVERT 8 


char bmfont[] = { 


Oxo0, 
0x10, 
0x48, 
6x48, 
0x14, 
ox0o, 
0x60, 
0x8, 
0x08, 
0x40, 
0x10, 
6x00, 
6x00, 
0x00, 
oxoa, 
0x00, 
0x78, 
0x10, 
0x78, 
0x78, 
0x08, 
OxPFC, 
0x38, 
OxFC, 
0x78, 
0x78, 
0x00, 
0x00, 
ox08, 
ox00, 
0x40, 
6x78, 
0x38, 
0x30, 
OxF8, 
Ox78, 
OxFé, 
OxFC, 
OxFC, 
0x78, 
0x84, 
0x38, 
Oxlc, 
Ox84, 
0x80, 
0x84, 
Ox84, 
0x78, 
OxFs, 
0x78, 
OxF8, 
Ox78, 
Ox7C, 
0x84, 
0x84, 
0x84, 
Oxe4, 
Ox44, 
OxFC, 
0x78, 
0x00, 
0x78, 
0x10, 
0x00, 
Ox20, 
0x00, 
0x80, 
0x00, 
0x04, 
0x00, 
0x18, 
0x00, 


0x00, 
Oxo, 
0x48, 
0x48, 
Ox3C, 
Oxc4, 
0x90, 
0x14, 
0x16, 
0x20, 
0x54, 
0x10, 
0x06, 
0x00, 
0x00, 
0x04, 
Ox84, 
0x30, 
0x84, 
6x84, 
6x18, 
0x80, 
0x40, 
0x84, 
0x84, 
Ox84, 
0x00, 
Ox0d, 
0x10, 
oxed, 
0x20, 
0x84, 
ox44, 
0x48, 
0x44, 
0x84, 
0x44, 
0x86, 
6x80, 
Ox84, 
0x84, 
0x10, 
0x08, 
0x88, 
Ox8G, 
OxcCc, 
Oxc4, 
6x84, 
0x84, 
0x84, 
0x84, 
Oxs84, 
0x10, 
0x84, 
0x84, 
0x84, 
Ox84, 
0x44, 
0x04, 
0x40, 
0x80, 
0x08, 
0x28, 
0x00, 
Oxo, 
ox00, 
0x80, 
0x00, 
0x04, 
0x00, 
0x24, 
0x00, 


0x00, 
0x10, 
0x48, 
OxFC, 
0x50, 
oxce, 
0x90, 
0x20, 
0x20, 
ox10, 
0x38, 
0x10, 
0x00, 
0x00, 
0x60, 
0x08, 
Oxé8c, 
0x50, 
0x04, 
0x04, 
0x28, 
OxFO, 
0x80, 
6x08, 
0x84, 
oxs4, 
0x30, 
0x30, 
6x20, 
OxF8, 
0x16, 
0x04, 
0x94, 
oxe4, 
Ox44, 
Oxs80, 
ox44, 
0x80, 
0x80, 
0x80, 
0x84, 
6x10, 
6x08, 
0x90, 
0x8Q, 
OxB4, 
OxA4, 
0x84, 
0x84, 
0x84, 
0x84, 
0x80, 
0x10, 
0x84, 
Ox84, 
0x84, 
0x48, 
0x44, 
0x08, 
0x40, 
0x40, 
0x08, 
0x44, 
0x00, 
Ox08, 
0x70, 
OxB8, 
0x78, 
0x74, 
0x78, 
0x20, 
0x74, 


0x00, 
0x10, 
6x60, 
0x48, 
0x38, 
0x10, 
0x60, 
0x40, 
0x20, 
0x10, 
Ox7C, 
Ox7C, 
0x00, 
OxFC, 
0x00, 
6x10, 
OxB4, 
6x10, 
6x18, 
0x38, 
0x48, 
0x08, 
OxFS, 
0x10, 
0x78, 
Ox7C, 
0x30, 
0x30, 
0x40, 
0x00, 
0x08, 
0x18, 
OxAC, 
OxFC, 
0x78, 
0x80, 
0x44, 
OxFo, 
OxFO, 
Ox9C, 
OxFC, 
0x10, 
0x08, 
0xE0, 
0x80, 
OxB4, 
0x94, 
0x84, 
OxF8, 
0x84, 
OxF8, 
0x78, 
0x10, 
0x84, 
0x48, 
OxB4, 
0x30, 
0x38, 
0x30, 
0x40, 
0x20, 
0x08, 
0x00, 
0x00, 
ox00, 
0x08, 
Oxc4, 
0x80, 
Ox8Cc, 
0x84, 
OxF8, 


Oxéc, 
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0x00, 
0x90, 
0x00, 
OxFC, 
0x14, 
0x20, 
0x94, 
0x60, 
0x20, 
0x10, 
0x38, 
0x10, 
6x00, 
0x60, 
0x30, 
0x20, 
Oxc4, 
0x10, 
0x60, 
0x04, 
OxFC, 
0x04, 
0x84, 
0x20, 
Ox84, 
0x04, 
0x00, 
0x00, 
0x20, 
OxF8, 
0x10, 
6x26, 
0x98, 
0x84, 
0x44, 
0x80, 
Ox44, 
0x80, 
0x80, 
0x84, 
0x84, 
0x10, 
0x08, 
0x90, 
0x80, 
0x84, 
Ox8C, 
0x84, 
6x80, 
0x94, 
0x90, 
Ox04, 
Qx16, 
0x84, 
0x48, 
OxB4, 
0x48, 
0x10, 
0x40, 
0x40, 
0x10, 
0x08, 
0x00, 
0x00, 
Oxt0, 
0x78, 
0x84, 
0x80, 
0x84, 
OxFC, 
0x20, 
0x8C, 


0x00, 
0x00, 
0x00, 
0x48, 
Ox78, 
Ox4c, 
Ox8s, 
0x00, 
6x10, 
0x20, 
0x54, 
0x10, 
0x30, 
0x00, 
0x30, 
6x40, 
0x84, 
0x16, 
0x80, 
0x84, 
0x08, 
0x88, 
0x84, 
0x20, 
0x84, 
0x08, 
6x30, 
0x30, 
0x10, 
6x60, 
6x26, 
0x06, 
0x40, 
0x84, 
6x44, 
0x84, 
Ox44, 
0x86, 
Ox8d, 
Ox84, 
Oxé4, 
0x10, 
Oxs8s, 
0x88, 
0x80, 
0x84, 
0x84, 
0x84, 
0x80, 
0x88, 
0x88, 
0x84, 
0x10, 
0x84, 
0x30, 
OxCc, 
Ox84, 
0x10, 
0x80, 
0x40, 
0x08, 
0x08, 
0x00, 
0x00, 
ox00, 
0x88, 
Oxc4, 
0x86, 
Ox8C, 
Qx80, 
0x20, 
0x74, 


0x00, 
0x10, 
0x00, 
0x48, 
0x10, 
Oxec, 
0x74, 
0x00, 
0x08, 
0x40, 
0x10, 
0x00, 
0x30, 
Ox00, 
0x00, 
0x80, 
0x78, 
Ox7C, 
OxFC, 
0x78, 
0x68, 
0x70, 
0x78, 
6x20, 
6x78, 
6x70, 
0x30, 
0x30, 
ox0s, 
0x00, 
0x40, 
0x20, 
Ox3c, 
0x84, 
OxF8, 
0x78, 
OxF8, 
OxFC, 
0x80, 
0x78, 
0x84, 
0x38, 
0x70, 
0x84, 
OxFC, 
0x84, 
0x84, 
0x78, 
ox80, 
0x74, 
0x84, 
0x78, 
0x10, 
0x78, 
0x30, 
Ox84, 
oxé4, 
ox10, 
OxFC, 
0x78, 
0x04, 
0x78, 
0x00, 
0x00, 
Ox00, 
0x74, 
OxB8, 
0x78, 
0x74, 
0x78, 
0x20, 
0x04, 


0x00, 
oxoo, 
Ox0o, 
0x00, 
0x06, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x60, 
0x00, 
0x00, 
0x60, 
0x60, 
0x66, 
0x00, 
0x00, 
0x00, 
0x06, 
6x06, 
0x00, 
0x00, 
0x00, 
6x00, 
0x66, 
0x00, 
0x06, 
oxto, 
0x00, 
0x00, 
6x00, 
0x00, 
0x60, 
0x00, 
0x60, 
6x00, 
0x00, 
0x00, 
0x00, 
6x60, 
0x00, 
0x00, 
Ox00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
Qx00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
6x00, 
0x00, 
6x00, 
0x00, 
OxFE, 
Ox00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x00, 
0x78, 
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Oxs8o, 
0x10, 
0x68, 
0x80, 
0x30, 
0x00, 
0x00, 
Ox00, 
0x00, 
0x00, 
0x00, 
6x00, 
6x20, 
6x06, 
Oox0a, 
0x06, 
0x06, 
0x00, 
0x00, 
0x38, 
6x10, 
OxEO, 
6x00, 
OxAA, 


, 


0x80, 
ox00, 
0x00, 
0x80, 
ox10, 
OxOO, 
0x00, 
0x00, 
0x00, 
0x00, 
Ox060, 
0x00, 
0x20, 
0x06, 
0x00, 
0x00, 
6x00, 
Ox00, 
0x00, 
6x40, 
0x10, 
0x10, 
0x62, 
0x54, 


OxB8, 
0x30, 
0x18, 
0x88, 
0x10, 
OxE&, 
OxF8, 
0x38, 
OxB8, 
0x74, 
OxBé, 
Ox7C, 
OxFs, 
0x84, 
0x84, 
0x44, 
0x84, 
ax84, 
OxFC, 
0x40, 
6x10, 
0x10, 
OxD6, 
OxAA, 


Oxc4, 
0x10, 
0x08, 
6x90, 
6x16, 
0x54, 
0x44, 
0x44, 
OxC4, 
Ox8C, 
0xc4, 
0x80, 
0x26, 
0x84, 
0x84, 
Ox44, 
0x48, 
0x84, 
0x08, 
0xc0, 
6x10, 
0x18, 
Oxsc, 
0x54, 


0x84, 
0x10, 
0x08, 
OxA0, 
0x10, 
0ox54, 
0x44, 
0x44, 
OxC4, 
Ox8sc, 
0x86, 
6x78, 
0x26, 
Qxs4, 
0x84, 
0x54, 
0x30, 
0x8C, 
0x36, 
0x40, 
0x16, 
0x10, 
0x50, 
OxAA, 


Oxe4, 
0x10, 
oxoe, 
OxDO, 
0x16, 
0x54, 
0x44, 
0x44, 
OxBa, 
0x74, 
ox8o, 
0x04, 
0x24, 
0x8Cc, 
0x48, 
6x54, 
0x48, 
Ox74, 
Ox40, 
6x40, 
6x19, 
0x10, 
Oxdd, 
0x54, 


0x84, 
0x38, 
Ox8e, 
0x88, 
0x38, 
0x54, 
Ox44, 
0x38, 
0x80, 
0x04, 
0x8o, 
OxFs, 
0x18, 
6x74, 
0x30, 
Ox6C, 
0x84, 
0x04, 
OxFC, 
0x38, 
0x10, 
OxEG, 
6x00, 
OXxAA, 


0x00, 
6x00, 
0x70, 
0x00, 
0x00, 
6x00, 
0x00, 
0x00, 
0x80, 
6x04, 
0x0d, 
0x00, 
6x00, 
6x00, 
0x06, 
ox0a, 
6x00, 
0x78, 
6x00, 
0x06, 
@x10, 
0x60, 
6x00, 
0x54, 


Te-oONKM ME GCE MP HHRQVOD RP wUE DS 


x} 
xf 
*f 
xf 
ef 
*f 
*/ 
*f 
x/ 
xf 
xf 
xf 
*f 
*f 
*/ 
af 
xf 
*/ 
*f 
*f 
af 
af 
xf 
a 
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* Copyright 1982 UniSoft Corporation 

* Use of this material is subject to your disclosure agreement with 
* AT&T, Western Electric and UniSoft Corporation. 
* 
* 


Definitions relating toe the COPS and Keyboard S¥6522 interface. 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


/* Breakdown of e_ifr (Interrupt Flag Register) of 6522 */ 

/* ca2 -- handshake with COPS, not intr source */ 

/* cal -~ intr latch for input from cops */ 

/* shft -- completed eight shifts */ 

/* cb2 -- output to speaker (if suitably programmed) */ 


FCA2 OxO1 
FCAL 6x02 
FSHFT 0x04 
FCB2 0x08 
FCB1 6x10 
FTIMER2 0x20 
FTIMER1 0x46 
FIRQ 0x80 


struct device_e { 


I: 


char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


e f0[1)]; 
e f1[1]; 
e f2[1]; 
e f3[1]; 
e f4[1]; 
e f5(1]; 
e f6[1]; 
e f7[1]: 
e f8[1]; 
e f9[1]1; 
e_fa[1]; 
e fb[1]; 
e_fc(1]; 
e fd[1]; 
e_fe(1]; 
e ff[(l]; 


/* cbl -- unused */ 
/* timeout of timer two -- unused */ 
/* timeout of timer one -- 10ms clock */ 


/* interrupt happened (cleared by clearing intr) */ 


char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


e irb; 

e ira; 

e_ddrb; 
e ddra; 
e ticl; 
e tich; 
e till; 
e tilh; 
e t2cl; 
e_t2ch; 
esr; 

e_acr; 
e per; 
e ifr; 
e_ier; 
e_aira; 


{* 
{*® 
/* 
/* 
f{*® 
ft 
f* 
{* 
{* 
f* 
{* 
f* 
{* 
/* 
f* 
fk 


/* Keyboard SY6522 VIA */ 


I/O register B */ 
I/O register A */ 
Data Dir reg B */ 
Data Dir reg A */ 


Tl 
Tl 
Tl 
TL 
T2 
T2 


low Latches Counter */ 
hi Latches Counter */ 
low Latches */ 
hi Latches */ 
low Latches Counter */ 
hi Latches Counter */ 


Shift Register */ 

Aux Ctrl Reg */ 

Perif ctrl Reg */ 

Int Flag Reg */ 

Int Ena Reg */ 

Alt e_ira (no handshake) */ 


#define COPSADDR ((struct device_e *)} (STDIO+0xDD86)) 


/* A port definitions */ 


/* Connects PR (reset pulse line) to the controller reset switch if low, 
* or the parity reset latch if high (when set as an output). 


xf 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


CR 
CRDY 
PR 
FDIR 
vC2 
vel 
veo 
KBIN 


0x80 
0x46 
0x20 
0x10 
0x08 
Ox04 
0x02 
0x01 


/* goes low when cops ready for command */ 
/* works with CR to get pport parity error */ 
/* floppy dir interrupt request */ 
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fr 
* Corvus definitions 
* 
* (C) 1984 UniSoft Corp. of Berkeley CA 
x 
* UniPlus Source Code. This program is proprietary 
* with Unisoft Corporation and is not to be reproduced 
* or used in any manner except as authorized in 
* writing by Unisoft. 
x} 
/* block number to virtual drive */ 
#define cvbtovd (b) ({(b)>>16 & Oxf) +1) 
/* virtual drive to block number */ 
#define cvvdtob(vd) (€COvd)-1) & Oxf) << 16) 
/* cv_stat bits */ 
#define ST_BUSY Gx02 
#define ST_HTOC Ox01 /* host to controller direction */ 


#define 
#define 
#define 
#$define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 


#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


/* normal mode commands */ 


N_READ 0x02 
N_WRITE Gx02 
N PARAM 0x10 
N_DIAGN Ox11 
N_R128 0x12 
N_R256 0x22 
N_R512 0x32 
N Wi28 0x13 
N_W256 8x23 
N_w512 0x33 
N_BOOT 0x14 


/* Sunol only - copy from one virtual drive to another 
7 {such as tape to disk or disk to tape) 
*f 

N_COPY OxE3 


/* diagnostic mode commands */ 


D_RESET oxa0 
D_FORMAT 0x01 
D_VERIFY 0x07 
D_RFIRMWARE 0x32 
D_WFIRMWARE 0x33 


/* semaphore commands */ 


S_INITO Oxla 
S_INIT1 0x10 
S LOCKS 0x0b 
S_LOCK1 0x01 
S_ULOCKO Ox0b 
S_ULOCK1 0x11 
S_STATO Oxla 
S_STAT1 0x41 
S_STAT2 0x03 


/* normal mode return status */ 


NS_FATAL 0x80 /* mask */ 
NS_VERIFY 0x40 /* mask */ 
NS_RECOVER Ox20 /* mask */ 
NS_HFAULT 0x00 
NS_STIME 0x01 
NS_SFAULT 0x02 
NS_SERROR 0x03 
NS_HCRC 0x04 
NS_ZFAULT 0x05 
NS_ZTIME 0x06 
NS_OFFLINE 0x07 
WS_WRAULT 0x08 
NS_ 0x09 
NS_RFAULT Ox0a 
NS_DATACRC ox0b 
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/* Profile Controller Definitions 

* Unless otherwise noted this information comes from an undated 

x document titled ‘PROFILE COMMUNICATIONS PROTOCOL’ and is apparently 
* either version 3.96 or 3.98 


*f 


#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 


#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 


#define 


/* command codes */ 


PROREAD 0 /* read command */ 
PROWRITE 1 /* write command */ 
PROWRITEV 2 /* write/verify command */ 


/* States (responses read from profile) */ 
/* Kept in pd_state and pd nxtst to determine what to do on intr */ 


SERR 6 /* pseudo state for err and initialization */ 
SCMD i /* waiting for a command */ 

SRDBLK 2 /* ready to read a block */ 

SWRTD 3 /* ready to receive for write data */ 

SVERD 4 /* ready to receive for verify data */ 

SFINI 5 /* pseudo state for write status pickup */ 
SPERFORM 6 /* waiting to do actual write or verify */ 
SSTOP 7 /* pseudo state for idle */ 


/* Responses sent in reply to controller (messages) */ 
PGO 0x55 /* Proceed to next state (exec cmd) */ 
PIDL 0x00 /* Quit and return to idle loop */ 


/* Polling Delays */ 

RSPTIME 0xc000 /* response timeout (~1 ms) */ 

/* Operation status word breakdown. Returned for each command 
* and kept in pd_sbuf. 


*/ 
/* Breakdown of status bits for Status Byte 1 */ 
FAIL 0x01 /* Operation unsuccessful */ 
TIMEOUT 0x04 /#* Couldn’t read header after 9 revs */ 
CRCERR 0x08 /* CRC error while trying to read/write */ 
SEBKERR 0x10 /* Unable in 3 tries to read 3 consec sec*/ 
NOTABLE 6x20 /* Data table not in RAM (spare updated) */ 
ABORTED 0x40 /* >532 bytes sent or no spare table read*/ 
GOAHRAD 0x80 /* If the profile received 0x55 last time*/ 
/* Breakdown of status bits for Status Byte 2 */ 
BADSEEK 0x02 /* Seek to wrong track occured */ 
SPARED 0x04 /* set if sparing occured */ 
RDSTATS 0x08 /* Ctrl unable to read status sector */ 
BLKTABO 0x16 /* Bad block table overflow: > 106 bads */ 
SECTABO 0x40 /* Spared Sector table overflow >32 secs*/ 
SEEKER2 0x80 f* unable in 1 try to read 3 consec secs*/ 
/* Breakdown of status bits for Status Byte 3 */ 
PARITYE 0x01 /* Parity error */ 
BADRESP 6x02 /* If Ctrl gave a bad response */ 
WASREST 0x04 /* If Ctrl was reset */ 
BLKIDMM 0x20 /#* Block id at end of sector mismatch */ 
BLKNINV 0x40 /* Block number invalid */ 
RESETP 0x80 /* Ctrl has been reset */ 


/* Status byte 4 is the # of errs rereading after read err*/ 


/* Mask to remove redundant bits from status word */ 
STATMSK 0x8000 


/* Controller Command Format */ 


struct cmd { 


}; 


#define 
#define 
#define 
#tdefine 
#define 


char p_omd; /* command register */ 
char p_high; /* high block byte */ 
char p_mid; /* mid block byte */ 
char p_low; /* low block byte */ 
char p_retry; /* retry count */ 
char p_thold; /* threshold count */ 


MAXBLOCK 19455 /* Last sector on disk */ 


SECSIZE 512 /* Number of bytes per sector */ 

LOG SS 9 /* Log (base 2) (SECSIZE) */ 

NSEC 16 /* Number of sectors/track */ 

NRETRY 10 /* Number of chksum error retries */ 


extern struct device_d *pro_da[]; 


#define logical (x) 
#define interleave (x) 
#define physical (x) 


#define ul_forw av_back 


(minor(x) & 7) 
{minor (x) & 0x8) 


#* eight logicals per phys */ 
/* interleave bit for swaping */ 


((minor(x) & GxFG) >> 4}/* 10 physical devs */ 


/* Since there my be up to ten devices active the driver locals have been 
* collected into this structure to allow easy swithing between them. 


xf 

struct prodata { 
struct device_d 
struct cmd 
struct buf 
daddr_t 
daddr t 
caddr t 
long 
long 
long 
short 
short 
short 
short 
char 

} prodata[(NPPDEVS] ; 


/* Breakdown of bits in 
#define NOCHKSUM 
¢define NOPARITY 


*pd_da; 
pd_comdb; 
*pd_actv; 
pd_bikno; 
pd_limit; 
pd_addr; 
pd_beount; 
pd_sbuf; 
pd_flags; 
pda_state; 
pd_nxtst; 
pd_unit; 
pd_offline; 
*pd_err; 


f* 
f*® 
/* 
i* 
/* 
/* 
/* 
{* 
/* 
/* 
{* 
f* 
f* 
{* 


pd_flags above: */ 
0x61 /* diasble 
0x02 /* disable 


extern char pro_secmap[]; 


#ifndef NODEBUG 

#define DEBUG(x) printf 
#else 

#define DEBUG(x) 

tendif 


x 


physical dev pointer */ 

command buffer */ 

ptr to active buf */ 

present block being transferred */ 
max blk number for this log dev */ 
present core address */ 

present count */ 

Status */ 

mode of operation flags */ 

state of controller */ 

next state scheduled for disk */ 
phys unit number of this dev */ 
wait for disk to come online again */ 
err mesg for last error */ 


checksums failure on reads */ 
fail on parity errors */ 
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short kb keycount; 
short kb_reptrap; 
short kb repwait; 
short kb repdlay; 


char kb chrbuf; 

char kb ctrl; 

char kb shit; 

char kb_lock; 

char kb state; /* state of cops processor */ 
char kb idcode; 

char kb_laste: 


keyboard.h 
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/* Flags in conversion tables to pick out non-character generating 


* keys 
x] 


/* When a character is received from the COPS (depending on the state of 
* the shift keys) a table is used to convert it into the ascii equiv. 

* If the result is one of the following then it wasn’t a keycode at all 
* but one of the reset/mouse/clock/plug codes. 


wd 
#define 
$define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


/* Cops 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


/* Case 
af 
#define 
#define 
#define 
#define 
#define 


Imp OxFF 

KSC OxFE 

DIP OxFD 

DIB OxFC 

D2P OxFB 

D2B OxFA 

PPP OxF9 

MSB OxF8 

MSP OxF7 

OFF OxF6 

LOK OxF2 

SFT OxFi 

CMD OxFO 

KB CTRL 0x0 
KB SHFT 0x1 
KB LOCK 0x2 
KB OFF 0x6 
KB MSP 0x7 
KB MSB 0x8 
KB _PPORT 0x9 
KB D2B O0xA 
KB D2P OxB 
KB DIB Oxc 
KB DIP OxD 
KB STATE 0xE 
KB IMP OxF 
reset codes */ 
KB KBCOPS OXxFF 
KB_IOCOPS OxFE 
KB UNPLUG OxFD 
KB _CLOCKT OQxFC 
KB SFTOFF OxFB 
KB RESERV O0xFO 
KB_RDCLK OxE0 
change keys 
ROpt 0x45 

LOpt Ox7Cc 

Lek 6x7D 

Sft Ox7E 

Cmd Ox7F 


/* ASCII codes */ 


#define 
#define 
#define 
#define 
#define 
#define 


Del 0x7F 
Bkp 0x08 
Esc 0x1B 
Nl 0x0A 
Cr Ox0D 
Tab 0x09 


/* 
/* 
f* 
/* 
/* 
/* 
f* 
/* 
/* 
f* 


{* 
f* 
f® 


invalid keycode */ 

mouse or reset state flag */ 

aisk inserted into drive one */ 
disk 1 button pushed */ 

disk inserted into lower drive */ 
disk 2 button pushed */ 

parrallel port plug */ 

mouse button */ 

mouse plug */ 

soft off */ 


Alpha lock on */ 
shift key */ 
command key */ 


/* mapped onto escape */ 
/* SHIFT key */ 

/* SHIFT key */ 

/* COMMAND key */ 


/** backspace key */ 


/** NOTES on character mapping 
** Left Option -> Esc 


** Clear -> Del 
** Enter -> N1 
** arrows 
aa f 
#define Alt ‘pS 
#define Art 'cr 
#define Aup "AY 
#tdefine Adn ‘Br 
#define ARROW ({i,v) 


/** left arrow 
** right arrow 


( 


-> cursor motion in appropriate direction (sequence \E[<Arrow-value>) 


((160x70)==0x20) && (V>='A') && (vV<="D!) j 


-> control h 
-> controi i 


** up arrow -> control k 

** down arrow —-> control j 
#define Cth (7h’ &Ox1F) 
#define Ctl (?1? €0x1F) 
#define Ctk (7k? &0x1F) 
#define Cti (7 3' €0x1F) 


arf 


char 
0 
KSC, 
Inp, 
Del, 
imp, 
IF 
v 
nor 
fa’, 
a’, 


}: 


char 


TOLA[] = { /* convert keycode 
1 2 3 4 5 6 
D1P, D1B, D2P, D2B, PPP, MSB, 
Imp, Imp, Imp, Imp, Imp, Imp, 
fol, Alt, Art, Te, ‘8’, 1942 
Imp, Imp, Imp, Imp, Imp, Imp, 
f=,'\\", Imp, ‘p’, Bkp, Nl, 
£OF, fu’, rir, eee rk, ere, 
*6!, ee, 7er, Sr rt tt, 
a #3! 5 far, fF, 'q', ’s', 


Tocc([] = { /* convert keycode 
1 2 3 4 5 6 
DIP, DIB, D2P, D2B, PPP, MSB, 
Imp, Imp, Imp, Imp, Imp, Imp, 
feof, Alt, Art, ey Fer, °9", 
Imp, Imp, Imp, Imp, Imp, Imp, 
rer ,f\\', Imp, EPP, Bkp, Nl, 
’Of, fu’, fF sy a ae ‘RK, ele 
Gr, aT? roe, £5? 3 ‘Ry eT, 
#2F OS = whe. ff, ‘Or, PS 


ToUA[] = { /* Convert keycode 
i 2 3 4 5 6 
DIP, DIB, D2P, D2B, PPP, MSB, 
Imp, Imp, Imp, Imp, Imp, Imp, 
Far, FH, FRE, FF, Fer, 7 OF, 
Imp, Imp, Imp, Imp, Imp, Imp, 
fer, '\*, Imp, *P’, Bkp, Ni, 
yf, ur, fT, 3", ‘Kr, tr, 
sat. ar, FRE: rE RI, OTe. 


rer, rer, ‘sr, eg Of Y ‘S', 


#define Nil 6 


char 
Q 
Nil, 
Nil, 
Nil, 
Nil, 
Nil, 
Nil, 
Nil, 
Nil, 
}; 


char 


altkpad[] = { /*® convert 
1 2 3 4 5 6 
Nil, Nil, Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, Nil, Nil, 
Fm’, 'R!, "QF, we, Tx, Ty, 
Nil, Nil, Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, Nil, Nil, 


*ecvtab[] = { 


to lowercase ascii character 


7 
MSP, 
Imp, 
Aup, 
Imp, 
Imp, 
‘i’, 
‘y’, 


iw’, 


8 9 
OFF, Imp, 
Imp, Imp, 
rar, #5! , 
Imp, Imp, 

Cr, ‘0%, 
fm’, oli sy 
woe, Ptr, 
Tab, 'z’, 


A B Cc D 

Imp, Imp, Imp, Imp, 
Imp, Imp, Imp, Imp, 
'6!, Adn, '.f, '2', 
Imp, Imp, Imp, Imp, 
Imp, Imp, ’/', ‘1’, 
rst yee, # . fs 
Fg’, Hy gt Tier, 
‘x’, ‘a’, Esc, LCK, 


to shift-locked ascii character 


7 
MSP, 
Imp, 
Aup, 
Imp, 
Imp, 
Fy 
eyes 
Ww, 


into 
7 
MSP, 
Imp, 
ff, 
Imp, 
Imp, 
wt G 
a 
7W, 


8 9 
OFF, Imp, 
Imp, Imp, 
far, Sr, 
Imp, Imp, 
cr, ‘Of, 
‘Mr, Li, 
yur ; f FS ; 


Tab, '2’, 


uppercase 
8 3 
OFF, Imp, 
Imp, Imp, 
wae £5! 5 
Imp, Imp, 
cr, 70°, 
‘Mr, ‘Ll’, 
Rete rr 


Tab, ‘2%, 


A B Cc D 

Imp, Imp, Imp, Imp, 
Imp, Imp, Imp, Imp, 
76’, Adn, ear "2°, 
Imp, Imp, Imp, Imp, 
Imp, Imp, "/’, '1', 
Oe Nee £ “ ee 
‘CG’, ‘Ht, ry', ‘Cc’, 
Fx’, FD’, Esc, LCK, 


ascii character 

A B Cc D 
imp, Imp, Imp, imp, 
Imp, Inp, Imp, Imp, 
767, £,°, Fit, 129, 
Imp, Imp, Imp, Imp, 
Imp, Imp, ‘2%, ‘1%, 
fee) sae £ my OS 
GS ,. a ‘yi, FCT 
*x?, 'D!, Esc, LCK, 


keycode into alternate keypad mode 


: 
Nil, 
Nil, 
*R’, 
Nil, 
Nil, 
Nil, 
Nil, 
Nil, 


8 9 
Nil, Nil, 
Nil, Nil, 
th, ful, 
Nil, Nil, 
Nil, ‘p’, 
Nil, Nil, 
Nil, Nil, 
Nil, Nil, 


ToLA, /* LCK up, SFT up */ 
Tocc, /* LCK down, SFT up */ 
TOUA, /* LCK up, SFT down */ 


ToUA, /* LCK down, 


SFT down */ 


A B c D 
Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, 
ryt, 619, Pn, 'r', 
Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, ‘q’, 
Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, 
Nil, Nil, Nil, Nil, 


EB Fe/ 
Imp, Imp, 
Imp, Imp, 
f3% 5. > Ny 
Imp, Imp, 
Esc, Imp, 
oe tof, 
‘hp’, in’, 
SFT, CMD, 


E F*/ 
Imp, Imp, 
Imp, Imp, 
*3*, Ni, 
Imp, Imp, 
Esc, Imp, 
arp. 1O! y 
BS FN’, 
SFT, CMD, 


zB Fe/ 
Imp, Imp, 
Imp, Imp, 
‘3°, Ni, 
Imp, Imp, 
Esc, Imp, 
0) FOr, 
‘RB’, ‘N’, 
SFT, CMD, 


values 

E Fx/ 
Nil, Nil, 
Nil, Nil, 
rst, mM’, 
Nil, Nil, 
Nil, Nil, 
Nil, Nil, 
Nil, Nil, 
Nil, Nil, 


12.h 


int 
int 
int 
int 
char 
char 
char 
int 
int 
char 
char 
char 


12_dtime; 
12_dtrap; 
12_dimcont; 
12_ crate; 
12_reflag: 
12_dimmed; 
12_bvol; 
12_bpitch; 
12_btime; 
12_contrast; 
12_desired; 
12_defcont; 


/* 
f* 
/* 
/* 
i* 
f*® 


f* 
{* 
{* 
j* 
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seconds idle before dimming */ 

time at which screen will goes dim (mch.s) */ 
contrast setting when dimmed */ 

rate at which contrast change occurs */ 
timeout pending flag for ramp contrast */ 
contrast is dimmed */ 

bell volumn */ 

bell pitch */ 

bell time */ 

current contrast setting */ 

desired contrast */ 

default contrast */ 
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/* Various machine specific constants */ 


i* 
* States needed for muli-byte COPS input sequences. 
xf 

#define NORMALWAIT i) 

#define MOUSERD 1 

#define YMOUSE 2 

#define RESETCODE 3 

#define SHUTDOWN 4 

#define CLKREAD 5 /* must be last */ 

#define MAXXLOC 720 

#define MAXYLOC 360 


/* Raster Display information ... */ 
/* Lowest possible (most dim) contrast setting */ 
#define TOTALDIM 0x3F 
#tdefine SCRNSIZE 0x8000 f*® 32K */ 
/* Contrast value set by boot rom */ 
#define ONCONT 0x20 


#define MAXROW 40 
$define MAXCOL 306 


#define BPL 90 
#define V_RESO 9 
#define H_RESO 8& 


/* The Real Time Clock and Timer (wrist watch type) 
* This device hangs off the I/O board cops and is communicated with 
* through the console VIA (ie. l2copsemd). The command byte is as follows: 


* 0x02 read clock data; the setting of the clock is returned as 

x a seven byte reset code. 

® 0x2C start clock and alarm set cycle. Upto 16 nibbles of alarm 
® and clock data (aaaaa y ddd hh mm ss t) may be sent as the 
* low nibble of the following clock command. 

* Oxln write nibble ‘n’ to clock (only valid after 0x2C cmd) 

* 0x25 terminates setup cycle and enables clock, timer is still 

* diabled. 

* The Clock is connected to the power circuitry and can turn the system off 
* or be programed to turn it when the timer underflows. 

* 0x20 disbles the clock, timer, and shuts the system off. 

* 0x23 shuts off system leaving clock enabled and timer set to 

x power up on underflow. 

xf 
#define SHUTOFF 0x21 
#define READCLOCK 0x02 
#define SETCLOCK Ox2c 

#define CLKNIBBLE 0x10 

#define STRTCLOCK 0x25 


/* Other extrainous cops commands */ 


#define MOUSEON Ox7F /* mouse on and int’s every 28 ms */ 
#define MOUSEOFF 0x70 /* mouse off */ 
#define ENT_LOW Ox6F /* low nibble of lights */ 
tdefine ENT_HI 0x52 /* high nibble of lights */ 
#define NMI_LOW 0x60 /* low nibble of NMI key */ 
#define NMI_HI 0x50 /* high nibble of NMI key */ 
#define IND _HI 0x40 /* high nibble of indicator lights */ 
#define IND_LOW 0x30 /* low nibble of indicator lights */ 
#define KBENABLE 6x00 /* enable keyboard */ 
struct rtime [ /* See page 35 LHRM */ 
time t rt_tod; /* Seconds since the Epoch */ 
leng rt_alrm; /* Seconds remaining to trigger alarm */ 
short rt_year; /* year {0 - 15) */ 
short rt_day: /* Julian day {1 - 366) */ 
short rt_hour; /* hour {0 - 23) */ 
short rt_min; /* minute {0 - 59) */ 
short rt_sec; /* second (0 - 59) */ 
short rt_tenth; /* tenths of a second {0 - 9) */ 


he 


#define MILLIRATE (1000/H2) /* rate of timer in milliseconds */ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


BOOTDEYV (* (char 
NSLOTS 3 
SLOTIDS ((short 
SLOTID2 ((short 
SLOTID3 {{short 
SLOTMASK 
ID_APLNET 
ID_2PORT 

ID_PRO 

ID_PRIAM 
EXPIVECT 
devtoslot(d) 


*) (OX1B3)) 


*) (0x298)) 
*) (Ox29A)) 
*) (0x29C)) 
OxFFF 

1 

2 

3 

5 

27 

{ ((d)==0) 


i* 
/*® 
f* 
f* 
f* 
i* 
f* 
/*® 
{* 
f* 
f* 


boot device ID {used in System III) */ 
number of expansion slots */ 
expansion slot 1 card ID */ 

expansion slot 2 card ID */ 

expansion slot 3 card ID */ 

card type (ID #) of type code */ 


card ID for 
card ID for 
card ID for 
card ID for 


applenet */ 
2-port card */ 
ProFile card */ 
Priam card */ 


intr vector for 1st of 3 exp cards */ 


(((d)==2) 26: 1) ) 
/* dev 0 is ivec 29, dev 1 is ivec 28, dev 2 is ivec 27 */ 
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/* 
* Copyright 1982 UniSeft Corporation /* macros to eliminate sep I/D */ 
* #define fuiword (x) Fuword (x) 
* Use of this code is subject to your disclosure agreement with AT&T, #define suiword (x,y) suword (x,y) 
* Western Electric, and UniSoft Corporation 
xf 

#define NUMCONTX 4 /* number of user contexts */ 

#define MEMEND (char **) (0x2A8) /* Addr of logical end of mem */ 

#define MEMBASE {long *) (0x2A4) /* Addr of phys beg of mem */ 

f* 

* Constants and definitions 
«f 
#define SPECIO OxFE0000 /* Special I/O address */ 
#define STDIO QxFcoo00 /* Standard I/O address */ 
/* Special 1/0 Space Locations */ 

#define STATUSA {char *) {STDIO+OxF800) /* Status Register address */ 

#define STATUS *(short *) (STATUSA) /* Status Register */ 

#define MEMERR *(char *) (STDIO+0xF000) /* Memory Error Address Latch */ 

#define SETUP_0 *(char *) (STDIO+0xE012) /* Turn setup bit off */ 

#define SETUP_1 *(char *) (STDIO+OxE016) /* Turn setup bit on */ 

#define SEG1_0 *{(char *) (STDIO+OxE008) /* Turn SEG1 bit off */ 

#define SEGI1_1 *(char *) (STDIO+tOxEOGA) /* Turn SEG1 bit on */ 

#define SEG2_0 *(char *) (STDIO+OxE00C) /* Turn SEG2 bit off */ 

#define SEG2_1 *(char *) (STDIO+OxEOGE) #* Turn SEG2 bit on */ 

#define VRON k{char *) (STDIO+OxBO1A) /* Turn Video retrace int on */ 

#define VROFF *(char *) (STDIO+0xE018) /* Turn Video retrace int off */ 

#define VIDADDR *(char *) (STDIO+0xE800) /* Video address latch */ 

#define ADDRMASK OxPFFFFF /* relevant address bits */ 

j* 

* Access Control Bits 
xf 


$define ASROS 060x400 /* Address space is read only stack */ 
#define ASRO 0x500 /* Address space is read only */ 
#define ASRWS 0x600 /* Address space is read write stack */ 
#define ASRW 0x700 /* Address space is read write */ 
#define ASIO Ox800 /* Address space is I/O */ 

#define ASINVAL OxcO0 /* Address space is invalid */ 

#define ASSPIO OxFO0 /* Address space is special I/O */ 
#define PROTMASK OxF00 /* Address space protection mask */ 


#define UDOTBASE OxFA00O0 /* Logical base of udot area */ 
/* Special I/O Bits */ 

#define BSEGORIG 0x8 /* Segment Origin Register */ 

f* 

* Definitions for memory management. 

«f 

#define NPAGEPERSEG 256 /* number mappable pages per segment */ 
#define SEGMASK OxFE0000 /* mask for segment number as address */ 
#define OFFMASK Ox1FFFF /* Offset mask for virtual address */ 
#define PAGEMASK Ox1FEOO /* Page mask for virtual address */ 
#define PAGESI2ZE 512 /* bytes per page */ 

#define PAGESHIFT 3 /* page shift for virtual addr */ 
#define DISPMASK 0x001FF /* Disp mask for virtual address */ 
#define SEGBASE OxFFF /* mask for segment base */ 

#define SEGNMASK Ox3F /* mask for segment number as number */ 
#define SEGSHIFT 17 /* shift for segment number */ 

#define VIRTSHIFT 9 /* seg shift for virtual address */ 
#define ACCLIM 0x008000 /* Access Limit Register */ 

#define ACCSEG 0x008008 /* Access Segment Register */ 


/* Status register bits */ 


#define S SMEMERR 0x1 /* Soft Memory Error */ 
#define S_HMEMERR 0x2 /* Hard Memory Error */ 
f#define S_VR Ox4 /* Vertical Retrace */ 
#define vtoseg(x) ((int) (x) & SEGMASK) 


/* size of the current process */ 
#define procsize(p) ((p)->p_size) 


ms .h 


+ + be ee He FF OF 


* 
™~ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
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5 19:07:30 1986 


(C) 1983, 1984 UniSoft Corp. of Berkeley CA 


UniPlus Source Code. This program is proprietary 
with Unisoft Corporation and is not te be reproduced 
er used in any manner except as authorized in 
writing by Unisoft. 


Driver definitions for the Lisa mouse. 


/* Types of mouse interrupts */ 


M FLUSH 0 
M PLUG 1 
M BUT 2 
MCTL 3 
MSFT 4 
MVRT 5 
M MOVE 6 


/* 
{* 
{* 
ft 
f* 
i*® 
/* 


timeout, mouse records out of date */ 
mouse unplugged or plugged in */ 
button changed */ 

apple key changed */ 

shift key changed */ 

verticle retrace interrupt (unused) */ 
mouse moved */ 


pport.h 


e > & F FF 


*f 


struct device d 


char d_f4[11]; 
char d_f1[7]; 
char d_f2[7]; 
char d_f£3[7]; 
char d_f4[7]; 
char d_f5[7]; 
char d_f6[7]; 
char d f7[7]; 
char d_f£8[7]; 
char 4d f9[{7]; 
char d_fa[7]; 
char d_fb[7]; 
char d_fe[(7]; 
char d_fd[7]; 
char d_fe[7]; 
char d_ff[7]; 


he 


{ 
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char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


Copyright 1982 UniSoft Corporation 
Use of this material is subject to your disclosure agreement with 
AT&T, Western Electric and UniSoft Corporation. 


{*® 
/* 
ix 
/* 
{* 
f* 
{* 
{PF 
[* 
{* 
fk 
f* 
{* 
f* 
f* 
{* 


#define PPADDR (struct device _d *)(STDIO + 0xD900) 


/* Breakdown of d_irb byte (above) 


#define OCD 
#define BSY 
#define DEN 
#define DRW 
#define CMD 
#define PCHK 
#define DSKDIAG 
$define WCNT 


#define NPPDEVS 
#define PPOK (x) 


0x61 
0x02 
Ox04 
0x08 
0x10 
0x20 
0x40 
0x86 


10 


I/O register B */ 

I/O register A */ 

Data Dir reg B */ 

Data Dir reg A */ 

Tl low Latches Counter */ 
fl hi Latches Counter */ 
Tl low Latches */ 

Tl hi Latches */ 

T2 low Latches Counter */ 
T2 hi Latches Counter */ 
Shift Register */ 

Aux Ctrl Reg */ 

Perif ctrl Reg */ 

Int Flag Reg */ 

Int Ena Reg */ 

Alt d_ira (no handshake) */ 


[pg. 45 LHRM APR-82]*/ 


/* Open cable detect (paper empty) */ 

/* Busy bit (handshake line) */ 

/* Disk Enable (buffers which drive interface lines)}*/ 
/* Direction (Disk Read/Write) off = write to disk */ 

/* CMD bit (printer ON/OFF line) */ 

/* enable parity check(input for printer/out for disk) */ 


/* number of parallel port devices */ 
(€(x)>0) €& ((x)<9) &é 
#define PPSLOT (x) 


C(x) !=3) && ((x)!=6)) /* 1,2,4,5,7,8 */ 


((x)/3) /* expansion slot number from physical unit */ 


priam.h 


with 


i eo 


* 
~ 


UniPlu 
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Priam datatower definitions 


(C) 1984 UniSoft Corp. of Berkeley CA 


s Source Code. This program is proprietary 
Unisoft Corporation and is not to be reproduced 


or used in any manner except as authorized in 
writing by Unisoft. 


struct pm base { 


/* read registers */ 


uchar t status; char xx0; /* status register */ 


read data, retries disabled */ 
write data, retries enabled */ 
read data, retries enabled */ 
write tape file mark */ 

read tape file mark */ 

verify tape mark */ 


clear "block transfer intr™ */ 
transfer packet (used for format) */ 
read packet status */ 

resume packet operation */ 


advance file marks */ 


number of result registers */ 
error completion type mask (r0) */ 
init complete (r0) */ 


timeout error (r0) */ 
no. heads (rl after PMSPINUP) */ 


(int) ((((r1) &0xP)<<8) | (r2))/* no. cyls (r1,r2 after PMSPINUP) */ 


no. heads (r3 after PMSPINUP) */ 


log. sector mode {pl) */ 

parm select 1 (pl) */ 

parm select 1 parameters {(p2} 
disable high performance / 
block transfer intr enabled / 
block transfer timer disable */ 
parm select 6 (pl) */ 

parm select 0 parameters {p2) 
auto. defect management enabled / 
init. complete intr disabled / 
command complete intr enabled / 


offset to next card */ 
offset to hi select space */ 


#define PMNREAD 0x43 {* 
#define PMWRITE 0x52 {® 
$define PMREAD 0x53 /* 
#define PMWMRK 0x62 {* 
#define PMRMRK 0x63 f* 
#define PMVERIFY x64 {* 
#define PMREWIND Ox6A /* rewind tape */ 
#define PMERASE Ox6F /* erase tape */ 
#define PMCBTI 0x01 {* 
#define PMPKTXFER 0xBO /* 
#define PMPKTRST OxB8 {* 
#define PMPKTRES OxB1 i* 
#define PMPKTABRT OxBF /* abort packet */ 
#define PMADVANCE oxco /* 
#define PMRETEN OxC1 /* retension tape */ 
/* results */ 
#define NPMRES 6 {* 
#define PMCTYPE 0x30 {* 
#define PMICOMP 0x10 {* 
#define PMECCERR 0x11 /* ECC error (r0) */ 
#define PMDTIMOUT 0x33 {* 
#define PMNH(r) (int) ((r) >> 4) /* 
#define PMNC(r1,r2) 
#define PMNS (r) (int) (r) f* 
/* parameters */ 
#define PMLOGSECT 0x40 {* 
#define PMPSEL1 0x01 i* 
$define PM1PARMS 0x07 /* 
#define PMPSELO 0x00 f* 
#define PMOPARMS 0x03 {* 
enable parity */ 

#define PMCARD 0x4606 {* 
#define PMHISEL 0x2000 fe 

/* lo sel space (boot ROM and parity) */ 
#define pmlosel (u) (OxFCO000 + {{u) * PMCARD)) 
#define pmpaddr (u) ({struct pm_base *)pmlosel (u)) 

/* hi sel space (data handling) */ 
#define pmaddr(u) ({(struct pm_base *) (pmlosel(u) + PMHISEL)) 


/* interface control bits (added 


union { 
ushort WData; /* r/w disk data register */ 
uchar_t PData[2]; /* write only high byte for packet */ 
} Data; 
#define data Data.WData /* normal word access */ 
¥define pdata Data.PData[0] /* byte access for packet (format) */ 
uchar_t r0; char xxl; /* result 0 */ 
uchar_ t rl; char xx2; /* result 1 */ 
uchar t r2; char xx3; /* result 2 */ 
uchar_t 413; char xx4; /* result 3 */ 
uchar_t r4; char xx5; /* result 4 */ 
uchar_t r5; char xx6; f* result 5 */ 
}e 
/* write registers */ 
#define cmdreg status /* command register */ 
#define pd ro /* parameter 0 */ 
#define pl rl /* parameter 1 */ 
#define p2 r2 /* parameter 2 */ 
#define p3 x3 /* parameter 3 */ 
#define p4 r4 /* parameter 4 */ 
#define p5 rs /* parameter 5 */ 
/* channel definitions */ 
#define DISK 5 
#define NOTUSED 1 
#define TAPE 2 
#define HOST 3 
#define SPECIAL 4 
/* flag definitions */ 
#define IDLING 8 
#define INITING 1 
#define DREADING 2 
#define DWRITING 3 
#define TREADING 4 
#define TWRITING 5 
#define TCONT 6 
/* read parity register (pmpaddr, lo select space) */ 
#define parity status 
#¥define PMPERROR 0x8o /* extract parity FF on reads */ 
/* status register bits */ 
#define CMD_REJECT 0x80 /* command reject */ 
#define CMD_DONE 0x40 /* command completion request */ 
#define CMD SDONE 0x20 /* special command completion */ 
#define BTR_INT 0x10 /* block transfer - interrupt */ 
#define ISR_BUSY 0x08 /* interface busy */ 
#define DTREQ 0x04 /* data transfer request */ 
#define RW_REQ 0x02 /* r/w request */ 
#define DBUS_ENA 0x01 /* data bus enabled */ 
7/* commands */ 
#define PMRESET 0x7 /* software reset */ 
#tdefine PMSMODE Ox8 /* set mode */ 
#define PMRMODE 0x? /* read mode */ 
#define PMSETP Oxc /* specify parameters */ 
#define PMSPINUPW 0x82 /* sequence up disk and wait */ 
#define PMRDEVPMS x85 /* read device parms */ 
#define PMSPINDN 0x81 /* sequence down disk */ 
#define PMNWRITE 0x42 /* write data, retries disabled */ 


to pmaddr) */ 


#define PM_N 0x200 /* no device cycle */ 

#define PMI 0x100 /* interrupt enable */ 
#define PM B 0x080 /* byte mode */ 

#define PM W 6x040 /* waiting (while U wait) */ 
#define PM _P 0x020 /* parity checking enabled */ 
#define pmNaddr (p) ((struct pm_base *)(((long}p) + PM_N))} 
#define pmladdr (p) ((struct pm_base *)(((long)p) + PM_I)) 
#define pmBaddr (p) ((struct pm_base *) (((long)p) + PM_B)) 
#define pmWaddr (p) ((struct pm_base *) (((long)p) + PM_W)) 
#define pmPaddr(p) ({struct pm_base *){({(long)p) + PM_P)) 
#define pmBWaddr (p) ({struct pm_base *)(((long)p) + PM_B + PM W)) 
#define Iaddr (p) ({struct pm_base *)(((long)p) + PM_B + PM_I)) 
#define pmBWladdr (p) ((struct pm_base *)({(long)p) + PM_B + PM _W + PM I)) 
/* 


* Format disc packet parameters structure 
af 
struct pmfmtparms { 


unsigned char pm_opcode; /* 
#define PMFMT 0x02 f* 
unsigned char pm_devsel; /* 
unsigned char pm_scntl; /* 
#define PMFBD 0x80 /* 
unsigned char pm fill; {* 
unsigned short pm_ssize; f* 


unsigned char pm_denti; /* 


operation code = PMFMT */ 

opcode for format */ 

device select = 0 (no daisy chaining) */ 
sector control: FBD, media type */ 

fill byte disable */ 

sector controi: fill byte */ 

sector control: sector size */ 


defect control: DMD, # spare sectors */ 
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#define PMDMD 0x80 /* defect mapping disable */ 
unsigned char pm_ncyl; /* defect control: # alternate cylinders */ 
unsigned char pm _cif; /* interleave control: cyl interleave factor */ 
unsigned char pm _hif; /* interleave control: head interleave factor */ 
unsigned char pm_sif; /* interleave control: sect interleave factor */ 
unsigned char pm_sitl; /* interleave control: 
sector interleave table length */ 
hs 
je 
* Packet status report structure (used by packet-based format command) 
xf 
struct pmfmtstat { 
unsigned char pm_pid; /* packet ID */ 
unsigned char pm_pstate; /* packet state */ 
#define PMPKTCOMP 0x0D /* packet completed, not resumeable */ 
unsigned char pm_tdf; /* termination device flag */ 
unsigned char pm_pristat; /* primary termination status */ 
unsigned char pm_xx[32]; /* more status - unused */ 
he 
je 
* Header structure 
7 Used by the lisa office system. It’s 4 bytes longer than the 
x header for the profile, to include the size of the disk, but 
x otherwise the same {see profile.h). 
af 
struct pmheader { 
unsigned short pm_version; /* unused */ 
unsigned short pm_volume; /* unused */ 
unsigned short pm_fileid; /* must be GxAAAA for the boot block */ 
unsigned short pm_csi; /* unused */ 
unsigned int pm_cs2; /* unused */ 
unsigned short pm_relpage; /* unused */ 
unsigned int pm_nblk; /* unused */ 
unsigned short pm_pblk; /* unused */ 
unsigned int pm_size; /* unused - size of disk */ 


hs 

#¢define HDRSIZE ( 
#define FILEID 6 
#define TIMELIMIT 


#define NPM 


sizeof 
xAAAA 


{struct pmheader)) 
/* 


506000 i* 


3 


file id for boot block */ 


timeout of about 5 secs. */ 


profile h 


/* Disk Header L. 


ayout 


Fri Sep 5 19:07:32 1986 


* Used by the lisa office system 


xf 

struct proheader 
unsigned 
unsigned 


unsigned 
unsigned 
unsigned 


unsigned 
unsigned 


unsigned 
Ie 


{ 
short 
short 


short 


short 


int 


short 


int 


short 


ph_version; 
ph_datastk:2, 
ph_reserved:6, 
ph_volume: 8; 
ph_fileid; 
ph_havcsum:1, 


ph_dataused:15; 


ph_abspage:24, 
ph_chksum: 8; 
ph_relpage; 
ph_forward:24, 
ph_bekhigh:8; 
ph_bcklow; 


{* 


{* 


f* 
/* 
/* 
/* 
i* 
/* 
/* 
/* 
{* 
{[* 


OS version number */ 

kind of info in this block */ 
disk volumn number */ 

type of file */ 

whether ph _chksum is valid */ 
valid byte count */ 

page in filesystem */ 
checksum */ 

page in file */ 

next block */ 

high byte of prev block */ 
low word of prev block */ 


#define HDRSIZE (sizeof (struct proheader) ) 


struct proidblk 
char 
char 
short 
char 
char 
char 
char 
char 
char 


{ 


pi_devn[13]; 


f*® 


pi_dnum[3]; /* 
pi_revn; /* 
pi_blkent[3];  /* number 
pi_blksiz[2]; /* number 
pi_spavail; /* number 
pi_spalloc; /* number 
pi_bbent; /* number 
pi_blist [486]; /* 


device name */ 
device number (currently 0) */ 
micro code revision number */ 


of useable blocks */ 

of bytes per block */ 

of spare sectors avail */ 

of spare sectors allocated */ 
of bad blocks below */ 


list of bad and spared sectors */ 
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(C) 1984 UniSoft Corp. of Berkeley CA 


UniPlus Source Code. This program is proprietary 
with Unisoft Corporation and is not to be reproduced 
or used in any manner except as authorized in 
writing by Unisoft. 

f 


* OF * % 4 OF 


/* This is the command value for the console ioctl which 
* jumps to the start of unix. It is only compiled into 
* the installation unix sunix. 
xf 

#define RESTART (/R’<<8) /* restart unix */ 
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/* 
* Zileg 28536 Scc Chip 

* 

* Copyright 1981 UniSoft Corporation 

«/ 

/* read register 0 bits */ 

#define RORXRDY 0x01 /* receiver is ready */ 
#define RGZERO 0x02 /* zero count */ 

$define ROTXRDY 0x04 /* transmitter is ready */ 
#define RODCD Ox08s /* data carrier detect */ 
fdefine ROSYNC 0x16 /* sync */ 

f#define ROCTS 0x20 /* clear to send */ 
#define ROUNDERRUN 0x40 /* transmitter underrun */ 
#define ROBREAK 0x80 /* break */ 


/* read register 1 bits */ 


#define RIALLSENT 6x01 /* Async mode: all data cleared transmitter */ 
#define RIRESIDUE Ox0B /* residue bits (see tables) */ 

#define R1PARERR 0x10 #* parity error */ 

#define RLOVRERR 0x26 /* lost characters due to overrun */ 

#define R1FRMERR 0x40 /* CRC or framing error */ 

#define RIENDFRAME 0x80 /#* SDLC: end of frame */ 


/* write register 0 - command register */ 


#define WONULL 0x00 /* null code */ 

#define WOPOINTHIGH 0x08 /* select second bank of registers */ 
#define WOREXT 0x19 /* reset external/status interrupt */ 
#define WOABORT 0x18 /* send abort */ 

#define WORXINT 0x20 /* enable interrupt on next Rx char */ 
#define WORTXPND 0x28 /* reset transmitter interrupt pending */ 
#define WORERROR 0x30 /* error reset */ 

#define WORIUS 0x38 /* reset highest interrupt under service */ 
#define WORKCRC 0x40 /* reset Rx cre checker */ 

#define WOTXCRC x80 /* reset Tx cre generator */ 

#define WOTXURUN Oxce /* reset Tx underrun/eom latch */ 

/* write register 1 - xmit/rcev interrupt and data xfer mode */ 

#define WlEXTIEN Ox01 /* external interrupt enable */ 

#define WLTXIEN 6x02 /* transmitter interrupt enable */ 

define W1PSC 0x04 /* parity is a special condition */ 

#define W1RXDI ox00 /* Rx int disable */ 

#define W1RXIFIRST 0x08 /* Rx interrupt on first char or special */ 
#tdefine W1RXIALL 6x10 /* Rx interrupt on all chars or special */ 
#define W1RXISC 0x18 /* Rx interrupt on special condition only */ 
#define W1WDMARCV 0x20 /* wait/dma request on receive/transmit */ 
#define W1WDMARP 0x40 /* wait/dma request function */ 

#define W1WDMARE 0x80 /* wait/dma request enable */ 


/* write register 2 - interrupt vector */ 


/* write register 3 - receive parameters and control */ 


fdefine W3RXENABLE 0x01 /* Rx enable */ 

#define W3SCLI 0x02 /* sync character load inhibit */ 
#define W3ASM 0x04 /* address search mode (sdlc) */ 
#define W3RXCRC 0x08 /* Rx cre enable */ 

#define W3EHUNT 0x10 /* enter hunt mode */ 

f#define W3AUTOENABLES 0x20 /* auto enables */ 

#define W35BIT 0x00 /* 5 bit data */ 

#define W36BIT 0x80 /* 6 bit data */ 

#define W37BIT 0x40 /* 7 bit data */ 

tdefine W38BIT Oxco /* 8 bit data */ 

{/* write register 4 - xmit/rcv misc parameters and modes */ 
fdefine W4PARENABLE 0x01 /* parity enable */ 

#tdefine W4PAREVEN 0x02 /* even parity */ 

#define W4ENSYNC 0x00 /* enable sync modes */ 

#define W41STOP 0x04 /* 1 stop bit */ 

#define W415STOP 0x08 /* 1.5 stop bits */ 

#define W42STOP ox0c /* 2 stop bits */ 

#define W4e8syYNc 0x00 /* 8 bit sync character */ 
#define W416SYNC 0x10 /* 16 bit sync character */ 
#define W4SDLC 0x20 /* sdic mode (01111110 flag) */ 
#define W4EXTSYNC 0x30 /* external sync mode */ 
#define WACLK1 0x00 /* X 1 clock mode */ 


#define WACLK16 0x40 /* X 16 clock mode */ 


#define W4CLK32 0x80 /* X 32 clock mode */ 
#define WACLKG64 6xcO /* X 64 clock mode */ 


/* write register 5 - transmit parameter and control */ 


#define WSTXCRC 0x01 /* Tx cre enable */ 
#define W5RTS 0x02 /® rts */ 

#define W5CRC16 0x04 /* ore-16/sdlc */ 

#define WSTXENABLE Ox08 /* transmitter enable */ 
#define W5SBREAK 0x10 /* send break */ 

#define W55BIT 6x00 /* 5 or less bit data */ 
#define W56BIT 0x40 /* 6 bit data */ 

#define W57BIT 0x20 /* 7 bit data */ 

#define W58BIT 0x60 /* 8 bit data */ 

#define W5DTR ox80d /* data terminal ready */ 


/* write register 6 - sync chars or sdlc address field */ 
/* write register 7 - syne chars or sdlc address flag */ 
/* write register 8 - transmit buffer */ 


/* write register 9 - master interrupt control */ 


#define W9OVIS 0x01 /* vector includes status */ 
#define WONV 0x02 /* no vector */ 

#define W9DLC 0x04 /* disable lower chain */ 
$define WOMIE 0x08 /#* master interrupt enable */ 
#define WSHIGHSTATUS 0x16 /* status high/low */ 

#define WOBRESET 0x40 /* channel b reset */ 

#define W9ARESET 0x80 /* channel a reset */ 

#define WSHRESET 0xcd /* force hardware reset */ 


/* write register 10 - misc transmitter/receiver control bits */ 


#define W1O6BITSYNC 0x01 /* 6 bit/8 bit sync */ 
#define W10LOOP 0x02 /* loop mode */ 

#define W1OAUR 0x04 /* abort/flag on underrun */ 
#define W1LOMARK 0x08 /* mark/flag idle */ 

#define WLOAPOLL 0x10 /* go active on poll */ 
#define W1ONRZ 6x00 /* nrz */ 

#define W1ONR2ZI 6x20 /* nrzi */ 

#define W10FM1 0x46 /* fml */ 

#define W10FMO 9x60 /* fm0 */ 


#define W10CRCPRESET 0x80 /* cre preset 1/0 */ 


/* write register 11 - clock control mode */ 


#define W110XTAL 0x00 /* crystal output */ 

#define W110XCLK 0x01 /* transmit clock */ 

#define W110BR 0x02 /* baud rate generator output */ 
#define W110ODPLL 0x03 /* dpll output */ 

#define W11TRxC 0x04 /* TRC 0/1 */ 

#define W11TRTxc 0x00 /* transmit clock RTxC pin */ 

#define W11TTRxc 6x08 /#* transmit clock TRxC pin */ 

#define W11TBR 0x10 /* transmit clock baud rate generator */ 
#define W11TDPLL 0x18 /* transmit clock dpll output */ 
#define W11RRTxC 6x00 /* receive clock RTxC pin */ 

#define W11RTRxC 0x20 /* receive clock TRxC pin */ 

#define W11RBR 0x40 /* receive clock baud rate generator */ 
#define W11RDPLL 6x60 /* receive clock dpll output */ 

#define W11XTAL 0x80 /* crystal */ 


/* write register 12 - lower byte of baud rate generator */ 
/* write register 13 - upper byte of baud rate generator */ 


/* write register 14 - misc control bits */ 


#define W14BRGE 0x01 /* baud rate generator enable */ 
#define W14BRINT 0x02 /* baud rate generator internal */ 
#define W14DTRREQ 0x04 /* atr/req function */ 

#define W14AUTOECHO 6x08 /* auto echo */ 

#define W14LOCALLB 0x10 /* local loop back */ 

#define W14NULL 0x00 /* null command */ 

#define W14ESM 0x20 /* enter search mode */ 

#define W14RMC 0x40 /* reset missing clock */ 

#define W14DDPLL 0x60 /* disable dpll */ 

#define W14SBRGEN 0x80 /* set source baud rate generator */ 
#tdefine W14SRTxC OxA0 /* set source RTxC */ 

#define W14SFM Oxco /* set fm mode */ 
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#define W14SNRZI OxEO /* set nrzi mode */ 


struct device { 


char dum; 
char csr; 
char dum2[3]; 


char data; 
he 


/* structure for storage of port reset code and baud generator speed 
xf 
struct soline { 

char reset; 

long speed; 
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fr 
* Sony definitions 

* 

x (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

x with Unisoft Corporation and is not to be reproduced 
* or used in any manner except as authorized in 

* writing by Unisoft. 

* 


struct s iob { 
char dumdd; unsigned char gobyte; 
char dum0i; unsigned char cmd; 
#define mask cmd 
char dum02; unsigned char drive; 
char dumo3; unsigned char side; 
char dum04; unsigned char sector; 
char dum05; unsigned char track; 
char dum06; unsigned char unused; 
char dum07; unsigned char confirm; 
char dumie; unsigned char status; 
char dum09; unsigned char format; 
char dumli; unsigned char type; 
char duml2; unsigned char error; 
char duml13; unsigned char seek; 
char dum14[23]; unsigned char rom_id; /* FCCO31 */ 
char dumi5(15]; unsigned char diskin; /* FCCO41 */ 
char dumi6é[7]; unsigned char drv_connect; f* FCCG4S */ 
char dum17[21]; unsigned char intr_status; /* FCCOSF */ 
char dum18[49]; unsigned char d_strt_bitslip; 
char duml9; unsigned char d_end bitslip; 
char dum20; unsigned char d_checksum; 
char dum21; unsigned char a_strt_bitslip; 
char dum22; unsigned char a_end_bitslip; 
char dum23; unsigned char a_wrng sector; 
char dum24; unsigned char a_wrng track; 
char dum25; unsigned char a_checksum; 


char dum26[88]; unsigned char cmd_index; 
}e 


struct sn hdr { 


unsigned short version; /* unused */ 
unsigned short volume; /* unused */ 
unsigned short fileid; /* mast be OxAAAA for the boot block */ 
unsigned short relpg; /* unused */ 
unsigned short duml; /* unused */ 
unsigned short dum2; /* unused */ 
}e 
#define FILEID OxAAAA /* file id for boot block */ 


#define SNIOB ((struct 


s_ iob *)OGxFcc00G) 


#define SN_HDRBUF 0xFCC3E8 /* 12-byte header of 524-byte buffer */ 
#define SN_DATABUF 0xFCC400 /* real 512-byte buffer */ 
#define SN_CMD BASE 0xFCC103 /* where the old commands are */ 
#define NSN 1 

#define SN_MAXBN 800 

/* SONY COMMANDS */ 

#define SN_READ 9 

#define SN_WRITE 1 

#define SN_EJECT 2 

#define SN_FORMAT 3 

#define SN_VERIFY 4 

4#define SN_FMTTRK 5 

#define SN_VFYTRK 6 

#define SN_RDBRUT 7 

f#define SN_WRTBRUT 8 

#define SN_CLAMP 9 

#define SN_SHAKE 0x80 

#define SN_CMD 0x81 

#define SN_SEEK 0x83 

#define SN_CALL 0x84 

#define SN _CLRST 0x85 


#define SN_STMASK ax86 
#define SN_CLRINT 0x87 
#define SN_WAITRM 0x88 
#define SN_GOAWAY 0x89 
#define SN_CLEARMSK 0x77 


/* ROM revision number indicates twiggy vs. 


#define ROMMASK OxEO /* 
#define ROMTW 0x80 /* 
#define ROMSLOW 0x20 i* 


sony and fast vs. slow timer. */ 
look at these bits only */ 
O=twiggies, l=sony */ 

for Lisa 2s, O=fast, 1l=slow */ 


sunol.h 


~ 
a 


Sunol definitions 
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(C}) 1984 UniSoft Corp. of Berkeley CA 


niPlus Source Code. 


This program is proprietary 


with Unisoft Corporation and is not to be reproduced 


or used in any manner except as 
writing by Unisoft. 


+ OF OO 
Gq 
3 
te 
0 


authorized in 


f 
fe 
* This block is returned when a “get drive parameters" command is 
* issued. 
*f 


struct sdparam { 
char fwmsg[31]; /* 
unsigned char revision; /* 
unsigned char romv; /* 
/* next four bytes 


unsigned char spt; {* 
unsigned char tpc; {* 
unsigned char cpd_lsb; /* 


unsigned char cpd_msb; /* 


/* next three bytes are for 


unsigned char nblk_lsb; /* 
unsigned char nblk nsb; /* 
unsigned char nblk_msb; /* 
char f111[88]; {* 


virtual drive to another. 


mcount. 


ee + F FF Hh 


xf 
struct copyparam { 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 
unsigned char 


command; 
srcvd; 
lsrestart: 
msrcstart; 
filli; 
destvd; 
ldeststart; 
mdeststart; 
£1112; 
1count; 
mcount; 
chksum; 

he 


#define TAPEVD 9 


the disk can be divided into virtual drives 1-7. 
returns a non-zero status then the amount that was not copied is 
specified in 10 bytes corresponding to the bytes from srcvd to 
These blocks can be transferred using normal reads and 
writes (in start/stop mode). 


firmware message */ 

revision number */ 

ROM version */ 

are for entire disk */ 

sectors per track */ 

tracks per cylinder */ 

cylinders per drive (least sig byte) */ 
cylinders per drive (most sig byte) */ 
specific virtual drive */ 

in 512-byte blks 
capacity in 512-byte blks 
capacity in 512-byte blks 
fill to 128 bytes */ 


capacity 


This block is used to issue a copy command which copies from one 


The tape unit is virtual drive 9, and 
If the command 


/* copy command = 0xE3 */ 

source virtual drive */ 

source starting sector */ 

source starting sector */ 

upper byte of starting sector */ 
destination virtual drive */ 
destination starting sector */ 
destination starting sector */ 
upper byte of starting sector */ 
sector count for copy */ 

sector count for copy */ 

all 12 bytes add to zero */ 


i*® 
‘* 
{* 
/* 
/* 
/* 
/* 
/* 
/* 
{* 


{least sig byte) */ 
(next sig byte) */ 
(most sig byte) */ 
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/* 
x {C) 1984 UniSoft Corp. of Berkeley CA 

*x 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

*f 

#define PRNSWAP 2409 /* swap size for ProFile */ 
#define CVNSWAP 3959 /* swap size for Corvus */ 


#define PMNSWAP 4000 /* swap size for Priam */ 


acct. 
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/* @(#}acct.c 1.2 */ 


#include 
#include 
#include 
#include 
#include 
$include 
#include 
#include 
tinclude 
#include 


/* 
* Perfo 
xf 


sysacct ( 
{ 


} 
/* 


“sys/param.h" 
“sys/types.h" 
"“sys/systm.h® 
"“sys/acct.h" 


: 
“sys/dir.h" 


“sys/signal.h" 
“sys/user.h"™ 
“sys/errno.h" 
*sys/inede.h" 
“sys/file.h" 


mm process accounting functions. 


} 


register struct inode *ip; 
register struct a { 
char *finame; 
} *uap; 
static aclock; 


uap = (struct a *)u.u_ap; 
if (aclock || !suser()) 
return; 
aclockt+t+; 
switch (uap->fname) { 
case NULL: 
if (acetp) { 
plock (acctp) ; 
iput (acctp) ; 
acctp = NULL; 
} 


break; 
default: 
if {acctp) { 
u.u_error = EBUSY; 
break; 
} 
ip = namei(uchar, 0); 
if {ip = NULL) 
break; 
if { (ip->i_mode & IFMT) != IFRESG) 
u.u_error = EACCES; 
else 
(void) access{ip, IWRITE); 
if (u.u_error) { 
iput (ip); 
break; 
} 
acctp = ip; 
prele(ip): 
} 
aclock--; 


* On exit, write a record on the accounting file. 


*f 
acct (st) 
{ 


register struct inode *ip; 
register struct user *up; 
register struct acct *ap; 
off_t siz; 


if ({ip=acetp) == NULL) 
return; 

up = &u; 

plock (ip); 

ap = éacctbuf; 


beopy ((caddr_t)up->u_comm, (caddr_t)ap->ac_comm, sizeof{ap->ac_comm)): 


ap~>ac_btime = up->u_start; 
ap->ac_utime = compress (up->u_utime); 


ap~>ac_stime = compress (up->u_stime); 


ap->ac_etime = compress(lbolt - up->u_ticks); 


ap->ac_mem = compress (up->u_mem) ; 
ap->ac_io = compress (up->u_ioch) ; 
ap->ac_rw = compress (up->u_lor+up->u_iow) ; 
ap->ac_ uid = up->u_ruid; 

ap->ac_gid = up->u_rgid; 


ap->ac_tty = up->u_ttyp 2? up->u_ttyd : NODEV; 


ap->ac_stat = st; 
ap->ac_flag = up->u_acflag; 
siz = ip->i_size; 
up->u_offset = siz; 
up->u_base = (caddr_t)ap; 
up~>u_count = sizeof (acctbuf); 
up->u_segflg = 1; 
up->u_error = 0; 
up->u_limit (daddr_t)5000; 
up->u_fmode = FWRITE; 
writei (ip); 
if (up->u_error) 

ip->i_size = siz; 
prele({ip); 


il 


} 


/* 
* Produce a pseudo-floating point representation 
* with 3 bits base-8 exponent, 13 bits fraction. 
*f 

compress (t} 

register time _t t; 

{ 

register exp = 0, round = @; 


while {t >= 8192) { 


exptt; 
round = té04; 
t >>= 3; 
} 
if (round) { 
ttt; 
if (t >= 8192) { 
t >>= 3; 
exptt+; 


} 
} 
return ( {exp<<13) + t); 
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{* af.c 4.7 82/10/17 */ 
#include “sys/param.h" 
#include “sys/config.h" 
#include "“sys/errno.h" 
#include “sys/types.h" 
#include “sys/systm.h"™ 
#include “net/misc.h" 
#include “net/socket.h" 
#include “net/socketvar.h" 
#include “"net/mbuf.h" 
#include “net/protosw.h" 
#include “net/af.n" 


fk 

* Address family support routines 
xf 
int null_hash(}, null_netmatch(); 


#define AFNULL \ 
{ null_hash, null _netmatch } 


#ifdef INET 
extern int inet_hash(), inet_netmatch(); 
#define AFINET \ 

{ inet_hash, inet_netmatch } 


felse 

#define AFINET AFNULL 
#endif 

#ifdef PUP 


extern int pup_hash{(), pup_netmatch (); 
#define AFPUP \ 


{ pup_hash, pup netmatch } 
felse 
#define AFPUP AFNULL 
#endif 


struct afswitch afswitch{AF_ MAX] = { 
AFNULL, AFNULL, AFINET, AFINET, AFPUP, 
AFNULL, AFNULL, AFNULL, AFNULL, AFNULL, 
AFNULL 


1 


fs 
/*BARGSUSED*/ 
null_hash(addr, hp) 


struct sockaddr *addr; 
struct afhash *hp; 


hp->afh_nethash = hp->afh_hosthash = 0; 
} 


/*ARGSUSED* / 
null _netmatch{al, a2) 

struct sockaddr *al, *a2; 
{ 


return (0); 


alloc.c 


Fri Sep 5 19:07:46 1986 


/* @(#j)alloc.c 1.4 */ 
“sys/param.h" 
“sys/types.h" 
“sys/sysmacros.h" 
“sys/systm.h" 
“sys/mount.h" 
“sys/filsys.h" 
“sys/fblk.h" 
“sys/buf.h" 
“sys/inode.h" 
“sys/file.h" 
“sys/ino.h" 
“sys/dir.h® 
“sys/signal.h" 
“sys/user.h® 
“sys/errno.h" 
“sys/var.h' 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
$include 
#include 
sinclude 
#include 
#include 
#include 
#include 
#include 


/* 


s bs Fe OF 


*/ 


struct buf * 


allocide 
dev_t de 


{ 


nospace: 


Vv) 
Ve 


alloc will obtain the next available free disk block from the free list 
of the specified device. 

The super block has up to NICFREE remembered free blocks; 
the last of these is read to obtain NICFREE more . 


no space on dev x/y -- when the free list is exhausted. 


register daddr_t bno; 
register struct filsys *fp; 
register struct buf *bp; 


fp = getfs (dev); 
while (fp->s_flock) 


do { 


{void) sleep((caddr_t)&fp->s_flock, PINOD); 


if (fp->s_nfree <= 0) 

goto nospace; 
bno = fp->s_free[{--fp->s_ nfree]; 
if (bno = 0) 

goto nospace; 


} while (badblock(fp, bno, dev)); 
if (fp->s_nfree <= 0) { 


bee 


} 


£ (fp->s_nfree <= 0 {|} fp->s_nfree > NICFRES) 


fp->s_flock++; 
bp = bread({dev, bno); 
if (u.u_error = 0) { 
fp->s_ nfree = (bp->b_un.b fblk)->df_nfree; 
beopy ((caddr_t) (bp->b_un.b fblk)->df_free, 
(caddr_t)fp->s_free, sizeof(fp->s_free)); 
} 
brelse (bp); 
/* 
* Prevent "dups in free" 
*/ 
bp = getblk{dev, SUPERB); 


beopy ((caddr_t)fp, bp->b_un.b addr, sizeof(struct filsys)); 


fp->s_fmod = 0; 

fp->s_ time = time; 

bwrite (bp): 

fp->s_ flock = 0; 

wakeup ((caddr_t)éfp->s_ flock); 


ms 


prdev("Bad free count", dev); 
goto nospace; 


bp = getblk(dev, bno); 

clrbuf (bp); 

if (fp->s_tfree) fp->s_tfree--; 
fp->s_ fmod = 1; 

return (bp): 


fp->s_nfree = 0; 


fp->s_tfree = 0; 

delay (v.v_hz<<2); 
prdev("no space", dev); 
u.u_error = ENOSPC; 


return (NULL); 
a 


[* 


* place the specified disk block back on the free list of the 


* specified device. 
xf 
free(dev, bno) 
dev_t dev; 
daddr_t bno; 
{ 
register struct filsys *fp; 
register struct buf *bp; 


fp = getfsidev); 
fp->s_fmod = 1; 
while (fip->s_flock) 


(void) sleep({(caddr_t)&fp->s_ flock, PINOD); 


if (badblock(fp, bno, dev)) 
return; 

if (fp->s_nfree <= 60) { 
fp->s_nfree = 1; 
fp->s_ free[0] = a; 

} 

if (fp->s_nfree >= NICFREE) { 
fp->s_ flockt++; 
bp = getblk(dev, bno); 


(bp->b_un.b fblk)~->df_nfree = fp->s_nfree; 


beopy{(caddr_t)fp->s_ free, 


(caddr_t) (bp->b_un.b fblk)->df_free, 


sizeof (fp->s_free)); 

fp->s nfree = 0; 

bwrite (bp); 

fp->s_ flock = 0; 

wakeup ((caddr_t)&fp->s_ flock); 
} 
fp->s_ free[fp->s_ nfreet+] = bno; 
fp->s_tfreett+; 
fp->s_fmod = 1; 


and the size of the device. 
This is used mainly to check that a 
garbage file system has not been mounted. 


Le ed 


bad block on dev x/y -- not in range 
*/ 

badblock(fp, bn, dev) 

register struct filsys *fp; 

daddr_t bn; 

dev_t dev; 

{ 


if (bn < fp->s_isize || bn >= fp->s_fsize) { 
prdev ("bad block", dev); 
return(1); 

} 

return (0); 


Me 


Allocate an unused I node on the specified device. 
Used with file creation. 


+ * 2 OH 


* 


I list is instituted to pick up NICINOD more. 
x/ 

struct inode * 

ialloc({dev, mode, nlink) 

dev_t dev; 


Check that a block number is in the range between the I list 


The algorithm keeps up to NICINOD spare I nodes in the 
super block. When this runs out, a linear search through the 
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loop: 


register struct filsys *fp; 
register struct inode *ip; 
register i; 

register struct buf *bp; 
struct dinode *dp; 

ino_t ina; 

daddr_t adr; 


fp = getfs(dev); 


while (fp->s ilock) 
(void) sleep({caddr_t)&fp->s_ilock, PINOD); 
if (fp->s_ninode > 0 
&& (ino = fp->s_inode[--fp->s_ninode])) { 
ip = iget(dev, ino); 
if (ip — NULL) 
return (NULL); 
if (ip->i_mode = 0) { 
/* found inode: update now to avoid races */ 
ip->i_mode = mode; 
ip->i_nlink = nlink; 
ip->i_flag |= IACC|IUPD| ICHG| ISYN; 
ip->i_uid = u.u_uid; 
ip->i_gid = u.u_gid; 
ip->i_size = 0; 
for (i=0; i<NADDR; i++) 
ip->i_addr[i] = 6; 
if (fp->s_tinode) fp->s_tinode--; 
fp->s_fmod = 1; 
iupdat (ip, &time, &time); 
return(ip); 
} 
/* 
* Inode was allocated after all. 
* Look some more. 
*f 
iupdat(ip, &time, étime); 
iput (ip): 
goto loop; 


d 
a 


fp->s_ ilock+t; 
fp->s_ninode = NICINOD; 
ino = FsINOS(dev, fp->s_inode[0]); 
for (adr = FsITOD(dev, ino); adr < fp->s_isize; adr++) { 
bp = bread(dev, adr); 
if (u.u_lerror) { 
brelse (bp); 
ino += FsINOPB (dev) ; 
continue; 
} 
dp = bp->b_un.b dino; 
for(i=0; i<FPsINOPB(dev); it+,inot+,dptt) { 
if (fp->s_ninode <= 0) 
break; 
if (dp->di_mode == 0) 
fp->s_inode[--fp->s_ninode] = ino; 
} 
brelse (bp); 
if (fp->s_ninode <= 0) 
break; 
} 
fp->s_ilock = 0; 
wakeup ((caddr_t)&fp->s_ilock); 
if (fp->s_ninode > 0) { 
fp->s_inode[fp->s_ninode-1] = 0; 
fp->s_inode[@] = 0; 
} 
if (fp->s ninode != NICINOD) { 
fp->s_ninode = NICINOD; 
goto loop; 
} 
fp->3s_ninode = 0; 
prdev("Out of inodes", dev); 
u.u_error = ENOSPC; 
fp->s_tinede = 0; 


return (NULL) ; 
} 


i* 
* Free the specified I node on the specified device. 
* The algorithm stores up to NICINOD I nodes in the super 
* block and throws away any more. 
*f 
ifree(dev, ino) 
dev t dev; 
ino t ino; 
{ 
register struct filsys *fp; 


fp = getfs (dev); 

fp->s_tinodett; 

1f (fp->s_ilock) 
return; 

fp->s_fmod = 1; 

if (fp->s_ninode >= NICINOD) { 
if (ino < fp->s_inode[0}) 

fp->s_inode[0] = ino; 

return; 

} 

fp->s_inode[fp->s_ninode++] = ino; 


{* 
* getfs maps a device number into a pointer to the incore super block. 
* The algorithm is a linear search through the mount table. 

* BK consistency check of the in core free-block and i-node counts. 


« 
* bad count on dev x/y ~~ the count 
* check failed. At this point, all 
7 the counts are zeroed which will 
* almost certainly lead to "no space" 
x diagnostic 
* panic: no fs -- the device is not mounted. 
* this “cannot happen" 
*} 
struct filsys * 
getfs{dev) 


dev _t dev; 

{ 
register struct mount *mp; 
register struct filsys *fp; 


for(mp = émount[{0]; mp < (struct mount *)v.ve_mount; mpt++) 
if (mp->m_flags == MINUSE && mp->m_dev == dev) { 
fp = mp->m_bufp->b_un.b filsys; 
if (fp->s_nfree > NICFREE || fp->s_ninode > NICINOD) { 
prdev("bad count", dev); 
fp->s _nfree = 0; 
fp->s_ninode = 0; 
} 
return{fp); 
} 
panic("no fs"); 
return (NULL) ; 


{* 
* update is the internal name of ’sync’. It goes through the disk 

* queues to initiate sandbagged 10; goes through the I nodes to write 

* modified nodes; and it goes through the mount table to initiate modified 
* super blocks. 

*/ 

update () 

{ 


register struct inode *ip; 
register struct mount *mp; 
register struct filsys *fp; 
register struct user *up; 

static struct inode uinode; 


if (uinode.i_fiag) 


alloc.c Fri Sep 5 19:07:46 1986 


return; 
up = éu; 
uinode.i flagt+; 
uinode.i mode = IFBLK; 
for(mp = 4amount[0]; mp < {struct mount *)v.ve_mount; mptt+) 
if (mp->m_flags == MINUSE) { 
fp = mp->m_bufp->b_un.b filsys; 
if (fp->s_fmod==0 || fp->s_ilock!=6 || 
fp->s_flock!=0 || fp->s_ronly!=0) 
continue; 
fp->s_fmod = 0; 
fp->s_time = time: 
uinode.i rdev = mp->m_dev; 
up->u_error = 0; 
up->u_offset = SUPERBOFF; 
up->u_count = sizeof(struct filsys); 
up->u_base = (caddr_t) fp; 
up->u_segflg = 1; 
up->u_fmode = FWRITE|FSYNC; 
writei (4uinode) ; 
} 
for(ip = &inode[0]; ip < (struct inode *)v.ve_inode; ipt+) 
if ((ip->i_flag&ILOCK)==0 && ip->i_count!=0 
&& (ip->i_flagé (IACC|IUPDJICHE))) { 
ip->i_flag |= ILOCK; 
ip->i_count++; 
iupdat(ip, étime, étime); 
iput (ip); 
} 
bflush (NODEV} ; 
uinode.i_flag = 6; 
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/* @(#)blo.c 1.7 */ 
f#include "sys/param.h" 
#include “sys/types.h" 
#include “sys/mmu.h* 
finclude “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/sysinfo.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
f#include “sys/user.h" 
#include “sys/errno.h" 
Sinclude “sys/buf.h" 
#include "sys/iobuf.h" 
#include “sys/conf.h" 
#include “sys/proc.h" 
#include “sys/seg.h" 
#include “sys/var.h" 
#include “sys/scat.h" 


f* 
* swap IO headers. 
xf 
struct buf swbuf [NSWB] > 
{* 
* The following several routines allocate and free 
* buffers with various side effects. In general the 
* arguments to an allocate routine are a device and 
* a block number, and the value is a pointer to 
* to the buffer header; the buffer is marked “busy"™ 
* so that no one else can touch it. If the block was 
* already in core, no I/O need be done; if it is 
* already busy, the process waits until it becomes free. 
* The following routines allocate a buffer: 
* getblk 
~ bread 
* breada 
* Eventually the buffer must be released, possibly with the 
* side effect of writing it out, by using one of 
* bwrite 
x bdwrite 
* bawrite 
* brelse 
af 
/* 


* Unlink a buffer from the available list and mark it busy. 
* (internal interface} 


*/ 

#define notavail (bp) \ 

{\ 
register s;\ 

\ 
Ss = spl6():\ 
bp->av_back->av_forw = bp->av_forw; \ 
bp->av_forw->av_back = bp->av_back;\ 
bp->b_flags |= B_BUSY;\ 
bfreelist.b bcount-~;\ 
splx(s);\ 

} 

je 


* Pick up the device’s error number and pass it to the user; 
* if there is an error but the number is 0 set a generalized 
* code. Actually the latter is always true because devices 
* don’t yet return specific errors. 


*/ 
#define geterror (bp) \ 

t\ 

if (bp->b_flags&B_ERROR) \ 
Lf ((u.u_error = bp->b_ error) ==0)\ 
u.u_error = EIO;\ 

} 
/* 


* Read in (if necessary) the block and return a buffer pointer. 


xf 

struct buf * 
bread(dev, blkno)} 
dev_t dev; 


daddr_t blkno; 


t 
t 


register struct buf *bp; 


sysinfo.lreadtt+; 
bp = getblkidev, blkno); 
if (bp->b_flags&B DONE) 
return (bp); 

bp->b_flags |= B_READ; 
bp->b_beount = FsBSI2Z5 (dev); 
(*bdevsw {bmajor (dev) ].d_strategy) (bp); 
u.u_iort++; 
sysinfo.breadt+; 
iowait (bp); 
return (bp); 

} 


j* 

* Read in the block, like bread, but also start I/O on the 
* yead-ahead block (which is not allocated to the caller) 
xf 

struct buf * 

breada(dev, blkno, rablkno) 

dev_t dev; 

daddr_t blkno, rablkno; 

{ 

register struct buf *bp, *rabp; 


bp = NULL; 
if (!incore(dev, bikno)) { 
sysinfo.lreadt+; 
bp = getblkidev, blkno); 
if ((bp->b_flags&B_ DONE) == 0) { 
bp->b_ flags |= B_READ; 
bp->b_bcount = FsBSIZE (dev); 
(*bdevsw [bmajor (dev) ].d_strategy) (bp) ; 
uu iortt; 
sysinfo.breadtt; 
} 
} 


if (rablkno && bfreelist.b bcount>l && !incore(dev, rablkno)) { 


rabp = getblik(dev, rablkno); 
if (rabp->b_flags & B_DONE) 
brelse(rabp); 
else { 
rabp->b_flags |= B_READ|B_ASYNC; 
rabp->b_bcount = FsBSI2E (dev); 
(*bdevsw [bmajor (dev) ].d_strategy) (rabp) ; 
u.u_lor++; 
sysinfo.breadt++; 
} 
} 
if (bp == NULL) 
return(bread (dev, blkno)); 
iowait (bp); 
return (bp) ; 
} 


f* 

* Write the buffer, waiting for completion. 
* Then release the buffer. 

*/ 

bwrite (bp) 

register struct buf *bp; 

t 


i 


register flag; 


sysinfo.lwritet+; 

flag = bp->b_flags; 

bp->b flags é= ~(B READ | B_DONE | B_ERROR | B_DELWRI); 
(*bdevsw{bmajor (bp->b_dev)].d_strategy) (bp); 

u.u_iowt+; 
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sysinfo.bwritett; 
if ((flag&B_ASYNC) == 0) { 
iowait (bp); 
brelse (bp) ; 
} else if (flag & B_DELWRI) 
bp->b flags |= B AGE; 
else 
geterror (bp); 


/* 
* Release the buffer, marking it se that if it is grabbed 
* for another purpose it will be written out before being 
* given up (e.g. when writing a partial block where it is 
* assumed that another write for the same block will soon follow). 
* This can’t be done for magtape, since writes must be done 
* in the same order as requested. 
xf 
bdwrite (bp) 


register struct buf *bp; 
{ 


sysinfo.lwritett+; 
bp->b flags |= B_DELWRI | B DONE; 
bp->b_resid = 0; 
brelse (bp); 
} 


/* 
* Release the buffer, start I/O on it, but don’t wait for completion. 
*f 

bawrite (bp) 

register struct buf *bp; 

{ 


if (bfreelist.b bcount>4) 
bp->b_flags |= B_ASYNC; 
bwrite (bp); 
} 


fr 
* release the buffer, with no I/O implied. 
af 
brelse (bp) 
register struct buf *bp; 
{ 
register struct buf **backp; 
register s; 


if (bp->b_flagséB WANTED) 
wakeup ((caddr_t)bp); 

if (bfreelist.b flags&B WANTED) { 
bfreelist.b flags &= ~B_WANTED; 
wakeup ( (caddr_t) &bfreelist) ; 

} 

1f (bp->b_flags&B ERROR) { 
bp->b flags |= B_STALE|B AGE; 
bp->b_flags &= ~(B_ERROR|B DELWRI); 
bp->b_error = 0; 

} 


/* Put buffer on freelist, at the beginning if B_AGE, otherwise at the end. */ 


s = spl6({); 

if (bp->b_flags & B_AGE) { 
backp = &bfreelist.av_forw; 
(*backp)->av_back = bp; 
bp->av_forw = *backp; 
*yackp = bp; 
bp->av_back = ébfreelist; 

} else { 
backp = ébfreelist.av_back; 
(*backp)->av_forw = bp; 
bp->av_back = *backp; 
*pbackp = bp; 
bp->av_forw = ébfreelist; 


} 
f* 


} 

bp->b_ flags &é= ~(B_WANTED|B BUSY|B ASYNC|B AGE); 
bfreelist.b bcount++; 

splx(s); 


* See if the block is associated with some buffer 
* (mainly to avoid getting hung up on a wait in breada) 


xf 


incore (dev, blkno) 
register dev_t dev: 
daddr_t bikno; 


{ 


{* 


register struct buf *bp; 
register struct buf *dp; 


blkno = FsLTOP (dev, blkno); 
dp = bhash{dev, blkno); 
for (bp=dp->b_forw: bp != dp; bp = bp->b_forw) 
if (bp->b_bl kno==blkno && bp->b_dev==dev && (bp->b_flagsé&B_STALE)==0) 
return (1); 
return (0); 


* Assign a buffer for the given block. If the appropriate 
* block is already associated, return it; otherwise search 
* for the oldest non-busy buffer and reassign it. 


af 


struct buf * 
getblki(dev, bikno) 
register dev_t dev; 
daddr_t blkno; 


{ 


register struct buf *bp; 
register struct buf *dp; 


blkno = FsLTOP (dev, blkno); 


loop: 


SPLO();: 
ap = bhash(dev, blkno); 
if (dp — NULL) 
panic(“devtab") ; 
for (bp=dp->b_forw; bp != dp; bp = bp->b_forw) { 
if (op->b_blkno!=blkno || bp->b devi=dev || bp->b_flags&B_STALE) 
continue; 
SPL6(): 
if (bp->b_flagséB BUSY) { 
bp->b_ flags |= B_WANTED; 
syswait .iowaitt++; 
(void) sleep((caddr_t)bp, PRIBIO+t2); 
syswait.iowait--; 
goto loop; 
} 
SPLO(); 
notavail (bp) ; 
return (bp); 
} 
SPL6(); 
if (bfreelist.av_forw == &bfreelist) { 
bfreelist.b flags |= B_WANTED; 
(void) sleep((caddr_t)&bfreelist, PRIBIO+1); 
goto loop; 
} 
SPLO(); 
bp = bfreelist.av_forw; 


#ifdef OLD 


#felse 


notavail (bp); 

if (bp->b_flags & B_DELWRI) { 
bp->b_flags [= B_ASYNC; 
bwrite (bp); 
goto loop; 

} 


if (bp->b_flags & B_DELWRI) { 
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bflush (NODEV) ; 
goto loop; 
} 
notavail (bp); 
fendif 
bp->b_flags = B_BUSY; 
bp->b_back->b_forw = bp->b_forw; 
bp->b_forw->b_back = bp->b_back; 
bp->b_forw = dp->b_forw; 
bp->b_back = dp; 
dp->b_forw->b_back = bp; 
dp->b fory = bp; 
bp->b_dev = dev; 
bp->b_blkno = blkno; 
bp->b_bcount = FsBSIZB (dev); 
return (bp) ; 
} 


fr 
* get an empty block, 
* not assigned ta any particular device 
xf 
struct buf * 
geteblk() 
{ 
register struct buf *bp; 
register struct buf *dp; 


loop: 

SPL6(); 

while (bfreelist.av_forw == abfreelist) { 
bfreelist.b flags |= B_WANTED; 
(void) sleep({caddr_t)abfreelist, PRIBIO+1); 

} 

SPLO(); 

dp = é&bfreelist: 

bp = bfreelist.av_forw; 

notavail (bp); 

if (bp->b_flags & B_DELWRI) { 
bp->b_flags |= B_ASYNC; 
byerite {bp}; 
goto loop; 

} 

bp->b_flags = B_BUSY|B_AGE; 

bp->b_back~->b_forw = bp->b_forw; 

bp->b_forw->b_back = bp->b_back; 

bp->b_forw = dp->b_ forw; 

bp->b_back = dp; 

dp->b_forw->b_ back = bp; 

dp~>b_forw = bp; 

bp->b_dev = (dev_t) NODEV; 

bp->b_bcount = SBUFSIZE; 

return (bp) ; 

} 


{* 

* Wait for I/O completion on the buffer; return errors 
* to the user. 

af 
lowait (bp) 
register struct buf *bp; 

{ 


syswait.iowaitt++; 
SPL6(); 
while ((bp->b flagséB DONE) ==0) 
{void) sleep((caddr_t)bp, PRIBIO); 
SPLO(); 
syswait.jlowait--; 
geterror (bp); 
} 


/* 


* and wake up anyone waiting for it. 
xf 


ous, 


iodone (bp) 
register struct buf *bp; 


{ 


} 


/ 


* 


bp->b_flags |= B_DONE; 

Lf (bp->b_flags&B ASYNC) 
brelse (bp); 

else { 
bp->b_flags &= ~B_WANTED; 
wakeup ((caddr_t)bp); 


* Zero the core associated with a buffer. 


xf 


clrbuf (bp) 
struct buf *bp; 


{ 


} 


i* 
* swap I/O 


*/ 


clear {(caddr_t)bp->b_un.b words, (int) bp->b_bcount) ; 
bp->b_resid = 0; 


swap(blkno, coreaddr, count, rdflg) 
daddr_ t blkno; 
register coreaddr, count; 


{ 


static struct buf *sbp; 
register struct buf *bp; 
register int c; 


#ifdef SWAPTRACE 


printf("SWAP ts %d disk=0x%x core=Ox%x\n", 
{rdfilg—=B_ READ) 2?“IN":"OUT", count, blkno, coreaddr); 


#endif SWAPTRACE 


syswait.swaptt; 
if (sbp==NULL) 
sbp = éswhuf![0]; 
bp = sbptt; 
if (sbp > éswbuf[NSWB-1)]) 
sbp = «&swbuf[0]; 
SPL6(); 
while (bp->b_flags&B_ BUSY) { 
bp->b_flags |= B_WANTED; 
(void) sleep({(caddr_t)bp, PSWPt1); 
} 
bp->b_flags = B BUSY | B_PHYS | rdflq; 
SPLO(); 
bp->b_ dev = swapdev; 


#ifdef NONSCATLOAD 


bp->b_un.b addr = (caddr_t)ctob(coreaddr); 
while (count > 0) { 
if (count <= btoc(MAXCOUNT)) 
c = count; 
else 
c = btoc(MAXCOUNT) ; 
bp->b_bcount = ctob(c); 
bp->b_blkno = swplotblkno; 
(*bdevsw[ (short) bmajor (swapdev) ].d_strategy) (bp); 
u.u_loswtt; 
if (rdflg) { 
sysinfo.swapint+; 
sysinfo.bswapin += ctod(c); 
} else { 
sysinfo.swapout++; 
sysinfo.bswapout += ctod{c): 
} 
SPL6(}; 
while((bp->b flags&B_ DONE) ==0) 
(void) sleep((caddr_t)bp, PSWP); 
SPLO({); 
bp->b_un.b addr += ctob(c); 
bp->b_flags &= ~B_ DONE; 
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#else 
#define sindex coreaddr 
while (count > Q) { 
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if (bp->b flags & B_ERROR} 
panic("IO err in swap"); 

count -= c; 

blkno += ctod(c); 


if (sindex == SCATEND) { 
printf ("swap error:swapping beyond process\n"); 
break; 

} 

c = memcontig(sindex, count); 

bp->b_un.b addr = (caddr_t)ctob(ixtoc(sindex)); 

bp->b_beount = ctob{c); 

bp->b_blkno = swplotblkno; 


#ifdef SWAPTRACE 


printf (" SWAP $s td disk=O0x%x sindex=0x%x\n", 
(rdflg==B_READ) 2"IN":"OUT", c, blkno, sindex); 


#fendif SWAPTRACE 


} 


#endif 


(*bdevsw[ (short) bmajor (swapdev) ].d_strategy) (bp); 
u.u_ioswt+; 
if (rdflg) { 
sysinfo.swapin+t+; 
sysinfo.bswapin t= ctodic); 
} else { 
sysinfo.swapoutt++; 
sysinfo.bswapout t= ctod(c); 
} 
SPL6()> 
while((bp->b_flags&B_ DONE) ==0) 
(void) sleep((caddr_t)bp, PSWP); 
SPLO(): 
bp->b_flags &= ~B_DONE; 
if (bp->b_flags & B_ERROR) 
panic("IO err in swap"); 
count -= c; 
blkno t= ctodic); 
while (c-- > 6 && sindex != SCATEND) 
sindex = scatmap[sindex].sc_index; 


if (bp->b_flags&B_ WANTED) 


wakeup ((caddr_t) bp); 


bp->b flags &= ~(B_BUSY|B WANTED|B PHYS); 
syswait.swap--; = ~ 
#ifndef NONSCATLOAD 

return (sindex); 


#endif 


} 
/* 


* 
* 
x 
* 
*f 

bil 


make sure all write-behind blocks 
on dev (or NODEV for all) 

are flushed out. 

(from umount and update) 


ush (dev) 


dev_t dev; 


{ 


register struct buf *bp; 


SPLE(); 


for (bp = bfreelist.av_forw; bp != &bfreelist:) { 


} 
SPLO{); 


if (bp->b_flags&B DELWRI && (dev == NODEV| |dev==bp->b dev)) { 
bp~>b_ flags |= B ASYNC; 
notavail (bp); 
bwrite (bp); 
SPL6(); 
bp = bfreelist.av_forw: 
} else { 
if (bp->av_forw) bp = bp->av_forw; 
else panic("bflush: bad free list\n"); 


{* 
x 
* 
* 
* 
* 


* 


Raw I/O. The arguments are 


The strategy routine for the device 

A buffer header, sometimes of a special type owned by the 
device, and sometimes from the physio pool of headers. 
The device number 

Read/write flag 


* Essentially all the work is computing physical addresses and 
* validating then. 


*/ 


physio(strat, bp, dev, rw) 
register struct buf *bp; 
int (*strat) (Q); 


{ 


bad: 


cont: 


#ifndef 


tendif 


register struct user *up; 
register struct proc *p; 

register unsigned base; 

register unsigned limit; 

register unsigned dsstart, dsend; 
int hpf; 


up = &u: 
Pp = up->u_procp; 
base = (unsigned) up->u_base; 


dsstart = v.v_ustart + ctob(stoc(ctos(up~>u_tsize))); 
dsend = dsstart + ctob(up->u_dsize); 
limit = base + up->u_count - 1; 


fe 
* Check that transfer is either entirely in the 
* virtual data space or in the virtual stack space 
xf 


if (limit < base) 
goto bad; 

if {base >= dsstart && limit < dsend) 
goto cont; 

if (base >= v.v_uend - ctob(up->u_ssize) && limit < v.v_uend) 
goto cont; 

if (rw != BREAD && base >= v.v_ustart &4& 

limit < v.v_ustart + ctob(up->u_tsize)) 

goto cont; 

if (chkphys({int)base, limit)) 
goto cont; 


/* wraparound, base < 0, count <= 0 */ 


up->u_error = EFAULT; 
return; 


if (rw) 
sysinfo.phread++; 
else 
sysinfo.phwritet+; 
syswait.physiott+; 
NONSCATLOAD 
Lf ((p->p_flag&SCONTIG)==0) { 
p->p_flag |= SSWAPIT; 
if (runout) { 
runout = 0; 
wakeup((caddr_t) érunout); 
} 
if (runin) { 
runin = 0; 
wakeup ((caddr_t)&runin); 
} 
SPL6(); 
while ((p->p_flag&éSCONTIG)==0) 
(void) sleep((caddr_t)scatmap, PRIBIO); 
} 


hpf = (bp = NULL); 
SPL6({); 
if (hpf) { 
while ((bp = pfreelist.av_forw) == NULL) { 


clist.c 


/* @(#)clist.c 1.2 */ 
f#include “sys/param.h" 
#include “sys/types.h" 
#include “sys/tty.h" 


getcitp} 


register struct clist *p; 


{ 


register struct cblock *bp; 
register int c; 


#ifdef mc68000 


fx 
* Note use of dé 
*f 


#ifndef lint 


#endif 


#else 


#endif 


register int s = Q; 


asm({" movw sr, a6") ; 
asm(" movw #0x2600,sr"); 


register int s; 
S = spl6(); 


1f (p->e_cce > 0) { 
pr>c_ce--; 
bp = p->c_cf; 
c = bp->c_data[bp->c_first++] &0377; 
if (bp->c_first == bp->c_last) { 


if ((p->c_cf = bp->c_next) == NULL) 


p->c_cl = NULL; 
bp->c_next = cfreelist.c_next; 
cfreelist.c_next = bp; 
if (cfreelist.c_flag) { 
cfreelist.c flag = 0; 


wakeup((caddr_t)&cfreelist); 


} else 
c=-l; 

#ifdef mc63000 

asm(" mova d6,sr"); 
#else 

splx(s); 
#endif 

return(c); 
} 
pute(c, p) 


register struct clist *p; 


{ 


register struct cblock *bp, *obp; 


#ifdef mc6s000 


fe 
* Note use of d? 
*f 


#ifndef lint 


#endif 


#else 


tendif 


register int s = 0; 
asm(" movw sr,d7"); 
asm(" movw #0x2600, sr"); 


register int s; 
s = spl6(); 


Lf ((bp = p->c_cl) == NULL || bp->c_last == (char)cfreelist 


obp = bp; 
if ((bp = cfreelist.c next) == NULL) { 


#ifdef mc6é8000 


#else 


asm({" movw d7,sr"); 
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-c_size) { 


splx{s); 
tendif 
return(-1); 
} 
cfreelist.c_next = bp->c_next; 
bp->c_next = NULL; 
bp->c_first = 0; bp->c_last = 0; 
if (obp == NULL) 
p->c_cf = bp; 
else 
obp->c_next = bp; 
p->c_cl = bp; 
} 
bp~->c_data[bp->c_last++] = c; 


p->c_ccet++; 
#ifdef mc68000 
asm(" movw da7,sr"); 
telse 
splx(s); 
tendif 
return (0); 
} 


struct cblock * 

getcf () 

{ 
register struct cblock *bp; 
register struct chead *cf; 


#ifdef mc6s8000 
7* 
* Note use of d7 
xf 
#ifndef lint 
register int s = 0; 
tendif 


asm({* movw sr,da7"); 
asm(* movw #0x2600,sr"“); 
#else 
register int s:; 
s = spl6(); 
#endif 


ef = écfreelist; 

if ((bp = cf->c_next) != NULL) { 
cf->c_ next = bp->c_next; 
bp->c_next = NULL; 
bp->c_first = 0; 
bp->c_last = cf->c_size; 

} 

#ifdef mc68006 


asm{" movw d7?,sr™"); 
#else 
splx(s); 
#tendif 
return (bp) ; 
} 
putcf (bp) 


register struct cblock *bp; 


{ 
register struct chead *cf; 


#ifdef mcé68000 
f* 
* Note use of d7 
xf 
#ifndef lint 
register int s = 0; 
#endif 


asm({" movw sr,d7"); 

asm(" movw #0x2600,sr"); 
#else 

register int s; 
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s = splé{); 
tendif 


cf = &cfreelist; 
bp->c_next = cf->c_next; 
ef->c_next = bp; 
if (cf->c_flag) { 
cf->c_flag = 0; 
wakeup{(caddr_t)cf); 
} 
#ifdef mcéso00 
asm(" movw a7,sr"); 
#else 
splx(s); 
fendif 
} 


struct cblock * 
getcb{(p) 
register struct clist *p; 


{ 
register struct cblock *bp; 


#ifdef mcé8600 
i* 
* Note use of d? 
af 
#ifndef lint 
register int s = @; 


#endif 
asm(" move sr, a7"); 
asm(™ mov" #0x2606, sr"); 
#else 
register int s; 
S = Spl6{); 
#endif 


if ((bp = p->c_cf) != NULL) { 
po>c_ce -= bp->c_last - bp->c_first; 
if ((p->c_ef = bp->c_next) == NULL) 
p->c_cl = NULL; 
} 
#ifdef mcé8000 
asm(" movw a7,sx"); 
#else 
splx{s); 
#endif 
return (bp); 
} 


putcb(bp, p)} 
register struct cblock *bp; 
register struct clist *p; 
{ 
#ifdef mc68060 
J* 
* Note use of d7? 
xf 
#ifndef lint 
register int s = 0; 


fendif 
asm(™ movw sr,d7"); 
asm(“ movw #0x2600, sr"); 
telse 
register int s; 
Ss = spl6(); 
tendif 


1£ (p->c_cl == NULL) 
p->c_cf = bp; 
else 
p->c_cl->c_ next = bp; 
p->c_cl = bp; 
bp->c_next = NULL; 


1986 


p->c_cc += bp->c_last - bp->c_first; 


#ifdef mc68000 


asm{" movw a7,sxr“); 


#else 

Splx(s); 
gendif 
} 


#ifdef notdef 
getcbp(p, cp, n) 
struct clist *p; 


register char *cp; 


register n; 

{ 
register 
register 
register 
register 


while (n 


} 


n=cp- 
pr>c_ce 
return(n 
} 
tendif 


#ifdef notdef 
putchpip, cp, n) 
struct clist *p; 
register char *c 
register n; 
{ 
register 
register 
register 
register 


struct cblock *bp; 
char *op; 

on; 

char *acp = cp; 


»f 
if ((pp = p->c_cf) == NULL) 
break; 
op = &bp->c_data[bp->c_first]; 
on = bp->c_last - bp->c_first: 
if (n >= on) { 
beopy (op, cp, on); 
cp += on; 
Rh -= on; 
if ((p->c_cf = bp->c_next) == NULL) 
p->c_cl = NULL; 
bp->c_next = cfreelist.c_next; 
cfreelist.c_next = bp; 
} else { 
beopy(op, cp, nm); 
bp->c_first += n; 
cp += n; 
n= 0; 
break; 


acp; 
—n; 


); 


pF 


struct cblock *bp, *obp; 
char *op; 

on; 

char *acp = cp; 


while (n) { 


if ((bp = p->c_cl) == NULL || bp->c_last == cfreelist.c_size) { 


obp = bp; 
if ((bp = cfreelist.c_next) == NULL) 
break; 
cfreelist.c_next = bp->c_next; 
bp->c_next = NULL; 
bp->c_first = 0; bp->c_last = 0; 
if (obp == NULL) 
p->c_cf = bp; 
else 
obp->c_next = bp: 
p->c_cl = bp; 
} 
op = &bp->c_data[bp->c_last]; 
on = cfreelist.c_size - bp->c_last; 
if (n >= on) { 
beopy(cp, op, on); 
cp += on; 


clist.c 


} 
#endif 


} else { 


} 
} 
n= cp - acp; 
p->c_ce += n; 
return (n); 


Fri Sep 


bp->c_last += 
n -= on; 


beopy(cp, op, 
cp += n; 
bp->c_last += 
n= 0; 

break; 
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on; 


3 


mn; 
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/* @(#)clock.c 1.1 */ 
#include “sys/param.h" 
#include “sys/config.h" 
#include "sys/types.h*® 
#include “sys/mmu.h" 
#include "“sys/sysmacros.h"™ 
#include "sys/systm.h" 
#include “sys/sysinfo.h" 
#include “sys/callo.h" 
#include "“sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/proc.h" 
#include “sys/text.h" 
#include “sys/psl.h" 
finclude "“sys/var.h" 
#include “sys/reg.h" 
#ifdef UCB_NET 

#include “"net/misc.h" 
#include "net/protosw.h" 
#include "net/socket.h" 
#include “net/if.h® 
#include “net/in_systm.h" 
#endif 


#ifdef VIRTUAL451 
#define args buserr 
#define a_ps ber_sr 
#define a pc ber pec 
#define a dey ber dev 
#endif 


fe 
* clock is called straight from 

* the real time clock interrupt. 
* 

* Functions: 

reprime clock 

implement callouts 
maintain user/system times 
maintain date 

profile 

alarm clock signals 

jab the scheduler 


7 hb 


af 


#define PRF_ON 01 
extern prfstat; 


time_t time, lbolt; 


#ifidef UCB NET 
/* ~ 


* Protoslow is like lbolt, but for slow protocol timeouts, counting 


* up to (hz/PR_SLOWH2), then causing a pfslowtimo(). 


* Protofast is like lbolt, but for fast protocol timeouts, counting 


* up to (hz/PR_FASTHZ), then causing a pffasttimo(). 
*/ 


extern int protoslow; 
extern int protofast; 
extern int ifnetslow; 
extern short netoff; 
#endif 

clock (ap) 


struct args *ap; 

{ 
register struct callo *pl, *p2; 
register struct user ‘up; 
register struct proc *pp; 
register a, ps; 
static short lticks; 
static rqlen, sqlen; 


/* 


* if panic stop clock 


#endif 


out: 


af 
if (panicstr) { 
clikstop(); 
return; 


up = éu; 

pS = ap->a_ps; 

if (up->u_stack[0} != STKMAGIC) 
panic("Interrupt stack overflow"); 


i¢cR we 
v 


fe 

* Time moves on for protocols. 

*/ 

if({netoff) { 
--protoslow; --protofast; --ifnetslow; 
if(protoslow<=4 || protofast<=0 || ifnetslow<=0) { 

schednetisr (NETISR_CLOCK) ; 

} 


* callouts 

* if none, just continue 

* else update first non-zero time 
xf 


if(callout[0].c_func == NULL) 
goto out; 

p2 = é&callout[d]; 

while(p2->c_time<=6 && p2->c_func!=NULL) 
patti; 

p2->c_time--; 


[* 
* if ps is high, just return 
ay 


if (BASEPRi (ps) } 
goto out; 


/* 
* if any callout active, update first non-zero time 
* then process necessary callouts 
*/ 


spltty(); 
if(callout[0].c_time <= 0) { 
pl = é&callout[0]; 
while(pl->c_func != 0 && pl->c_time <= 0) { 
(*pl->c_func) (pl->c_arg); 
plt+t; 
} 
p2 = &callout[0]; 
while (p2->c_func = pl->c_func) { 
p2->c_time = pl->c_time; 
p2~>c_arg = pl->c_arg; 
pltt; 
p2tt+; 


if (prfstat & PRF_ON) 
prfintr((caddr_t)ap->a_pc, ps); 
if (USERMODE(ps)) { 
a = CPU_USER; 
up->u_utime+t+; 
if (up->u_prof.pr_scale) 
addupc( (unsigned) ap->a_pc, &up=->u_prof, 1); 
} else { 
if (ap->a_dev != 0) { /* dev has old idlefig in it */ 
if (syswait.iowait+syswait.swap+syswait.physio) 
a = CPU_WAIT: 


{ 
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if (syswait.iowait} } 
sysinfo.wait[W_IO]++; } 
if (syswait.swap) 
sysinfo.wait[W SWAP]++; f* 
if (syswait.physio) ~ * timeout is called to arrange that fun(arg) is called in tim/HZ seconds. 
sysinfo.wait[W PIO] ++; * An entry is sorted into the callout structure. 
} else * The time in each structure entry is the number of H2’s more 
a = CPU_IDLE; * than the previous entry. In this way, decrementing the 
} else { ~ * first entry has the effect of updating all entries. 
a = CPU_KERNEL: - 
up->u_stimett; * The panic is there because there is nothing 
* nm 


} 


5 : : : 
intelligent te be done if an entry won't fit. 


} */ 
sysinfo.cpul[a]++; timeout (fun, arg, tim) 
pp = up->u_procp; int (*fun) (); 
if (pp->p_stat==SRUN) { caddr_t arg; 
up~>u_mem += (unsigned) (v.v_usizetprocsize (pp) ); int tin; 
if (pp->p_textp) { { 
a = pp->p_textp->x_ccount; register struct callo *pl, *p2; 
if (a=0 || a=—=1) register int t; 
up->u_mem += pp->p_textp->x_size; int s; 
else 
up->u_mem += t = tim; 
{unsigned short)pp->p_textp->x_size / pl = é&callout [6]; 
{short)a; s = spl7?(); 
} while(pl->c_func != 0 && pl->c_time <= t) { 
} t -= pl->c_time; 
1f (pp->p_cpu < 80) pltt; 
pp->p_cputt; } 
lbolt++t; /* time in ticks */ if (pl >= (struct callo *)v.ve_call-1) 
if {--lticks <= 0) { panic("Timecut table overflow"); 
if (BASEPRI (ps)) pl->c_time -= t; 
return; p2 = pl; 
lticks += v.v hz: while (p2->c_func != 0) 
++time; = p2tt+; 
Lf ((time & 3) == 6) /* entry to load average */ while(p2 >= pl) { 
loadav(); (p2+1)->c_time = p2->c_time; 
runruntt; (p2+1)->c_fune = p2~->c_func; 
rqlen = 0; (p2+1)->c_arg = p2->c_arg; 
sqien = 0; p2--; 
for(pp = éproc{0]; pp < {struct pree *}v.ve_proc; pptt}) } 
if (pp->p_stat) { pl->c_time = t; 
if (pp->p_time != 127) pl->c_fune = fun; 
pp->p_timet+; pl->c_arg = arg; 
if (pp->p_clktim) splx(s); 
if (--pp->p_clktim = 0) } 
psignal(pp, SIGALRM); 
Pp->p_cpu >>= 1; #define PDELAY (PZERO-1) 
if (pp->p_pri >= (PUSER-NZERO)) { delay (ticks) 
Ppp->p_pri = (pp->p_cpu>>1) + PUSER + { 
pp->p_nice - NZERO; extern wakeup(); 
} int s; 
if (pp->p_stat == SRUN) 
if (pp->p_flag & SLOAD) if (ticks<=0) 
rqlent+; return; 
else s = spl7(); 
sqlent+; timeout (wakeup, (caddr_t)u.u_procptl, ticks); 
} (void) sleep({caddr_t)u.u_procpt1, PDELAY); 
if (rqlen) { splx(s); 
sysinfo.runque += rqlen; } 
sysinfo.runoce++; 
} /* 
if (sqlen) { * From here down is load average code 
sysinfo.swpque += sqlen; x} 
sysinfo.swpocct++; struct lavnum { 
t unsigned short high; 
4f (runin!=0) { unsigned short low; 
runin = 0; he 
setrun (aéproc{0Q?}; 
} struct lavnum avenrun{[3]; 
#ifdef VIRTUAL451 
if (runout!=#9) { f* 
runout = 0; * Constants for averages over 1, 5, and 15 minutes 
setrun{éproc{0})>; * when sampling at 4 second intervals. 
} * (Using ‘fixed-point’ with 16 binary digits to right) 


endif VIRTUAL451 af 
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struct lavnum cexp[3] = { 


{ 61309, 4227 }, /* (x = exp(-1/15) * 65536) , 1 - x */ 
{ 64667, 869 }, /* (% = exp(-1/75) * 65536) , 1 - x */ 
{ 65245, 291 }, /* (x = exp(-1/225) * 65536) , 1 - x */ 


}e 


/* called once every four seconds */ 

loadav {) 

{ 
register struct laynum *avg; 
register struct lavnum *rcexp; 
register unsigned int i; 
register unsigned short nrun; 
register struct proc *p; 


nrun = 0; 


for (p = é&proc[0]; p < (struct proc *)v.ve_ proc; ptt) { 


if (p->p_flag & SSYS) 
continue; 
if (p->p_stat) { 


switch (p->p_stat) { 


case SSLEEP: 
case SSTOP: 


if (p->p_pri <= PZERO) 


break; 
case SRUN: 
case SIDL: 

nrunt+t; 

break; 


* Compute a tenex style load average of a quantity on 
* 1, 5 and 15 minute intervals. 
* (Using ‘fixed-point’ with 16 binary digits to right) 


af 
avg = avenrun; 
rcexp = cexp; 


for ( ; avg < g£avenrun[3]; avgt+, rceexptt+} 
4 = ((avg->low * rcexp->high + 32768) >> 16) 
+ {avg->high * rcexp->high) 
+ {nrun * reexp->low); 


avg->low = j & 65535; 
avg->high = j >> 16; 
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(C) 1984 UniSoft Corp. of Berkeley CA 


UniPlus Source Code. This program is proprietary 
with Unisoft Corporation and is not to be reproduced 
or used in any manner except as authorized in 


writing by Unisoft. 


+ + + &  * FH H 


xf 


#include "sys/param.h" 
#include “sys/config.h" 
#include "sys/types.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h™ 
#include “sys/user.h" 
#include “sys/errno.h" 
#include "sys/file.h" 
#include "sys/tty.h" 
f#include “sys/termio.h*" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/reg.h* 
#include "setjmp.h" 
#include "“sys/ioctl.h" 
#include “sys/kb.h* 
#include “sys/al ioctl.n" 
#ifdef SUNIX 

#include “sys/reboot.h" 
#endif SUNIX 

#include “sys/mmu.h® 
#include “sys/cops.h" 
#include “sys/12.h" 


int coproc(); 

extern int co_cnt; 

extern struct tty co _tty[]; 
extern struct ttyptr co _ttptr[};> 


extern char bmbck, bmnormal; 


extern char *bmscrn; /* pointer to screen -- initialized in bminit */ 


/* calls to the pute routine are made indirectly through 
the te_putc pointer which is used to 

keep track of the current state for escape character 
processing, ie, although initialized to point to 

the normal putc, an escape character causes other 
functions to process the next: character(s) 


+ + + * 


*f 
extern int vt_putc(); 
int {*te_putc) ()=vt_pute; 
/*#ifdef SUNIX 
extern caddr_t start: 
#tendif SUNIX 
*/ 


struct device { 


char csr; /* Command status register */ 
char idum(2]; /* fillers */ 
char dbuf; /* data buffer */ 


}; 


/* ARGSUSED */ 
coopen(dev, flag) 
register dev; 
{ 
register struct tty *tp; 


if (dev >= co_cnt) | 
u.u_error = ENXIO; 
return; 


co.c ~ “cansole" (ie, bitmap screen and keyboard) driver for the lisa. 


} 
tp = co_ttptr[dev].tt_tty; 
tp->t_index = dev; 
SPL6(); 
if ((tp->t_stateé (ISOPEN|WOPEN)) == 0) { 
tp->t_proc = coproc; 
ttinit (tp); 
tp->t_state = WOPEN | 
if (dev == CONSOLE) { 
tp->t_iflag = ICRWL | ISTRIP; 
tp->t_oflag = OPOST | ONLCR | TAB3; 
tp->t_lflag = ISIG | ICANON j ECHO j ECHOK; 
tp->t_cflag = sspeed | CS8 |} CREAD | HUPCL; 


CARR_ON; 


} 

SPLO(); 

(*linesw[tp->t_line].1_ open) (tp); 
} 


/* ARGSUSED */ 
coclose(dev, flag) 
{ 
register struct tty *tp; 


tp = co ttptr{dev].tt_tty; 
(*linesw[tp->t_line] .1_close) (tp); 
} 


coread (dev) 


{ 
struct tty *tp; 


tp = co_ttptr[dev].tt_tty; 
(*linesw[tp->t_line] .1_read) (tp); 
} 


cowrite (dev) 
{ 
struct tty *tp; 


tp = co_ttptridevj.tt_tty; 
{*linesw[tp->t_line] .1_write) (tp); 
} 


/* ARGSUSED */ 
coioctlidev, cmd, arg, mode) 
{ 

int i; 


switch (cmd) { 


case AL SBVOL: 
12_bvol = arg & 7; 
break; 
case AL SBPITCH: 
12_bpitch = arg & Ox1FFF; 
break; 
case AL SBTIME: 
if (arg <= 0) 
arg = 1; 


if (arg > 10 * v.v_hz) /* limit to 10 seconds */ 


arg = 10 * v.v_hz; 
12_btime = arg; 
break; 
case AL_SDIMTIME: 
12_dtime = arg; 
12_dtrap = lbolt + 12_dtime; 
break; 
case AL_SDIMCONT: 
12_dimcont = (~arg) & OxFF; 
break; 
case AL SDIMRATE: 
12_crate = arg; 
break: 
Case AL SCONTRAST: 
12_defcont = {(~arg) & OxFF; 
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12_desired = 12 defcont:; 
l2ramp (@) ; 
break; 
case AL SREPWAIT: 
kb repwait = arg: 
break; 
case AL SREPDELAY: 
kb repdlay = arg; 
break; 
case AL GBVQL: 
i = 12_bvol; 
if (copyout ((caddr t)&i, (caddr_t}arg, 4)} 
u.u_error = EFAULT; 
break; 
case Al, GBPITCH: 
if (copyout ((caddr_t)&12_bpitch, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
case AL GBTIME: 
if {copyout ({caddr_t)&12_btime, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
case AL _GDIMTIME: 
if (copyout((caddr_t)&12 dtime, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
case AL GDIMCONT: 
i = (~12_dimcont) & OXxFF; 
if (copyout ({caddr_t)&i, {caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
case AL GDIMRATE: 
if (copyout ((caddr_t)&12_ crate, (caddr_t)arg, 4j) 
u.u_error = EFAULT; 
break; 
case AL GCONTRAST: 
i = (~12_defcont) & OxFF; 
if (copyout((caddr_t)si, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
case AL GREPWAIT: 
i = kb repwait & OxFFFF; 
if (copyout{(caddr_t)si, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; > 
case AL GREPDELAY: 
i = kb repdlay & OxFFFF; 
if (copyout ((caddr_t)éi, (caddr_t)arg, 4)) 
U.u_error = EFAULT; 
break; 
case AL_GBMADDR: 
if (copyout (({caddr_t)ébmscrn, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
case AL REVVIDEO: 
if (arg > 0) 
i= 0; 
else if (arg = 0) 
i= -1; 
else 
i = (bmbck)? 0: <1; 
if (pmbck '= i) { 


bmswitch (); 
bmsinv(); 

} 

bmbck = i; 

bmnormal = bmbck; 

break; 

#ifdef SUNIX 
case RESTART: /* jump to the start of unix */ 

reinit (); 

((int (*) ())6xC000) (); 

break; 


#endift SUNIX 
default: 
(void) ttiocom(co_ttptr{0].tt_tty, emd, arg, mode); 


} 


break; 


coproc(tp, cmd) 
register struct tty *tp; 


{ 


start: 


} 


register struct ccblock *tbuf; 
extern ttrstrt(); 


switch (cmd) { 

case T_ TIME: 
tp->t_state &= ~TIMEOUT; 
goto start; 


case T_WFLUSH: 
tbuf = étp->t_tbuf; 
tbuf->c_size -= tbuf->c_count; 
tbhuf->c_count = 0; 
/* fall through */ 

case T_ RESUME: 
tp->t_state &= ~TISTOP; 
goto start; 


case T_ OUTPUT: 


if (tp->t_state & (TITSTOP | TIMEOUT/BUSY) ) 
break; 
tbhuf = &tp->t_tbuf; 
if ((tbuf->c_ptr == 0) || (tbuf->c_count == 6)) { 
if (tbuf->c_ptr) 
tbuf->c_ptr -= tbuf->c_size; 
if ({(CPRES & (*linesw[tp->t_line].1_output) (tp))) 
break; 
} 
(*te_putc) ( (*tbuf->c_ptr++) &0x7f); 
tbuf->c_count--; 
sysinfo.xmtintt+; /* this is the xmit interrupt */ 
splx(spll(}); 
goto start; 


case T_ SUSPEND: 
tp->t_state |= TISTOP; 
break; 


case T_BLOCK: 
break; 


case T _RFLUSH: 
if ({(tp->t_state&TBLOCK) ) 
break; 
/* fall through */ 


case T_UNBLOCK: 
break; 


case T_ BREAK: 
break; 


cointr (dev) 


{ 


register struct ccblock *cbp; 
register int c, lent, flg; 
struct tty *tp; 

register char ctmp; 

char lbuf[3]; 


sysinfo.rcvint++; 

c = kb chrbuf; 

tp = co ttptr[dev].tt_tty; 

if (tp->t_rbuf.c ptr == NULL) 
return; 


#undef NULLDEBUG 
#ifdef NULLDEBUG 
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if( oc == 0x00 ) { 
secdebug () ; 


return; 
} 
#endif 
if (tp->t_iflag & IKON} { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 
if (ctmp == CSTART [| tp->t_iflag & IXANY) 
{*tp->t_proc) (tp, T_RESUME); 
} else { 
Lf (ctmp == CSTOP} 
(*tp->t_proc) (tp, T_SUSPEND); 
} 
if (ctmp = CSTART || ctmp = CSTOP) 
return; 
} 
fr 
* Check for errors 
xf 
lent = 1; 
flg = tp->t_iflag; 
if (flg&ISTRIP) 
c &= 0177; 
else { 
if (c = 0377 && f1lg&PARMRK) { 
lbuf[(1] = 9377; 
lent = 2; 
} 
} 
{* 
* Stash character in r_ buf 
xf 
cbp = aétp->t_rbuf; 
if {lent != 1) { 
lbuf[@] = c; 
while (lent) { 
*xcbp->c_ptrt++ = lbuf[--lent]; 
if (--cbp->c_count == 0) { 
cbp->c_ptr -= cbp->c_size; 
i*linesw[tp->t_line].1_input) (tp); 
} 
} 
if (cbp->c_size != cbp->c_count) { 
cbp->c_ptr -= cbp->c_size - cbp->c_count; 
(*linesw[tp->t_line].1_input) (tp); 
} 
} else { 
*cbhp->c_ptr = c; 
cbp->c_count--; 
(*linesw[tp->t_line].1_ input) (tp); 
} 
} 
[rk 


* This version of putchar writes directly to the bitmap display 
* for those last-ditch situations when you just have to get stuff to the CRT. 
*/ 
coputchar (c) 
register c; 
{ 
(*te_putc)(c & Ox7F); 
if (c == '\n') 
(*te_putc) (4\r'); 
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/* 
* Configuration information extern nodev(), nulldev{); 
af extern proopen(), proread(), prowrite({), prostrategy{), proprint(), proioctl({); 
extern snbopen(), sncopen(), snbclose(), sncclose{), snread(), snwrite(), snstrategy(), snprint(), sni 
/* #define DISK_6 1 */ extern cvopen(), cvread({), cvwrite({), cvstrategy(), cvprint(); 
extern pmopen(), pmread{), pmwrite(), pmstrategy(), pmprint(), pmioctl(); 
#define NBUF 30 extern coopen(), coclose(), coread{), cowrite{), coloctl(); 
#define NINODE 50 extern syopen(}), syread(}, sywrite(), syioctl{); 
fdefine NFILE 60 extern mmread(), mmwrite(); 
#define NMOUNT 8 extern scopen(), scclose(), scread(), scwrite{), scioctl(); 
#define CMAPSIZ 50 f* also in reinit.c */ extern erropen(), errclose(}), errread(); 
#define SMAPSI2Z2 50 /* also in reinit.c */ extern proread{}, prowrite{), proiocti{); 
#define CXMAPSIZ 50 extern ejioctl{); 
#define NCALL 15 extern msopen{), msclose{), msread(), msioctl(); 
#define NPROC 30 extern lpopen(), Ipclosei), lpwrite(), lpioct1(); 
#define NTEXT 26 extern skopen(), skclose(), skwrite(); 
#define NSVTEXT 206 extern rtcread(), rtcwrite{); 
#define NCLIST 100 extern teopen(), teclose(), teread(), tewrite(), teioctl(); 
#define STACKGAP 8 
f#define NSABUF 5 #ifdef UCB_NET 
#define POWER 6 extern int ptsopen(), ptsclose(), ptsread(), ptswrite({); 
#define MAXUP 25 extern int ptcopen({), ptcclose(), ptcread(), ptcwrite(); 
#define NHBUF 64 extern int ptsioctl(), ptcioctl(); 
#define NPBUP 4 tendif 
#define NFLOCK 200 
#define X25LINKS 1 struct bdevsw bdevsw[{] = { 
#define X25BUFS 256 proopen, nulldev, prostrategy, proprint, /* 0 */ 
#define X25MAPS 30 snbopen, snbclose, snstrategy, snprint, /* 1 *f 
#define X25BYTES (16*1024) cvepen, nulldev, cvstrategy, cvprint, /* 2 *f 
f#define CSIBNUM 20 pmopen, nulldev, pmstrategy, pmprint, {* 3 *f 
#define VPMBSZ 8192 I: 
#define MESG 1 
#define MSGMAP 100 struct cdevsw cdevsw[{] = { 
#define MSGMAX 8192 coopen, coclose, coread, cowrite, coiocti, 0, fe Q *f 
#define MSGMNB 16384 syopen, nulldev, syread, sywrite, syioctl, 4, /* 1 *f 
#define MSGMNI 50 nulidev, nulldev, mmread, mmwrite, nodev, 6, /* 2 */ 
#define MSGSSZ 8 erropen, errclose, errread, nodev, nodev, 6, /* 3 */ 
#define MSGTOL 40 scopen, scclose, scread, scwrite, scioctl, 0, fe 4 */ 
#define MSGSEG 1024 proopen, nulldev, proread, prowrite, proioctl, 0, {* 5 *f 
#define SEMA 1 sncopen, sncclose, snread, snwrite, snioctl, 0, /* 6 */ 
#define SEMMAP 10 nulldev, nuiidev, nodev, nodev, ejiocti, 4, /* 7 xf 
#define SEMMNI 16 lpopen, lpclose, nodev, lpwrite, Ilpioctl, 0, fe B */ 
#define SEMMNS 60 msopen, msclose, msread, nodev, msioctl, 0, /* 9 *f 
#define SEMMNU 30 skopen, skclose, nodev, skwrite, nodev, Q, {* 10 */ 
#define SEMMSL 25 cvopen, nulldev, cvread, cvwrite, nulldev, 9, /* 11 */ 
#define SEMOPM 10 pmopen, nulldev, pmread, pmwrite, pmioctl, 0, /* 12 */ 
#define SEMUME 16 nulldey, nulldev, rtcread, rtcwrite, nulldev, 4, /* 13 */ 
#define SEMVMX 32767 teopen, teclose, teread, tewrite, teioctl, 49, /* 14 */ 
#define SEMAEM 16384 #ifdef UCB_NET 
#define SHMEM 1 nodev, nodev, nodev, nodev, nodev, 0, fe 15 */ 
#define SHMMAX (128*1024) noedev, nodev, nedev, nodev, nodev, 0, /* 16 */ 
#define SHMMIN 1 nedev, nodev, nodev, nodev, nodev, 0, f® 17 */ 
#define SHMMNI 100 nodev, nodev, nodev, nodev, nodev, Q, /* 18 */ 
#define SHMBRK 16 nodev, nodev, nodev, nodev, nodev, 0, /* 19 */ 
#define SHMALL 512 ptcopen, ptcclose, ptcread, ptcwrite, ptcioctl, 0, /* pte 20 */ 
#define STIHBUF (ST_0*4) ptsopen, ptsclose, ptsread, ptswrite, ptsioctl, 0, /* pts 21 */ 
#define STOHBUF (ST_O*4) #endif 
#define STNPRNT (ST_0>>2) }3 
#define STIBSZ 8192 
#define STOBS2 8192 int bdevent = sizeof (bdevsw) /sizeof (bdevsw[0]); 
int cdevent = sizeof (cdevsw) /sizeof (cdevsw[0]); 
#include "sys/param.h" #ifdef SUNIX /* Sony (installation) root filesystem */ 
#include “sys/config.h" dev_t rootdev = makedev(l1, 0); 
#include “sys/mmu.h" dev_t pipedev = makedev({l, 0); 
f#include “sys/types.h" dev_t dumpdev = makedev(l, 0); 
#include “sys/sysmacros.h" /* nswap and swapdev are set in lisainit in config.c */ 
#tinclude “sys/conf.h" dev t swapdev = makedev(0, 1); 
#include “sys/cpuid.h" daddr t Swpio = 0; 
#include “sys/space.h" int nswap = PRNSWAP ; 
#include “sys/io.h* 
#finclude "sys/termio.nh" #else SUNIX /* ProFile root filesystem */ 
#include “sys/reg.h* #define ROOTBASE 0 /* (port * 16) for port=0,1,2,4,5,7, or 8 */ 
#include "“sys/scc.n" dev _t reotdev = makedev(0, ROOTBASE); 
#include “sys/pport.h" dev t pipedev = makedev{0, ROOTBASE); 


#include "sys/swapsz.h" dev_t dumpdev = makedev(0, ROOTBASE) ; 
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dev_t swapdev = makedey({0, ROOTBASE + 1); 
daddr_t swplo = 0; 

int nswap = PRNSWAP; 

#endif SUNIX 


int (*dump) {} = nulldev; 

int dump addr = 6x0000; 

int (*pwriclr[])0) = { 
dint (*)())0 

he 

int (*dev_init[]) 0 = 


(int (*)())0 


#ifdef SCC_CONSOLE 


int scputchar (); 

int (*putchar) () = scputchar; 
#else 

int coputchar (); 

int (*putchar) () = coputchar; 
tendif 


#ifdef UCB_NET 
#define PTC_DEV 20 
int ptc_dev = PTC_DEV; 
#endif 


int co_cnt = 1; 
struct tty co tty[1]; 


struct ttyptr co_ttptr[] = { 
1, aco_tty[0], /* tt_addr field not used */ 
0, 

I 


int sc_cnt = NSC; 
struct tty sc_tty[NSC]; 
char sc_modem[NSC]; 


struct ttyptr sc_ttptr{] = { 
OxFCD240, ésc_tty([1], 
OxFCD242, ésc_ tty[0], 
GO, 


}e 


struct scline sc_line[] = { 
WOBRESET, (4000006/16), /* clock frequency b */ 
WOARESET, (4000000/16), /* clock frequency a */ 
}3 


#if NTE != 0 

int te_cnt = NTE; 
struct tty te _tty[NTE]; 
char te_dparam[NTE]; 
char te_modem[NTE]; 


struct ttyptr te ttptr(NTE+1]; /* +1 for pstat */ 
#endif 


{x 
* pointers to ttyptr structures for terminal monitoring programs 
*/ 
struct ttyptr *tty_stat[] = { 
co_ttptr, 
sc_ttptr, 
#if NTE f= 0 
te_ttptr, 
tendif 
Q 
he 


/* 
* tty output low and high water marks 


xf 
#define TTHIGH 
#ifdef TTLOW 


#define M 1 
#define N 1 
#endift 
#ifdef TTHIGH 
#define M 3 
#define N 1 
#endif 
int tthiwat[16é] = { 
o*M, 60*H, 66*H, 65*H, 667M, 


60*M,  60*M, i20*M, 
120*M, 180*M, 180*M, 240*M, 240*M, 240*M, 100*M, 100*M, 


int ttlowat[(16] = { 
O*N, 20*N, 20*N, 20*N, 20*N, 20*N, 20%N, 40*N, 
40*N, 66*N, 60*N, 80*N, 80*N, 80*N, 50*N, 50*N, 


i* 
* Default terminal characteristics 
xf 
char ttcchar{[NCC] = { 
CINTR, 
cQuUIT, 
CERASE, 
CKILL, 
CEOF, 
o, 
0, 
6 
Ie 


#ifdef lint 
/* LINTLIBRARY */ 


forlint () 
{ 
bminit (); 
nmikey(); 
llintr({struct args *)0); 
kbintr(); 


scintr((struct args *)0); 
pmintr((struct args *)0); 
ebintr (0); 
netintr(); 

} 

#endif 


#ifdef UCB_NET 

#include <net/misc.h> 

#include <net/ubavar.h> 

extern struct uba_driver ebdriver; 
struct uba_device ubdinit[] = { 


/* driver, unit, addr, flags*/ 
{ &ebdriver, o, (caddr_t)5, 0x59002908 }, /* net 89 xf 
0 

he 

int iff_noarp = 0; /* 0 -> do ARP; not 0 -> no ARP */ 


#endif 
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/* 

* This file contains 

x 1. cem modifiable configuration personality parameters 

* 2. oem modifiable system specific kernel personality code 
xf 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/mnu.h* 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include "sys/map.h" 
#include “sys/dir.h" 
#include "sys/signal.h" 
f#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/proc.h" 
f#include “sys/buf.h" 
#include “sys/iobuf.h™ 
#include “sys/reg.h" 
#include “sys/file.h" 
#include “sys/inode.h" 
#include “sys/seg.h" 
#include “sys/acct.h" 
#include “sys/sysinfo.h" 
#include "sys/var.h" 
#include “sys/ipc.h" 
#include “sys/shm.h" 
#include “sys/termic.h" 


#include "“sys/conf.h" 
f#include “sys/cops.h" 
#include “sys/pport .h" 
#include "sys/local.h*" 
#include “sys/12.h* 
#include “sys/kb.h" 
#include "sys/swapsz.h" 


/*char oemmsg[] = "“UniSoft Systems distribution system release 1.5";*/ 
char oemmsg[] = "“Uniseft Systems pre-distribution system (release 1.5+j"; 


int sspeed = B9600; /* default console speed */ 

int parityno = 28; /* parity interrupt vector */ 

int cmask = CMASK; /* default file creation mask */ 

int cdlimit = CDLIMIT; /* default file size limit */ 

char slot [NSLOTS] ; /* card ID numbers for expansion cards */ 
y* 


* Kernel initialization functions. 
* Called from main.c while at spl? in the kernel. 
xf 
oem7init () /* alias (formerly) “lisainit" */ 
{ 
#ifdef SUNIX 
int dev; 
extern dev_t swapdev; 
extern int nswap; 
fendif SUNIX 
extern struct rtime rtime; 
extern int pmvect[]; 
extern int tevect{]; 
register short *sidp; /* slot ID pointer */ 
register slotid, i; 
register long *ip; 


12init(); /* setup the COPS ports */ 
/* This mess disables the verticle retrace interrupt, for now. 
*/ 
do { 
VRON = 1; 
} while ((STATUS « S_VR) l= 0); 
do { 
VROFF = 1; 


} while ((STATUS & S VR) == 0); 


/* Some of the initialization requires that interrupts be enabled to 

* pick up coded sequences from the keyboard cops. If interrupts were 
* masked out then the time returned by READCLOCK would fill the 

* buffer and KBENABLE, which also returns a value, would have trouble. 


a} 
SPL1(); {/* ok, do it to me */ 
12copsemd (MOUSEOFF) ; /* shut off mouse interrupts */ 
12copsemd (READCLOCK) ; /* get time of day */ 
l2copsemd (KBENABLE) ; /* enable keyboard */ 
sninit ij; /* Sony initialization */ 


/* Wait ‘til the clock data (from READCLOCK) and keyboard ID (from 
KBENABLE) have come in, and the keyboard is back in NORMALWAIT */ 

while (kb state); 

time = rtime.rt_tod; 


SPL7(); #* it should be at level 7 for the rest (2) */ 
/* Find out what’s in each of the expansion slots. 
xf 
for {i = 0, sidp = SLOTIDS; i < NSLOTS; i++, sidpt+) { 
slot[i] = OxFF; /* not supported */ 
slotid = *sidp & SLOTMASK; 
if (!slotid) { 
if {iocheck{ (caddr_t) (STDIO+1*0x4006+1))) { 
printf ("Expansion slot %d: quad serial card\n", 
itl); 
if (teinit(i) == 0) ( 
/* 
* point te interrupt vector, 
x set tecmar quad serial board inter loc, 
* and initialize hdwr 
*f 
ip = &({long *) 6) [EXPIVECT+devtoslot (i) ]; 
*ip = (long)tevect + (long) (devtoslot (i)<<2); 
} 
} 
continue; 
} 
printf ("Expansion slot $d: ", i+1); 
switch (slotid) { 
case ID_APLNET: 
printf ("applenet card\n"); 
break; 
case ID PRO: 
printf ("ProFile card\n"); 
break; 
case ID_2PORT: 
printf("two port card\n"); 
slot[{i] = PRO; /* valida */ 
break; 
case ID_PRIAM: 
printf("Priam card\n"); 
ip = &({long *) 0) (EXPIVECT+devtoslot(i)]; /* point to int vector */ 
*ip = (long)pmvect + (long) (devtoslot(i)<<2);  /* set to Priam intr */ 
if (pmcinit(i) == 0) /* initialize controller */ 
slot[{i} = PM3; /* valid */ 
break; 
default: 
printf("card ID Ox%x\n", slotid); 
} 
} 
scinit(): /* SCC serial initialization */ 


#ifdef UCB_NET 
netinit(); 
tendif 
/* Now enabie the verticle retrace interrupt, used for the system ciock. 
“7 
do { 
VRON = 1; 
} while ((STATUS & S_VR) != 0}; 
#ifdef SUNIX 
SPLO(): 
/* This is the first unix booted during installation so find swapdev. *</ 
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if (rootdev == makedev(SN1, 0)) { 
while (chkdevidev = getdevynam())) 
printf("Unable ta use that device\nTry again: \n"); 
printf("\n\nswapdev = Ox%x\n\n", dev); 
swapdey = dev; 
if (major({dev} == PRG} nswap = PRNSWAP; 
else if (major(dev) — PM3) nswap = PMNSWAP; 
else if (major(dev) == CV2) nswap = CVNSWAP; 
else panic("cannot determine size of swapdev"); 
} 
#endif SUNIX 
} 


{* 
* Kernel initialization functions. 

* Called from main.c while at spl10 in the kernel. 
xf 

oemOinit () 

{ 

} 


* parityerror () 

* Called from trap for parity error traps via 

* interrupt level “parityno" {conf.c). 

* Should return non-zero for fatal errors. 

* Should return zero for a transient warning error. 


parityerror() 

{ 
printf ("parity error\n"); 
return(-1); 

} 


fr 
* reboot the system 
* called from reboot function 


*f 
doboot () 
{ 
kb _ state = SHUTDOWN; /* SHUTDOWN (see kb.c)*/ 
SPL7(); /* extreme priority */ 
rom_mon(); /* return to the ROM monitor */ 
/*NOTREACHED* / 
} 
fr 
* OEM supplied subroutine called on process exit 
*/ 


/* ARGSUSED */ 
oemexit (p) 
register struct proc *p; 
i 
#ifdef lint 
/* for lint use p */ 


p->p_flagt+; 

#endif 

} 

struct device _d *pro_da[NPPDEVS] = { /* DEV Description */ 
PPADDR, /* 0x00 parallel port */ 
(struct device _d *) (STDIO+0x2000), /* 0x10 FPC port @ slot 1 */ 
(struct device d *) (STDIO+0x2800), /* 0x20 FPC port 1 slot 1 */ 
(struct device _d *) (STDIO+0x3000), /* 0x30 FPC port 2 slot 1 !Hii*/ 
(struct device_d *) (STDIO+0x6000), /* 0x40 FPC port 0 slot 2 */ 
(struct device d *) (STDIO+0x6800), /* 0x50 FPC port 1 slot 2 */ 
(struct device d *) (STDIO+0x7000), /* 0x60 FPC port 2 slot 2 !!!*/ 
{struct device d *) (STDIO+0xA000), /* 0x70 FPC port 0 slot 3 */ 
{struct device d *) (STDIO+0xA800), /* 0x80 FPC port 1 slot 3 */ 
(struct device_d *) (STDIO+0xB000) /* 0x90 FPC port 2 slot 3 [!!*/ 


ke 
int (*pi_fnc[NPPDEVS]) (); /* slots for interrupt handler addresses */ 


/* Set the interrupt handler for a given parallel port controller. 
*/ 


setppint (addr, fnce) 
struct device _d *addr; 
int (*fnc) (); 


{ 
register int i; 
extern int cvyint{(), prointr(j, ipintr(); 
for (i=0; i<NPPDEVS; i++) 
if (pro_da[i] == addr) { /* found dev number */ 
if (pi_fne{il) { /* in use */ 
if (pi_fnc[i] == fnc) /* same handler */ 
return G; 
if (pi_fne[i] = prointr) 
printf ("ALREADY assigned to profile\n"); 
else if (pi_fne(i] == lpintr) 
printf ("ALREADY assigned to lp\n"); 
else if (pi_fnc[i] == cvint) 
printf (“ALREADY assigned to corvus\n"); 
else 
printf ("Assigned to unknown handler at Ox%x\n",pi_fne[il); 
break; 
} 
pi_fne[i] = fne; 
return 0; 
} 
return 1; 
} 
/* Free the interrupt handler slot for a given controller. 
x} 
freeppin (addr) 
struct device d *addr; 
{ 
register int i; 
for (i=0; i<NPPDEVS; i++} 
if (pro _dafi] == addr) { 
pi_fne[i] = 0; 
return; 
} 
} 
{* 
* ppintr - handle interrupt from parallel port controllers 
af 
ppintr (ap) 


struct args *ap; 


{ 


register int i, j; 
register char a; 
register struct device_d *dp; 
int (*fnc)(), ebintr(), prointr(), cvint(), lpintr(); 
extern char lpfigI[]; 
if((i = ap->a_dev) == 0) { /* special case for pp 0 */ 
if{ine = pi_fnc[i]) { 
fne(i); 
return; 
} 
} 
j=i+ 2; 
while (i < j) { 
dp = pro _da[i]; 
if ((a = dp->d_ifr) & FCA1) { 
asm(* nop "); 
dp->d_ifr =a; /* reset interrupt */ 
if (fne = pi_fne[i]) { 
if (fne == lpintr) 
ipfig{ij = 0; 
else if (fnc '!= ebintr && 
fnc != prointr && 
fne != cvint) { 
printf ("pi_fnc[%d] = oxtx invalid! !\n", 
i, fnc); 
return; 
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fne(i); 
return; 
} 
#ifdef INTDUMP 


ppdump (i,dp) ; 


return; 


} 


#ifdef INTDUMP 
ppdump(n, p) 
register struct device _d *p; 
{ 
print£("pport td: ",n); 
printf ("ifr=%x acr=%x per=%x ddra=%x ddrb=%x irb=tx\n", 
p->d_ifrsOxFF, p->d_acré0xFF, p->d_pcréOxFF, p->d_ddrasOxFF, 
p->d_ddrbéoxFF, p->d_irbs0xFF); 
} 
#endif INTDUMP 


/* 
* called from clock if there’s a panic in progress 
*/ 
clkstop() 
{ 
VROFF = 1; /* disable vertical retrace intr */ 
} 
nmikey (} 
f 
int i: 


register short status; 


#* added 7/25/84 to provide more info than "NMI key". 
* (taken from section 2.8 of Lisa Theory of Operations) 
xf 
printf ("non-maskable interrupt: "); 
status = STATUS; 
if (status & S_SMEMERR) 
printf("soft memory error\n"); 
else 1f (status & S HMEMERR) 
printf ("hard memory error\n"); 
else 
printf ("power failure/keyboard reset\n"); 
#ifdef HOWFAR 
showbus ({); 
#endif HOWFAR 
for (i=0xC00000; i>0; i--) ; /* delay */ 
} 


#ifdef SUNIX 
/* Get swap device name 
xf 
getdevnam () 
{ 
char *p, *gets(); 
int unit, dev; 


retry: 
printf("\n\nWhere is the swap area?\n"); 
printf("Enter: ‘pf for builtin disk or a profile disk\n"); 


printf (" ‘oc! for Corvus disk\n"); 
printr(" ‘pm’ for Priam disk\n"); 
Pp = gets(); 
switch (p[0]) { 
case ’p*: 

dev = PRO; 

if (p[1] == ’m’) 

dev = PM3; 

break; 
case ‘c!: 

dev = CV2; 

_ break; 


default: 
printf(“Invalid input. Try again.\n"); 
goto retry; 

} 

printf("Where will the disk be?\n"); 


if ((dev — PRG) jj (dev == CvzZ)) i 
printf(“Enter: 0" for builtin port\n"); 
printf(* ‘1’ for Expansion Slot 1, Bottom Port\n"}; 
printf(" *2’ for Expansion Slot 1, Top Port\n"); 
printf{" 4" for Expansion Slot 2, Bottom Port\n"); 
printf (* ‘5’ for Expansion Slot 2, Top Port\n"); 
printf {™ *7* for Expansion Slot 3, Bottom Port\n*); 
printf (" ’8* for Expansion Slot 3, Top Port\n"™); 
p = gets()}; 
switch (p[{0]) { 
case ’0!: 
case ‘1%: 
case '2': 
case '4!'; 
case '5!: 
case ‘7%: 
case '8’; 
unit = p[6] - "6%; 
break; 
default: 


printfi("Invalid input. Try again. \n"); 
goto retry; 

} 

} else { /* dev == PM3 */ 

printf{"Enter: ‘'0/ for Slot 1\n"); 

printt(™ 1’ for Slot 2\n"); 

printf(" *2° for Slot 3\n"); 

Pp = gets{); 

switch (p[0]) { 

case ‘0%: 

case ‘1%: 

case '2':; 
unit = p[O] - 70’; 
break; 

default: 
printf ("Invalid input. Try again. \n*); 
goto retry; 


} 

} 

return makedevidev, (unit<<4) | 1 ); 
} 
chkdev (d) 
{ 

return (*bdevsw[bmajor (d)].d_open) (minor(d), FREAD | FWRITE); 
} 
/* 


* This version of getchar reads directly from the keyboard in order to get 
* swapdev when the parallel port is not available. It will not work once 
* the console has been formally opened. 


*/ 

char kb getchr; 

cogetchar () 

{ 
SPLO{); 
while (kb_state) ; /* wait for kb driver to finish special cmd */ 
kb getchr = 1; /* wait flag */ 
while (kb_getchr) ; /* wait for it to happen */ 
return kb_chrbuf; 

} 


/* Kernel get string routine. 
* Useful for getting information from the console before the system 
* comes up. The getchar routine will not work once the console has 
* been opened. 
*/ 

int (*getchar) () = cogetchar; 

extern int (*putchar) (); 


char. getshuf{100); 
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char * 
gets () 
{ 


out: 


} 


register char *p; 
register char c; 
extern short kb _keycount; 


p = getsbuf; 
while (c = (*getchar)()) { 
switch {c) { 


1986 


case ’\r’: 
case \n'l: 
goto out; 
case *\b!: 
if (p > getsbuf) { 
p--; 
} 
break; 
case *@’; 
case ‘’X’éOxlF: /* line kill */ 
if (p > getsbuf) { 
p = getsbuf; 
c= '\n'; /* echo a newline */ 
} 
break; 
default: 
kptt = c; 
I 


{*putchar) (c); 
if (p >= getsbuf + sizeof(getsbuf)) { 


printf ("\nInput line too long, try again ...\n"); 


p = getsbuf; 
} 


*p = F\OF; 
(*putchar) ("\n’); 
return getsbuf; 


#tendif SUNIX 
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#include “sys/param.h" 
#include “sys/config.h" 
#include "sys/mnu.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include "sys/systm.h" 
#include "sys/sysinfo.h" 
#include “sys/callo.h* 
#include "sys/dir.h" 
#include "sys/signal.h" 
#include “sys/user.h" 
#include “sys/ipc.h" 
#include “sys/shm.h" 
#include “sys/proc.h" 
#include “sys/text.h" 
tinclude “sys/psl.h" 
#include “sys/var.h" 
#include “sys/context.h" 
#include “sys/map.h" 


/* #define HOWFAR */ 


extern struct shminfo  shminfo; /* shared memory info structure */ 
struct context cxhdr; /* head of context structure */ 
{x 
* Allocate a new context freeing one if necessary 
x} 
struct context * 
cxalloc(} 


{ 
register struct context *cx; 


/* 
* search for unused context 
*f 
for (cx = cxhdr.cx_forw: cx != écxhdr; cx = cx->cx_forw) 
if (cx->cx_proc == 0) 
return (cxunlink (cx)); 
f* 
* return the context on top of the queue 
xf 
ex = cxhdr.cx_forw; 
cxrfree (cx); 
return (cxunlink (cx) ); 
} 


[* 
* Find first used context and free it 
*f 
exfree() 
{ 
register struct context *cx; 


for (cx = cxhdr.cx_forw: cx != é&cxhdr; cx = cx->cx_forw) { 
if (cx->cx_proc) { 
cxrelse (cx); 
return (0); 
} 
} 
return(-1); 
} 


/* 
* Initialize the context structure linked list 
xf 

cxinit () 

{ 

register struct context “cx; 
register i; 


1 = USERCX; 

cx = écxhdr; 

cx~>cx_forw = cx->cx_back = cx; 

for (cx = écontext[0]; cx < &context[NUMUCONTX}]; cxt+) { 
Cx->cx_ num = ecxntocx (itt); 


extail (cx); 


/* 


Ed 


Release the context associated with 
* a given context structure and 

* move it to the head of the queue 

xf 

exrelse (cx) 

register struct context *cx; 

i 

1 

register struct context **backp; 


if (cx == 0) 
return; 
#ifdef HOWFAR 
printf("Releasing td segs for cx %d\n", cx->cx_dsize, cx->cx_num); 
#endif 
exrfree (cx); 
cCxX->cxk_back->cx_forw = cx->cx_forw; 
cex->cx_forw->cx_back = cx->cx_back; 
backp = (struct context **)4écxhdr.cx_forw; 
(*backp) ->cx_back = cx; 
cx->cx_forw = *backp; 
*backp = cx; 
cx~>cx_back = écxhdr; 
} 


f* 
* Release the context associated with 
* a given context structure 
af 

exrfree (cx) 

register struct context *cx; 

{ 

register struct proc *p; 
register struct cxphys *cxp; 
register struct cxshm *cxs; 
int i; 


if ((p = cx->cx_proc) == NULL) 
return; 
if (cx->cx_dsize > 0) { 
#ifdef HOWFAR 
printf("“Freeing %d data segments at %d for pid %d\n", 
cx->cx_dsize, cx->cx_daddr, p->p_pid); 
#endif 
if (cx->cx_daddr == 0) 
printf("cxrfree error, cx_daddr = 0\n"); 
mfree(camap, (short)cx->cx_dsize, (short) cx->cx_daddr); 
cx->cx_dsize = 0; 
cx->cx_daddr = 0; 
} 
exp = &cx->cx_phys [0]; 
for (i=0; i<v.v_phys; it+) { 
if (cxp->cx_phsize) { 
mfree{cxmap, (short) cxp->cx_phsize, 
(short) cxp->cx_phaddr) ; 
cxp->cx phsize = 0; 
cxp->cx_phaddr = 0; 
} 
cxptt; 
} 
cxs = &cx->cx_shm[0]; 
for (i=0; i < shminfo.shmseg; i++) { 
if (cxs->cx_shmsize) { 
mfree(cxmap, (short) cxs->cx_shmsize, 
(short) cxs->cx_shmaddr) ; 
cexs->cx_shmsize = 0; 
cxs->cx_shmaddr = 0; 
} 


cxstt; 
} 


cx->cx_proc = 0; 
P->p_ context = 0; 
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} 


/* 
* Put a context buffer onto the tail of the context queue 
x] 

extail (cx) 

register struct context *cx; 

{ 

register struct context **backp; 


backp = (struct context **)&cxhdr.cx_back; 
(*backp)~>cx_forw = cx; 
cx->cx_back = *backp; 
*backp = cx; 
ex->cx_forw = &écxhdr; 
} 


7* 
* Release context resources associated 
* with a text segment. 
af 

cxtxfree (xp) 

register struct text *xp; 

{ 

register struct proc *p; 


for {(p = &proc[0]; p < (struct proc *)v.ve_proc; ptt) 
if (p->p_textp == xp) 
exrelse(p->p_context); 
if (xp->x_cxaddr == 0 || xp->x_size = 6) 
return; 


mfree(cxmap, (short)ctos(xp->x_size), (short)xp->x_cxaddr); 


xp->x_cxaddr = 0; 
} 


fr 
* unlink a context structure from the queue 
*/ 
struct context * 
exunilink (cx) 
register struct context *cx; 
{ 
ex~->cx_back~>cx_forw = cx->cx_forw; 
cx~>cx_forw->cx_back = cx->cx_back; 
return (cx); 
} 


{* 
* Pree all shared text segments 
xf 

txfree() 

{ 

register struct text *xp; 
register struct proc *p; 
int n; 


n= 0; 


for (p = &proc[0]; p < (struct proc *)v.ve_proc; ptt) { 


if ((xp = p->p_textp) != NULL) { 
cxrelse(p->p_context); 
if (xp->x_cxaddr && xp->x_size) { 


mfree(cxmap, ({short)ctos(xp->x_size), 


(short) xp->x_cxaddr) ; 
xp->x_cxaddr = 0; 
nt+; 


} 
} 
return(n); 
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/*#define HOWFAR*/ 
#define INTSON /* defined for an interrupting disk */ 


{* 

* Corvus Disk System 

xf 

#include "sys/param.h" 
#include “sys/config.h" 
#include “sys/mu.h" 
#tinclude “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/dir.h" 
#include "“sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/utsname.h" 
#include “sys/buf.h" 
#include “sys/elog.h" 
#include “sys/erec.h" 
#include "“sys/iobuf.h" 
#include “sys/systm.h" 
#include “sys/var.h" 
#include “sys/altblk.h* 
f#include “sys/diskformat.h" 
#include "setjmp.h" 
#include “sys/cops.h" 
#include “sys/pport.h" 
#include “sys/d_profile.h" 
#include "“sys/cv.h" 
#include "sys/swapsz.h" 


#ifdef notdef /* defined in d_profile.h */ 
#define logical (x) (minor (x) & 7} /* eight logicals per phys */ 
#define interleave (x) {minor (x) & 0x8) /* interleave bit for swapping */ 
#define physical (x) ((minor(x) & OxFQ) >> 4)/* 10 physical devs */ 
#endif 
#define cv_addr (d) (prodata [d] .pd_da) 
#define cvwait (a) while(((a)->d_irb & ST_BUSY) == 0) 
fr 
* the total space on the corvus h series is: 
x 306 cylinders are there but corvus reserves 2 
* 304 cylinders * 20 sectors per track * 6 heads = 
x 36480 
* 
* The first 100 blocks are reserved for the boot program and 
* are inaccessible via unix. 


xf 
#define MAXBOOT 100 
struct cv_sizes { 
daddr_t sz_offset; 
daddr_t sz_size; 


} cv_sizes[] = { 
CVNSWAP+101, 32420, /* a: root filesystem */ 
101, CVNSWAP, /* b: swap area (3959 blocks) */ 
0, 0, /* ec: unused */ 
0, 0, /* d: unused */ 
0, 0, /* e: unused */ 
Q, o, /* f: unused */ 
0, 0, /* g: unused */ 
101, 1900000 /* h: filesystem using entire disk */ 


he 


struct lostat cvstat [NPPDEVS]; 
struct lobuf cvtab = tabinit(cV2,cvstat); /* active buffer header */ 
struct buf cvrbuf; 


{* 
* cvopen - check for existence of controller 
*/ 

cvopen (dev) 

register dev; 

{ 

register punit; 
register struct device _d *devp; 
int cvint(); 


extern char slot[]; 


punit = physical (dev}; 


if (punit) { /* for expansion slot check slot number and type */ 
if (!PPOK(punit) || (slot [PPSLOT(punit)] [= PRO)) { 
u.u_error = ENXIO; 
return 1; 


} 
} 
devp = pro da[punit]; 
u.u_error = 0; 


if (locheck(&devp->d_ifr)) { /* board there 2? */ 


if (cv_addr(punit) != devp) { /* not already setup */ 


if (setppint ((cv_addr(punit) = devp),cvint)) 


goto fail; 

if (cvinit (épredata[punit])) { 
freeppin (devp) : 
goto fail; 


} 

} else { 

fail: 
u.U_error = ENXIO; 
cv_addr(punit) = (struct device_d *)0; 
return 1; 

} 

return @; 

} 


i* 
* cvinit - initialize drive first time 
xf 
cvinit (p) 
register struct prodata *p; 
{ 
register struct device _d *devp = p->pd_da; 
register char irb; 
register char zero = 6; 
int pl; 


pl = splé(); 
if {devp == PPADDR) { 


devp->d_ddrb &= Gx5C; 7* port B bits: 0,1,5,7 to in, 2,3,4,6 to out */ 


devp->d_per = 0x6B; /* set controller CA2 pulse 
devp->d_ddra = zero; /* set port A bits to input 
devp->d_irb |= CMD|DRW; /* set command = false set 
devp->d_ddrb |= 0x7C; 


devp->d_irb &= ~DEN; /* set enable = true */ 

} else { 
devp->d_pcr = 0x6B; /* set controller CA2 pulse 
devp->d_ddra = zero; /* set port A bits to input 


devp->d_irb = CMD|DRW; /* set command = false set 
devp->d_ddrb = 0x7c; 
} 
#ifdef INTSON 
devp->d_ier = FIRQ|FCAI1; 
irb = devp->d_irb; 
#ifdef lint 
pl = irb; 
tendif lint 
p->pd_state = SCMD; 
#endif INTSON 
splx(pl); 
return 0; 
} 


cvstrategy (bp) 
register struct buf *bp; 
{ 
register punit, lunit, bn; 


punit = physical (bp->b_dev); 

lunit = logical (bp->b_dev): 

bn = bp->b_bikno + cv_sizes{lunit].sz_offset; 
if (bp->b_blkno < 0 || bn <= MAXBOOT) { 


mode strobe */ 
xr / 
direction = in */ 


mode strobe */ 
ae / 
direction = in */ 
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#ifdef HOWFAR 
prdev("“cvstrategy: illegal blkno“, bp->b dev); 
printf ("blkno=%d bcount=%d\n", bp->b_blkno, bp->b_bcount); 
#endif HOWFAR 
bp->b_ flags |= B_ERROR; 
iodone (bp); 
return; 
} 
evstat[punit].io opst+; 
#ifdef INTSON 
bp->b_resid = bn; /* resid for disksort */ 
SPL6(): 
disksort (écvtab, bp); 
#else INTSON 
bp->av_forw = (struct buf *)NULL; /* last of all bufs */ 
if (cvtab.b actf = NULL) 
evtab.b actf = bp; /* empty - put on front */ 
else 
evtab.b actl->av_forw = bp; /* else put at end */ 
evtab.b actl = bp; 
#endif INTSON 
if (cvtab.b_ active = 0) 
evstart(); 
#ifdef INTSON 
SPLO(); 
#else INTSON 
while (cvtab.b_ active) 
evint (); 
f#endif INTSON 
return; 
j 


evstart() 

{ 
register struct buf *bp; 
register lunit, offset, bn; 
register struct device d *addr; 


loop: 

if ({(bp = cvtab.b actf) == (struct buf *) NULL) 
return; 

if (evtab.b active == 0) { 
bp->b_resid = bp->b bcount; 
evtab.b active = 1; 

} 

lunit = logical (bp->b dev); 

blkacty |= (1<<cv2); _ 

offset = bp->b_ bcount - bp->b resid; 


bn = bp->b_blkno + btod(offset); /* logical block number */ 
if (bp->b_resid < BSIZE || bn >= cv_sizes[lunit].sz_size) { 
next: 


#ifdef HOWFAR 
if (bp->b_resid != 0) 
printf("Unix cvstart: blkno=%d resid=%d bn=%d\n", 
bp->b_blkno, bp->b_resid, bn); 
#endif HOWFAR 
blkacty &= ~(1<<CV2); 
cvtab.b active = 0; 
if (cvtab.b errcnt) { 
logberr(&cvtab, 0); /* errlog non-fatal errors */ 
cvtab.b errent = 0; 
} 
addr = cv_addr (physical (bp->b_dev)}; 
addr->d_ifr = addr->d_ ifr; /* reset intr */ 
cvtab.b actf = bp->av_forw; 
jiodone (bp); 
goto loop; 
} 
if {evrw(minor(bp->b_dev), bn + cv_sizes[lunit].sz_offset, BSIZE, 
bp->b_flags&éB READ, bp->b_un.b addr + offset) < 0) 
bp->b_flags |= B_ERROR; 
logberr(&cvtab, 1); /* log fatal error */ 
goto next; 
} 


return; 


caddr_t cv_buf; 
int cv_count; 


cvrw(dev, blikno, n, flag, buff) 
register dev; 
register daddr t blkno; 
register n, flag; 
register caddr t buff; 
{ 
register punit; 
register struct device d *addr; 


punit=physical (dev); 

cv_buf = buff; 

cv_count = n; 

if (cvop(punit, 4, flag==B_READ ? N_R512 : N_W512, (blkno>>16 & Oxf)+1, 
blkno & Gxff, blkno>>8 & Gxff) < 0) 
goto bad; 


if (flag = B_WRITE && cvw(punit, buff, n) < 0) 
gote bad; 
addr = cv_addr(punit); 
addr->d_ddra = 0x00; /* data direction port A bits to input */ 
addr->d_irb |= 0x08; /* bidirectional driver to input */ 
return 9; 
bad: 
#ifdef HOWFAR 
printfi("cvrw: $s error unit=td blkno=%td n=%d buf=0x%x\n", 
flag=-B_READ?"read": "write", punit, bikno, n, buff); 
#endif HOWFAR 
return -1; 
} 


/® VARARGS3 */ 
evop(unit, na, a) 
{ 
#ifdef INTSON 
register s; 
#endif INTSON 
register int *ap; 
register struct device _d *addr = cv_addr{unit); 


addr->d_ddra = Oxff; /* port A to output */ 
addr->d_irb é= ~0x08; /* bidirectional driver to output */ 


ap = &a; 
if (na-- > 0) { 
#ifdef INTSON 
s = spl7(): 
#endif INTSON 
cvwait (addr); 
addr->d_ira = *apt+; 
#ifdef INTSON 
splx(s); 
#endif INTSON 
} 
for (; na > 0; na=-, aptt+) { 
cvwait (addr); 
addr->d_ira = *ap; 
} 
return 0; 
} 


cvint (punit) 

int punit; 

{ 
register struct device d *addr; 
register struct buf *bp; 
register char status; 


(void) spl6{); 
addr = cv_addr(punit); 
if (cvtab.b active == 0) { 
#ifdef HOWFAR 
printf("cvint: b_active == O\n"); 
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#endif HOWFAR 


if (addr == PPADDR) 


addr->d_ifr = addr->d_ifr; /* reset intr */ 


return; 
} 


Af ({bp = cvtab.b actf) == {struct buf *)NULL) { 


#ifdef HOWFPAR 


printf("cvint: b_actf — NULL\n"); 


#endif HOWFAR 


} 


if (addr = PPADDR) 


addr->d_ifr = addr->d_ifr; /* reset intr */ 


return: 
} 
cvwait {addr) ; 
if (addr == PPADDR) 


addr->d_ifr = addr->d_ifr; /#* reset intr */ 


if (status = addr->d_ira) { 
err: 
printf("%s error: /dev/ctdtc blkno=%d\n", 
bp->b_flags&B_READ?“read":"“write", punit, 
faftlogical (bp->b_dev), bp~>b_blkno); 
cvlog (status); 
cv_count = 0; 
if (++cvtab.b errent > NRETRY) { 
bp->b_ flags |= B_ERROR; 
logberr(&cvtab, 1); /* log fatal error */ 
blkacty &= ~(1<<CV2); 
cevtab.b errcnt = 0; 
evtab.b actf = bp->av_forw: 
cvtab.b active = 0; 
iodone (bp) ; 
} 
} else if (bp->b_flags&B_READ) 
if (cvr{punit, (char *)cv_buf, cv_count) < 0) 
goto err; 
f* 
* because a single buffer can take several io operations, 
* we leave it to cvstart{) to figure out when it’s done 
Lad 
bp->b_resid -= cv_count; 
evstart (); 


cvlog(status) 
register status; 


{ 


} 


register struct buf *bp; 
register struct device d *addr; 
register bn, punit, lunit; 
struct deverreg cvreg[2]; 


bp = cvtab.b actf; 

punit = physical (bp->b_dev); 

lunit = logical (bp->b_dev); 

evtab.io stp = &cvstat[{lunit]; 

addr = cv_addr(punit); 

evreg[0].draddr = (long) &(addr->d_ira); 
cvreg{0].drvalue = status; 

cvreg[0].drname = “cv status"; 
evreg[0].drbits = “Corvus disk status code"; 
evreg[1].draddr = (long) 0; 
cvreg[1].drvalue = cv_count; 
evreg[1].drname = "count"; 

evreg[1].drbits = "byte count of transfer"; 


bn = bp->b_blkno + btod(bp->b_ bcount - bp->b_resid) + cv_sizes[lunit].sz_offset; 


fmtberr (a&cvtab, 
(unsigned) punit, 
(unsigned) 0, /* cylinder */ 
(unsigned) 0, /* track */ 
(unsigned) bn, /* sector */ 


(long) (sizeof (cvreg) /sizeof(cvreg[0]}), /* regent */ 
&cvreg(0],&cvreg[1]); 


evw(unit, buff, n) 
register char *buff; 


register n; 
{ 
register char *ira; 
register struct device d *addr = cv_addr(unit); 


ira = &{addr->d_ira}; 
cvwait (addr); 
for (: n> 0; n==) { 
4f ((addr->d_irb & ST_HTOC) == 0) 
break; 
*ira = *bufftt+; 
} 
for (33) { 
cvwait (addr); 
if ((addr->d_irb & ST_HTOC) = 0) 


break; 
xira = 0; 
} 
ev_count -= n; 
if (n> 4) { 


#ifdef HOWFAR 
printf ("“cvw: td bytes short\n", n); 
#endif HOWFAR 
cvlog(9); 
return -1; 
} 
return 0; 


} 


cvr(unit, buff, n) 
register char *buff; 
register n; 
{ 
register char *ira; 
register struct device _d *addr = cv_addr (unit); 


cvwait (addr); 
ira = &(addr->d_ira); 
for (; n> G3 n--) { 
if (addr->d_irb & ST_HTOC) 
break; 
*bufft+ = *ira; 
} 
cv_count -= 4; 
if (n> 96) { 
#ifdef HOWFAR 
printf("cvr: $d bytes short\n", n); 
tendif HOWFAR 
return -1; 
} 
for (73) { 
cvwait (addr); 
if (addr->d_irb & ST_HTOC) 
break; 
n = *ira; 
} 
return 0; 
} 


[RkRKKKKK 


#ifdef INTSON 
felse INTSON 
/* wait for controller to host direction or timeout */ /* 
cyctoh {a} 
register struct device d *a; 
{ 
register i; 


for (1 = 20; 1-- > 4;); 
i = 100000; 
do 
while (--i > 0 && ((a->d_irb&ST_BUSY) == 0)); 
while (i > 0 && (a->d_irb & ST_HTOC)); 
if (i <= 0) { 
printf ("cvctoh: timeout\n"); 
return -1; 


cv.c Fri Sep 5 19:08:37 


} 

return 0; 
} 
#endif INTSON 


to if 


cvread (dev) 
dev_t dev; 
{ 


physio(cvstrategy, &cvrbuf, dev, B_READ); 


} 


cvwrite (dev) 
dev_t dev; 
{ 


physio(cvstrategy, &cvrbuf, dev, B_WRITE); 


} 


cvprint (dev, str) 
char *str; 
{ 


printf("%s on cv drive td, slice %d\n", str, 


} 
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(dev>>4)&0xF, dev&7); 
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#tinclude “sys/param.h" 
#include "sys/config.h" 
#include “sys/mmu.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
finclude “sys/systm.h" 
#include “sys/sysinfo.h" 
#include “sys/callo.h" 
#include “sys/dir.h" 
f#include “sys/signal.h" 
#include “sys/user.h" 
#include "sys/proc.h" 
#include “sys/text.h™ 
#include "“sys/ipe.h" 
#include “sys/shm.h" 
#include “sys/psl.h" 
#include “sys/var.h" 
finclude “sys/seg.h" 
#include “sys/context.h" 
#include “sys/map.h" 
#include “sys/errno.h" 
#include “sys/scat.h" 


typedef int mem_t; 

short segoft; /* mmu segment offset */ 

extern struct shmid_ds *shm_ shmem[]; /* ptrs to attached segments */ 
extern struct shmpt_ds shm_pte[]; /* segment attach points */ 
extern struct shminfo  shminfo; /* shared memory info structure */ 


/* #define DUMPMM */ 
/* #define HOWFAR */ 
/* $define TRACEALL */ 


{* 

* Load the user hardware page map. 

xf 

sureg() 

{ 
register struct user *up; 
register struct phys *ph; 
register struct shmid_ds *sp; 
register short *addr; 
register a, i, 4, page; 
struct text *tp; 
struct proc *p; 


up = &u; 

p = up->u_procp; 

tp = p->p_textp; 
#ifdef HOWFAR 


printf ("sureg:p addr=0x%x, tsize=%d dsize=td ssize=%d\n", 


1986 


p->p_addr, up->u_ptsize, up->u_pdsize, up->u_pssize); 


#endif 
SEG1_1 = 1; 
/* SEG2 0 = 1; */ 
clearmmu () ; 


addr = (short *)vtoseg(v.v_ustart); 
if (tp != NULL) { 
page = tp->x_caddr + segoff:; 


page = p->p_addr + v.v_usize + segoff; 
/* map a max of NPAGEPERSEG (256) 512-byte pages per segment */ 
for (i = up->u_pdsize; i > 0; i -= a) { 
a = min(NPAGEPERSEG, (unsigned) i); 
setmmu( (short *) ((int)addr | ACCSEG), page); 
setmmu{ {short *})({int})addr | ACCLIM), ASRW | ({256=a) & SxXFF}}; 
page += a; 
addr = (short *){(long)addr + (1 << SEGSHIFT)); 


/* set up stack segment */ 
addr = {short *) (vtoseg(v.v_uend)}; 
page += up->u_pssize; /* stack is right after data */ 
for (i = up->u_pssize; i > 0; i -= a) { 
addr = (short *)((long)addr - (1 << SEGSHIFT)); 
a = min(NPAGEPERSEG, (unsigned)i); 
page -= NPAGEPERSEG; 
setmmu( (short *)((int)addr | ACCSEG), page); 
setmmu((short *)({int)addr | ACCLIM), ASRWS | (a-1)); 


/* set up phys() */ 
for (ph = &u.u_phys[0]; ph < éu.u_phys[v.v_phys]; pht+) { 
if (ph->u_phsize) { 
page = (ph->u_phpaddr >> PAGESHIFT) + segoff; 
addr = {short *)vtoseg(ph->u_phladdr); 
for (i = ph->u_phsize; i> 0; i -= a) { 
a = min(NPAGEPERSEG, (unsigned) i); 
/* Lf (igetmmn (vtoseg (addr) |ACCLIM) &PROTMASK) == ASINVAL) { */ 
if ({getmm((short *) ((int)addr | ACCLIM))&PROTMASK) == ASINVAL) { 
setmmu((short *)((int)addr | ACCSEG), page); 
setmmu((short *)({int)addr | ACCLIM), ASRW | ((256-a) & OXFF)); 
} 
page += a; 
addr = (short *) ({long)addr + {1 << SEGSHIFT)); 
} 
/*dumpmml (1); /**ke DEBUG ***H/ 


/* set up shared memory */ 
for {i = (p - proc) * shminfo.shmseg; /* index of first shm_shmem[] */ 
i < ((p - proc) + 1) * shminfo.shmseg; i++) { 
sp = shm_shmem[i]; 
if (sp —= NULL) 
/* no more shared mem segments this process */ 
continue; 
/* shm_scat is starting physical click number */ 
page = sp->shm_scat + segoff; 
addr = (short *)vtoseg(shm_pte[i].shm_segbeg); 
for (j = btec(sp->shm_segsz); j > 0; j -= a) { 
a = min(NPAGEPERSEG, (unsigned) j); 
if ((getmmu((short *) ((int)addr | ACCLIM))&PROTMASK) == ASINVAL) { 
setmmu( (short *)((int)addr | ACCSEG), page); 
setmmu((short *) ((int)addr | ACCLIM), 
ASRW {| ((256-a) & OxFF)); 
} 
page t= a; 
addr = (short *)((long)addr + (1 << SEGSHIFT)); 


/* map a max of NPAGEPERSEG (256) 512-byte pages per segment */ 
for (i = up->u_ptsize; i > 0; i-= a) { 
a = min(NPAGEPERSEG, (unsigned) i); 
setmmu( (short *)((int)addr | ACCSEG), page); 
setmmu( (short *) ({int)addr | ACCLIM), 
( (ap->u_xrw==RO) 2ASRO:ASRW) | ((256-a) & OxFF)); 
page += a; 
addr = (short *)((long)addr + (1 << SEGSHIFT)); 
} 
addr=(short *) vtaseg (ctob(stoc(ctos (btoc(v.v_ustart) tup->u_ptsize)))); 
} else 
if (up->u_ptsize [= 0) 
addr = (short *)}((long)addr + 
ctob(stoc(ctos(up->u_ptsize)))): 


/* set up data segment */ 


} 


setmmu(addr, data) 
register short *addr; 
register data; 
{ 

int s; 


#ifdef TRACEALL 
#ifdef HOWFAR 
if (data !=— ASINVAL) 
4f (({int)addr & ACCSEG) == ACCSES) 
printf (“setmmu:addr=0x%x, data=0x%x (0x%x)\n" 
else 


, addr, data, data<<9); 


cxureg.c 


fendif 
fendif 


} 


printf ("setmmu:addr=0x%x prot=0x%x, 
addr, data & PROTMASK, data 


s = spl7(); 
SETUP_1 = 1; 
taddr = data; 
SETUP_0 = 1; 
splx{s); 


getmmufaddr} 
register short *addr; 


{ 


register data; 
int s; 


Ss = spl7(); 
SETUP_1 = 1; 


data = *addr; 
SETUP_0 = 1; 


splx(s); 
data &= OxFFF; 
#ifdef TRACEALL 
#ifdef HOWFAR 
if (((intj)addr & ACCSEG) == ACCSEG) 
printf ("getmmu:addr=Oxtx, data=0x%x 


else 
printf ("getmmu:addr=0x%x prot=0x%x, 
addr, data & PROTMASK, data 
#fendif 
#endif 


return (data); 
} 


clearmmu () 


{ 
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length=0x$x ($d) \n", 
, 256 - (data & OxFF)); 


(0x%x)\n", addr, data, data<<9); 


length=0x%x (%d)}\n", 
, 256 — {data & OxFF)); 


register data = 6xCO0; /* ASINVAL (d7) */ 

register inc = 0x20000; /* address increment (d6) */ 
register s = 0; /* saved priority (d5) */ 
register short i = 32-1; /* loop counter {d4}) */ 


register char *addr = (char *)0x800 


#ifdef lint 
*addr = (char)i: 
*xaddr = (char)ine; 
*xaddr (char) data; 
#endif 
s = spl7(); 
SETUP_1 = 1; 
asm("loop:"); 


asm(* movw a7, a5@"); 
asm(" addl a6,a5"); 
asm(“ movw d7,a5@"); 
asm(" addl d6,a5"); 
asm(" movw a7,a5@"); 
asm(*" add1l d6,a5"); 
asm(" movw d7,a5@"); 


asm(" addl1 d6,a5"); 
asm(™ dbra a4, loap"); 
SETUP_0 = 1; 

splx(s); 


~ 


In V7, Set up software prototype segment 
registers to implement the 3 pseudo 
text,data,stack segment sizes passed 

as arguments. 

The argument sep specifies if the 

text and datatstack segments are to 

be separated. 

The last argument determines whether the 
segment is read-write or read-only. 


e 3 2 * + £ * & + HF HF HF 


u.u_ptsize etc replace the proto entries 


a; /* address ACCLIM {a5) */ 


ation 


text 


on the pcpll. They 


* are used by sureg to set up the page map. 


«f 
/* ARGSUSED */ 
estabur(nt, nd, ns, sep, xrw) 
unsigned nt, nd, ns; 
i 
#ifdef HOWFAR 


printf ("estabur:nt=%d nd=%td ns=td rw=$d\n", nt, nd, ns, xrw); 
#endif 
if (verureg(nt, nd, ns, xrw)) 
return (-1); 
sureg(): 
return (0); 
} 
f* 
* yerify user registers can be set up 
*/ 
verureg(nt, nd, ns, xrw) 
register unsigned nt; 
unsigned nd, ns; 
{ 
register int s; 
/* 
* check for sufficient number of segment registers 
*/ 
if (ctos(nt) + ctos(nd) + ctos(ns) > ctos(btoc{v.v_uend-v.v ustart))) 


ok: 


bad: 


goto bad; 


s = nd + ns + v.v_usize; 
if (nt = 0) { 
if (s > maxmem) 
goto bad; 
} else { /* shared text */ 
if (nt + s <= maxmem) /* texttdata can fit in largest hole */ 
goto ok; 
goto bad; 


/* non shared text */ 


I 

u.u_ptsize = nt; /* essentiaily these pass args to sureg */ 
u.u_pdsize = nd; 

u.u_pssize = ns; 

u.U_XIW = XxXYw; 

return(@); 


#ifdef HOWFAR 
printf("verureg failure:nt=td nd=%d ns=%d\n", nt, nd, ns); 


#endif 


} 


u.u_error = ENOMEM; 
return(-1); 


#ifdef DUMPMM 


char *mmu_codes[] = { 


hy 
/* 


"UNPREDICT-0", /* 0 */ 
"UNPREDICT-1", {* 1 *f 
"UNPREDICT~2", /* 2 */ 
"UNDEFINED", {* 3 */ 
*RO stack", {* 4 ef 
"RO", /* 5 */ 
“RW stack", /* 6 */ 
"RW", {* 7 */ 
“UNPREDICT-8", {* 8 */ 
"IoO*8, {r 9 *f 
“UNPREDICT-A", * Rf 
“UNPREDICT-B", /* B */ 
"INVALID", /* C */ 
“UNPREDICT-D", /* D */ 
“UNPREDICT-E", /* B */ 
"SPIO", {* F */ 


* dumpmm (system). 
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dump the memory management registers 


* if system is non-zero, also dump system registers 
af 
dumpmm {system) 


int system; 
{ 
printf£("p_addr=0xtx tsize=0xtx dsize=0x%x ssize=0x%x\n", 
u.u_procp->p addr, u.u_ptsize, u.u_pdsize, u.u_pssize); 
if (system) 
dumprm (6) ; 
dumpmml (1); 
} 


dumpmml (space) 
{ 
register i, addr, prot, j, len; 


printf ("context $d mmu registers\n", space); 
printf("seg logical physical (clicks) permission\n"): 
for (1 = 9; i < 128: itt) { 
if (space == 0) 
SEG1_0 = 1; 
else 
SEG1_1 = 1; 
/* SEG2_0 = 1; */ 
addr = getmmu((i << SEGSHIFT) | ACCSEG); 
prot = getmmu({i << SEGSHIFT) | ACCLIM); 
if ({prot & PROTMASK) == ASINVAL) 
continue; 
addr -= segoff; 
len = prot & OxFF; 
if (prot & 0x100) { /* data or stack segment */ 
ji =i << SEGSHIFT; 
len = 256 -— len; 
printf ("Ox$x Ox%x-0x%x Ox$x-Oxtx (%d) Ss\n", i, 4, 
jtetob(len), addr, addrtien, len, 
mmu_codes[ (prot éPROTMASK) >>8]); 


} else { 
lent+; 
j = (i+1) << SEGSHIFT; 
addr += NPAGEPERSEG; 
printf ("Ox%x Ox%x-Ox%x Oxtx-Ox$x ($d) ts\n", i, 
j-ctob(len), j, addr-len, addr, len, 
mmu_codes[ (prot &PROTMASK) >>8]); 
} 
} 
} 
fendif DUMPMM 
/* 
* check the size of a process 
xf 


chksize(nt, nd, ns) 
register unsigned nt, nd, ns; 
{ 
if (nt + nd + ns + v.v_usize < maxmem ) 
return (06); 
u.u_error = ENOMEM; 
return(1); 
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7* 
* generalized seek sort for disk 
*/ 


#include "“sys/param.h" 
#include “sys/config.h" 
#include “sys/types.h"™ 
#include “sys/sysmacros.h" 
finclude “sys/systm.h"™ 
#include "sys/dir.h" 
#tinclude “sys/signal.h" 
f#include "sys/user.h" 
#include “sys/errno.h" 
#include "sys/utsname.h" 
f#include “sys/buf.h" 
#include “sys/elog.h" 
#include "sys/erec.h" 
#include “sys/iobuf.h" 


#define b cylin b_resid 


disksort(dp, bp) 
register struct iobuf *dp; 
register struct buf *bp; 
{ 
register struct buf *ap; 
struct buf *tp; 


ap = dp->b_actf; 

if(ap == NULL) { 
dp->b_actf = bp; 
dp->b_actl = bp; 
bp->av_forw = NULL; 
return; 

} 

tp = NULL; 


for(; ap != NULL; ap = ap~->av_forw) { 


if ((bp->b_flags&B READ) && 
if (tp = NULL) 
tp = ap; 
break; 
} 


(ap->b_flags&B_ READ) == 6) 


if ((bp->b_flagséB READ) == 0 && {ap->b_flags&éB_READ)) 


continue; 


if{ap->b_cylin <= bp->b_cylin) 
if(tp == NULL || ap->b_cylin >= tp->b_cylin) 


tp = ap; 

} 
if(tp == NULL) 

tp = dp->b_actl; 
bp->av_forw = tp->av_forw; 
tp~>av_forw = bp; - 
Lf(tp == dp->b_actl) 

dp->b_actl = bp; 


{ 
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/* @(#jerr.c 1.1 */ 
#include “sys/param.h" 
#include “sys/types.h" 
#include “sys/buf.h" 
#include “sys/dir.h"™ 
#include “sys/signal hn" 
#include “sys/user.h" 
#include "sys/errno.h" 
#include “sys/file.h" 
#include “sys/utsname.h" 
#include “sys/elog.h" 
#include “sys/erec.h" 


static short logging; 


erropen (dev, f1g) 
{ 
if(legging) { 
u.u_error = EBUSY; 


return; 

} 

Af ((£1lg&éFWRITE) || dev != 0) { 
u.u_error = ENXIO; 
return; 


} 

if(suser()) { 
logstart (}; 
loggingt+; 


} 


/* ARGSUSED */ 
errclose (dev, flg) 
{ 

logging = 0; 
} 


/* ARGSUSED */ 

errread{dev) 

{ 
register struct errhdr *eup; 
register n; 
struct errhdr *geterec(); 


if (logging == 0) 
return; 
eup = geterec(); 
n = min((unsigned)eup->e_len, u.u_count); 
if (copyout ((caddr_t)eup, u.u_base, n)) 
u.u_error = EFAULT; 
else 
u.u_count -= n; 
freeslot (eup) ; 
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#include "sys/param.h" 
finclude “sys/types.h" 
f#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/buf.h" 
#include "sys/conf.h" 
#include “sys/map.h" 
finclude “sys/utsname.h" 
#include "sys/elog.h" 
#include “sys/erec.h" 
#include "sys/err.h" 
#include "sys/iobuf.h" 
#include “sys/var.h" 


typedef int mem _t; 
int blkacty; 
errinit{) 

{ 


register struct err *errp; 


errp = serr; 
if(errp->e_nslot) { 
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mapinit (errp->e_map, (errp->e_nslot+3) /2); 


mfree(errp->e_map, (mem_t)errp->e_nslot, 


} 

errp->e org = errp->e_ptrs; 

errp->e_nxt = errp->e_ptrs; 
} 


struct errhdr * 

geteslot (size) 

{ 
register ns, *p; 
register struct errhdr *ep; 
int n, sps; 


ns = (sizetsizeof(struct errhdr)+sizeof (struct 
/sizeof(struct errslot); 
sps = spl7(}; 
n = malloc(err.e map, (mem_t)ns); 
splx(sps): 
if(n == 6) 
return (NULL); 
ep = (struct errhdr *) (éerr.e slot[--n]); 
ns *= sizeof(struct errslot)/sizeof(int); 
p= (int *)ep; 
do { 
*ptt+ = QO; 
} while (--ns); 
ep->e_len = size + sizeof(struct errhdr); 
return(+t+ep); 
} 


freeslot (ep) 
register struct errhdr *ep; 
{ 

register ns, sps; 


ns = (ep->e_lentsizeof (struct errslot)~1)/sizeof (struct errslot); 


sps = spl7(}: 
mfree(err.e map, (mem_t)ns, 


errslot)-1) 


(mem_t) ((((struct errslot *)ep)-err.e slot)+1)); 


splx(sps); 
} 


struct errhdr * 

geterec() 

{ 
register sps; 
register struct errhdr *ep; 
register struct err *errp; 


errp = égerr; 
SpS = spi7(); 


i(mem_t)1); 


} 


while (*errp~>e_org == NULL) 
(void) sleep((caddr_t)&errp->e_org, PZERO+1); 

ep = *errp->e_org; 

*errp->e org++ = NULL; 

if(errp->e_org >= &errp->e_ptrs[errp->e_nslot]} 
errp->e org = errp->e_ptrs; 

splx(sps); 

return (ep); 


puterec(ep, type) 


: 
register struct errhdr *ep; 


{ 


} 


register sps; 
register struct err *errp; 


errp = éerr; 

{--ep)->e_type = type; 

ep->e_time = time; 

sps = spl7{); 

*errp->e_nxt++ = ep; 

if(errp->e_nxt >= éerrp->e_ptrs[errp->e_nslot]) 
errp->e_nxt = errp->e_ptrs; 

splx(sps); 

wakeup ((caddr_t)&errp->e_org); 


logstart {) 


{ 


} 


register sps; 

register struct estart *ep; 
register struct bdevsw *bdp; 
register struct err *errp; 
extern nodev(); 


errp = &éerr; 


sps = spl7(); 
for (errp->e_org = &errp->e_ptrs[errp->e_nslot-1]; 


errp->e_org >= errp->e_ptrs; errp->e_org--) 


if{*errp->e_org {= NULL) { 
freeslot (*errp->e_org); 
*errp->e_org = NULL; 
} 
errp->e_ org = errp->e_ptrs; 
errp->e_nxt = errp->e_ptrs; 
ep = (struct estart *)geteslot(sizeof(struct estart)); 
splx(sps); 
if (ep == NULL) 
return; 
ep->e_name = utsname; 
for(bdp = &bdevsw[bdevcnt-1]; bdp >= bdevsw; bdp--} 
if (bdp->d_strategy != nodev) 
ep->e_beonf |= 1 << (&bdevsw[0]-bdp) ; 
ep->e_bconf = blkacty; 
puterec((struct errhdr *)ep, E_GOTS); 


logtchg (nt) 


{ 


} 


time_t nt; 


register struct etimchg *ep; 


if({ep = (struct etimchg *)geteslot (sizeof (struct etimchg))) 


ep->e_ntime = nt; 
puterec({ (struct errhdr *)ep,E TCHG); 


logstray (addr) 


{ 


physadr addr; 


register struct estray *ep; 


if((ep = (struct estray *)geteslot (sizeof (struct estray))} 


ep->e_saddr = addr; 


im NULL) 


{= NULL) 


{ 
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ep->e_sbacty = blkacty; 
puterec((struct errhdr *)ep,5 STRAY); 


} 


logparity (addr} 


register paddr t addr; 


{ 


register struct eparity *ep; 


if((ep = (struct eparity *)geteslot(sizeof(struct eparity))) != NULL) { 


ep->e_parreg = addr; 
puterec((struct errhdr *)ep,E PRTY); 


—_ 


dp 
vnit 


eyl 
trk 
sector 
regent 
regs 


+ FF Re Fe eR Re be Oe OO 


f 


/* VARARGS7] */ 


fmtberr(dp, unit, cyl, 


register struct iobuf 
unsigned unit; 
unsigned cyl; 
unsigned trk; 
unsigned sector; 

long regent; 


struct deverreg *regs; 


{ 


fmtberr({) is used by block device drivers to build up a valid 
eblock structure to be sent to the error log. 


the address of the io queue item. 

the Physical Device error report field 

the Logical Device field is the minor device number 
the cylinder number 

the track number 

the sector number 

the number of following register structures 


is the address of an array of structures each of which 


contain the elements described in struct deverreg. 


trk, sector, regent, regs) 
*dp; 


register struct eblock *ep; 
register struct buf *bp; 
register struct deverreg **dr; 


register char 
register char 


*strl; 
*pp; 


register short argc; 
register short nn; 


struct br { 


/* just used to generate addr after eblock */ 


struct eblock eb; 
char cregs[1]; 


he 


struct iostat 


*xiosp; 


extern char *longcopy(); 


if(dp->io_erec |= NULL) { 
ap->1o_erec->e_rtryt++; 
return; 


} 


/* count the length of the values and strings */ 


nn = 0; 


arge = regent; 


dr = éregs; 


while {(argce--) 


nn += 

nn += 

nn += 

nn += 

nn + 

drt+t; 
} 


losp = dp->io_ 


{ 
sizeof ((*dr)->draddr); 
sizeof ((*dr)->drvalue); 


strlen((*dr)->drname) + 1; /* + null */ 
strlen((*dr)->drbits) + 1; /* + null */ 
(nn & 1); /* round to even number of bytes +/ 


stp; 


/* want sizeof eblock to the next long address */ 
if((ep = (struct eblock *} 
geteslot(sizeof(struct eblock) + nn)) == NULL) { 
iosp->io_unlogt+; 


} 


return; 
} 
nn = major{(dp->b dev); 
bp = dp->b_actf; 


ep->e_dev = makedev(nn, (bp==NULL) ?minor (dp->b_dev) :minor (bp->b_dev)); 


ep=>e_bacty = bikacty; 
ep->e_stats.io ops = iosp->io ops; 
ep->e_stats.io misc = iosp->io_misc; 
ep->e_stats.io unlog = iosp->io_unlog; 
ep->e_pos.unit = unit; 

ep->e_pos.cyl = cyl; 

ep->e pos.trk = trk; 

ep->e_pos.sector = sector; 

if (bp != NULL) { 


ep->e_bflags = (bp->b_flags&B_READ) ? E_READ : E WRITE; 


if(bp->b_ flags & B_ PHYS) 
ep->e_ bflags |= E PHYS; 
if(bp->b_flags & B MAP) 
ep->e_bflags |= E_MAP; 
ep->e_bnum = bp->b_blkno; 
ep->e_bytes = bp->b_bcount; 
ep~>e_memadd = paddr (bp); 
I 
else 
ep->e_bflags = E_NOIO; 
ep->e_ nreg = regent; 
pp = é({(struct br *)ep)->cregs[0]); 
dr = &regs; 
while (--regent >= 0) { 
/* copy cut the number values */ 
pp = longcopy((char *)&((*dr)->draddr),pp); 
pp = longcopy(ichar *)&((*dr)->drvalue), pp); 
/* copy out the strings themselves */ 
strl = (*dr)->drname; 
while (*strl) { 
*pptt+ = *strl+t; 
} 
/* copy the terminating null too */ 
eppt+ = F\OF; 
strl = (*dr)->drbits; 
while (*stri} { 
*ppt+ = *strlt+t+; 
} 
*pptt = "\O'; 
dr+t+; 
} 
dp->io_erec = ep; 


logberr (dp, error) 
register struct iobuf *dp; 


{ 


} 


register struct eblock *ep; 


1f(({ep = dp->io_erec) == NULL) 
return; 
if(error) 
ep->e_bflags |= E ERROR; 
puterec((struct errhdr *)ep,E BLK); 
dp->io_erec = NULL; 


/* may not be on long address boundary when copied to b2, 


avoiding any alignment problems on some machines? */ 
char * 


longcopy (b1,b2} 
register char *bl,*b2; 


{ 


register int ii; 


for {ii=-0; ii < sizeof(long); ii+t+) { 
*b2++ = *bltt; 

} 

return (b2)>; 
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/* @(#)fio.c 1.4 */ 
finclude “sys/param.h" 
f#include “sys/types.h®" 
#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include "sys/user.h® 
#include “sys/errno.h" 
#include "sys/filsys.h" 
#include “sys/file.h" 
#include “sys/conf.h" 
#include “sys/inode.h" 
#include “sys/mount.h" 
#include “sys/var.h" 
#include “sys/acct.h" 
#include “sys/sysinfo.h" 
#ifdef UCB_NET 

#include “net/misc.h" 
#include "net/socketvar.h" 
#endif 


/* 
* Convert a user supplied file descriptor into a pointer 
* to a file structure. 
* Only task is to check range of the descriptor. 
xf 
struct file * 
getf(f) 
register int f; 
{ 
register struct file *fp; 


if (0 <= £ && £ < NOFILE) { 
fp = u.u_ofile[f]; 
if (fp {= NULL) 
#ifdef UCB_NET 
/* Mainly for net reset */ 
if (fp->f_count = 0) { 
u.u_error = ENETDOWN; 
return (NULL); 
} 
else 
#endif 
return(fp); 
} 
u.u_error = EBADF; 
return (NULL) ; 


ry 


Internal form of close. 
Decrement reference count on file structure. 
Also make sure the pipe protocol does not constipate. 


Decrement reference count on the inode following 
removal to the referencing file structure. 

On the last close switch out to the device handler for 
special files. Note that the handler is called 

on every open but only the last close. 


+ + * eh Fe FH OF 


= 


*/ 

closef (fp) 

register struct file *fp; 

{ 
register struct inode *ip; 
int flag, fmt; 
dev_t dev; 
register int (*cfunc) (); 


if (fp == NULL) 
return; 
flag = fp->f_flag; 
#ifdef UCB_NET 
if ((flag & FSOCKET) == 0) 
#endif 
unlock (fp->f_inode); 


#* file locking hook */ 


#endif 


1£ ((unsigned)fp->f_count > 1) { 
#ifdef UCB_NET 


} 


#ifdef UCB NET 
if (flag & FSOCKET) { 


#endif 


#ifdef 


#endif 


} 


fp->f_flag &= ~FISUSER; 


fp->f_count--; 
return; 


int nouser = ((flag & FISUSER) == 4); 


u.u_error = 9; /* XXX */ 
fp->f_flag &= ~FISUSER; 
soclose({struct socket *)fp->f_socket, nouser); 
if (nouser = 0 && u.u_error) 
return; 
fp->f_socket = 0; 
fp->f_count = 0; 
fp->f_next = ffreelist; 
ffreelist = fp; 
/* 
* the next line was in the 11 code. Dont quite understand it, 
* but it cant hurt... (billn) 
*/ 
u.u_error = 0; /* so u.u_ofile always gets 0/d */ 
return; 


ip = fp->f_inode; 
plock({ip):; 

dev = (dev_t)ip->i_rdev; 
fmt = ip->i_modeéIFMT; 
fp->f_count = 6; 
fp->f_next = ffreelist; 
ffreelist = fp; 
switch(fmt) { 


case IFCHR: 


tt 


cfunc 
break; 


cdevsw[ (short)major (dev) ].d_close; 


case IFBLK: 


cfunc = bdevsw[bmajor(dev)].d_close; 
break; 


case IFIFO: 


default: 


} 
for (fp 


UCB_NET 


} 
if (fmt 


} else { 


closep(ip, flag): 


iput (ip); 
return; 


= file: fp < (struct file *)v.ve_file; fpt+) { 
register struct inode *tip; 


if (fp->f_flag & FSOCKET) 
continue; 


if (fp->f_count) { 
tip = fp->f_inode; 
if (tip->i_rdev == dev && 
(tip->i_modesIFMT) == fmt) 
goto out; 
} 


== IFBLK) { 
register struct mount *mp; 


for (mp = mount; mp < {struct mount *)v.ve_ mount; mp++} 
if (mp->m_flags == MINUSE && mp->m_dev = dev) 
goto out; 
bflush (dev); 
(*cfunc) (minor({dev), flag); 
binval (dev); 
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prele(ip); 
{*cfunc) (minor(dev), flag); 
} 
out: 
iput (ip); 
} 


j* 
* openi called to allow handler of special files to initialize and 
* validate before actual IO. 
xf 

openi{ip, flag) 

register struct inode *ip; 

{ 

dev_t dev; 
register unsigned int maj; 


dev = (dev_t)ip->i_rdev; 
switch (ip->i_mode&IFMT) { 


case IFCHR: 
maj = major (dev); 
4f (maj >= cdevcnt) 
gotsa bad; 
if (u.u_ttyp = NULL) 
u.u_ttyd = dev; 
(*cdevsw{ (short)maj].d_open) (minor (dev), flag); 
break; 


case IFBLK: 
maj = bmajor (dev) ; 
if (maj >= bdevent) 
goto bad; 
(*bdevsw[maj].d_open) (minor(dev), flag); 
break; 


case IFIFO: 
openp(ip, flag); 
break; 

} 

return; 


bad: 
u.u_error = ENXIO; 


Check mode permission on inode pointer. 

Mode is READ, WRITE or EXEC. 

In the case of WRITE, the read-only status of the file 
system is checked. Also in WRITE, prototype text 

segments cannot be written. 

The mode is shifted to select the owner/group/other fields. 
The super user is granted all permissions. 


++ + © * + HF HF 


xf 
access(ip, mode) 
register struct inode *ip; 
{ 
register struct user *up; 
register m; 


up = &u; 
m = mode; 
if (m == IWRITE) { 
Lf (getfs(ip->i_dev)->s_ronly) { 
up->u_error = EROFS; 
return (1); 
} 
if (ip->i_flag&ITEXxt) 
xrele(ip); 
if (ip->i_flag & ITEXT) { 
up->u_error = ETXTBSY; 
return(l); 
} 
} 


if (up->u_uid == 6) 


return (6); 
if (up->u_uid {= ip->i_uid) { 
m >>= 3; = 
if (up->u_gid != ip->i_gid) 
m >>= 3s 


} 
if (({ip->i_modeém) != 0) 
return (0); 


up->u_error = EACCES; 
return(1); 


cd 


i* 
* Lock up a pathname and test if the resultant inode is owned by the 
* current user. If not, try for super-user. 
®* If permission is granted, return inode pointer. 


xf 
struct inode * 
owner ({} 
{ 
register struct inode *ip; 
ip = namei(uchar, 9); 
if (ip == NULL) 
return (NULL) ; 
if (u.u_uid = ip->i_uid || suser()) 
if (getfs(ip->i_dev)->s_ronly) 
u.u_error = EROFS; 
if (!u.u_error) 
return (ip); 
iput (ip); 
return (NULL) ; 
} 
fr 
* Test if the current user is the super user. 
xf 
suser () 
{ 
if (u.u_uid = 0) { 
u.u_acflag |= ASU; 
return(1); 
} 
u.u_error = EPERM; 
return (0); 
} 
7* 
* Allocate a user file descriptor. 
*f 
ufalloc(i) 


register i; 
{ 
register struct user *up; 


up = &u; 
for(; i<NOFILE; i++) 
if (up->u_ofile[i] == NULL) { 
up->u_rvall = i; 
up->u_pofile[i] = 0; 
return(i); 
} 
up->u_error = EMFILE; 
return (-1); 


* Allocate a user file descriptor and a file structure. 
* Initialize the descriptor to point at the file structure. 


* no file -- if there are no available file structures. 
af 

struct file * 

falloc{ip, flag) 
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struct inode *ip; 


{ 


} 


register struct file *fp; 
register i; 


i = ufalloc(d); 

if (i < 0) 
return (NULL) ; 

if ({fp=ffreelist) == NULL) { 
printf("no file\n"); 
syserr.fileovft+; 
u.U_error = ENFILE; 
return (NULL); 

} 

ffreelist = fp->f_next; 

u.u_ofile[i] = fp; 

fp->f_count+t; 

fp->f_inode = ip; 

fp->f_flag = flag; 

fp->f_offset = 0; 

return (fp); 


struct file *ffreelist; 


finit() 


{ 


register struct file *fp; 
register short i; 


ffreelist = fp = &file[6]; 
i-=v.v_file - 1-1; 
do { 
fp->f_next = fptl; 
fpt+;: 
} while (--i ‘= -1); 
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/* data and code stubs for loading witout network */ 


#include “sys/param.h" 
f#include “sys/config.h" 
#include “sys/types.h" 
#include “sys/mmu.h" 
#include “sys/sysmacros.h" 
#include "sys/dir.h" 
#include “sys/proc.h" 
#include “sys/seg.h" 
#include “sys/signal.h" 
#include "sys/errno.h" 
#include “sys/user.h" 
#include “sys/systm.h" 
f#include “sys/inode.h" 
#include “sys/ino.h" 
#include “sys/file.h" 
#include “sys/conf.h" 
#include “net/misc.h" 
#include “net/protosw.h"™ 
#include “net/socket.h" 
#include “net/socketvar.h" 
#include "sys/stat.h" 
#include “sys/ioctl.h®" 
#include “net/ubavar.h" 
#include “sys/map.h" 
f#include “net/if.h" 
#include "net/in.h" 
#include “net/in_systm.h" 
#include “net/ip.h®" 
#include “net/ip_var.h™ 
#include “sys/var.h" 


/* data *f 

struct protosw protosw{[1]; 

char netstak [3000]; 

char * svstak; 

int ifnetslow; 

int protofast; 

int protoslow; 

short netoff; 

int netisr; 

extern int ptc_dev; 

extern int selwait; 

extern u_short ip id; 

extern struct ipq ipa; 

extern struct ipstat ipstat; 
extern struct ifqueve rawintrq: 
extern struct uba_device ubdinit[]; 
extern struct protosw *protoswLAST; 
#ifdef INET 

extern struct ifqueve ipintra; 
#endif 


/* routines */ 
ssocket () 


{ 
#ifdef lint 
ifnmet++; 
ifnetslowt+; 
protofasttt+; 
protoslowt+t; 
ptc_devtt; 
selwait++; 
ip_id++; 
ipq.ipq_ttlt++; 
*protoswLASTtt; 
ubdinit [0] .ui_unit++; 
ipintrq.ifq_lent++; 
rawintrq.ifg lent++; 
protosw[0].pr_typet+; 
ipstat.ips toosmall++; 
#endif 
u.u_error = ENETDOWN; 
} 


netintr() 


{ 
netisr = 0; 
} 
/*ARGSUSED*/ 
soclose(so, exiting) struct socket *so; int exiting; 
i 
u.u_error = ENETDOWN; 
} 
/*ARGSUSED* / 
soreceive(so, asa) struct socket *so; struct sockaddr *asa; 


{ 


} 
/*ARGSUSED*/ 
sosend(so, asa) struct socket *so; struct sockaddr *asa; 
{ 
return (0); 
} 
/*ARGSUSED* / 
sostatiso, sb) struct socket *so; struct stat *sb; 
{ 
return (0); 
} 
/*BARGSUSED*/ 
soioctl (so, cmd, cmdp) struct socket *so; int cmd; caddr_t cmdp; 
{ 
u.u_error = ENETDOWN; 
} 
sconnect () 
{ 
u.u_error = ENETDOWN; 
} 
ssend() 
{ 
u.u_error = ENETDOWN; 
} 
ssockad {) 
{ 
u.u_error = ENETDOWN; 
} 
sSaccept {) 
{ 
u.u_error = ENETDOWN; 
} 
netreset () 
{ 
} 
sethostname () 
{ 
u.u_error = ENETDOWN; 
} 
gethostname({) 
{ 
u.u_error = ENETDOWN; 
} 
select () 
{ 
u.u_error = ENETDOWN; 
} 
sreceive ()} 
{ 
u.u_error = ENETDOWN; 
} 
/*ARGSUSED*/ 
ptswrite(dev) dev_t dev; 
{ 
u.u_error = ENETDOWN; 
} 
/ *ARGSUSED*/ 
ptcwrite(dev) dev_t dev; 
{ 
u.u_error = ENETDOWN; 
} 
/*ARGSUSED* / 
ptsioctlidev, cmd, addr, flag) caddr_t addr; dev_t dev; 
{ 
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u.u_error = ENETDOWN; 
} 
/*ARGSUSED*/ 
ptcioctl{dev, cmd, addr, flag) caddr_t addr; dev_t dev; 
{ 

u.u_error = ENETDOWN; 
} 
/ *ARGSUSED* / 
ptsopen(dev, flag) dev_t dev; 
{ 

u.u_error = ENETDOWN; 
} 
/ *ARGSUSED* / 
ptcopenidev, flag) dev_t dev; int flag; 
{ 

u.u_error ~ ENETDOWN; 
} 
/ *ARGSUSED* / 
ptsread(dev) dev_t dev; 
{ 

u.u_error = ENETDOWN; 
} 
/*ARGSUSED*/ 
ptcread(dev) dev t dev; 
{ 

u.u_error = ENETDOWN; 
} 
/ *ARGSUSED* / 
ptsclose(dev) dev_t dev; 
{ 

u.u_error = ENETDOWN; 
} 
/*ARGSUSED*/ 
ptcclose({dev) dev_t dev; 
{ 

u.u_error = ENETDOWN; 
} 
netinit () 
{ 
} 


#ifdef _NOTDEF 
/* reference fnetlocal.c for inserting null interrupt associated stuff */ 
FAKE () 


{ 
fnetlocal(); 


} 
#endif NOTDEF 





fnetlocal.«¢ 


/* local 


#include 
#include 
#include 
#include 
#include 


#include 
#include 
#include 
#include 
#include 


/* causes make to complain so this module gets included. 


defs for no network */ 


“sys/param.h" 
“sys/types.h" 
“sys/sysmacros.h" 
“sys/yvar.h" 
“errno.h" 


“net/misc.h" 
"net /mbuf.h" 
“net/protosw.h" 
“net /socket .h“ 
“net/ubavar .h® 


fnetlocal(){} 


/* ,.driver structure */ 
struct uba_driver ebdriver; 


/* interrupt routine */ 
ebintr() {} 
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"Called" from fnet.c */ 
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i if.c 4.25 83/02/10 xf 
#include “sys/param.h" 
#include "sys/config.h" 
#include “sys/errno.h" 
#include "sys/types.h" 
#include "sys/systm.h" 
#include "net/misc.h" 
#include "net/socket.h" 
#include “net/mbuf.h" 
#include “net/protosw.n" 
#include “net/if.h" 
#include “net/af.h® 


int ifqmaxlen = IFQ_MAXLEN; 
Network interface utility routines. 


parameters. Other routines take value parameters, 


* 

k 

* Routines with if ifwith* names take sockaddr *’s as 
* 

* e.g. if_ifwithnet takes the network number. 


*/ 
ifinit () 
{ 
register struct ifnet *ifp; 
for (ifp = ifnet; ifp; ifp = ifp->if_next) 
if (ifp->if_init) { 
(*ifp->if_init) (ifp->if_unit); 
if (ifp->if_snd.ifq_maxlen = 0) 
ifp->if_snd.ifq_maxlen = ifqmaxlen; 
} 
if_slowtimo(); 
t 
#if vax 
f* 
* Call each interface on a Unibus reset. 
*f 
ifubareset (uban) 
int uban; 
{ 
register struct ifnet *ifp; 
for (ifp = ifnet; ifp; ifp = ifp->if_next) 
if (ifp->if_reset) 
(*ifp->if_reset) (uban); 
} 
fendif 
i* 


* Attach an interface to the 
* list of "active" interfaces. 
*/ 
if_attach (ifp) 
struct ifnet *ifp; 
{ 
register struct ifnet **p = éifnet; 


while (*p) 
p = &((*p)->if_next); 

*p = ifp; 
} 
{* 
* Locate an interface based on a complete address. 
*/ 
/ *ARGSUSED* / 


struct ifnmet * 
if_ifwithaddr (addr) 
struct sockaddr *addr; 
{ 
register struct ifnet *ifp; 


#define equal(ai, a2) \ 


(bemp{(caddr_t)({al)->sa_data), (caddr_t){(a2)->sa_data), 14) == @) 
for {ifp = ifnet; ifp; ifp = ifp->if_next) { 
if (ifp->if_addr.sa_ family != addr->sa_family) 
continue; 
if (equal (&ifp->if_addr, addr)) 
break; 
if ((ifp->if_flags & IFF_BROADCAST) && 
equal (&ifp->if_broadaddr, addr)) 
break; 
} 
return (ifp); 
, 


7* 
* Pind an interface on a specific network. If many, choice 
* is first found. 
xf 
struct ifnet * 
if_ifwithnet (addr) 
register struct sockaddr *addr; 
{ 
register struct ifnet *ifp; 
register u_int af = addr->sa_family; 
register int (*netmatch) (); 


if (af >= AF_MAX) 
return (8); 

netmatch = afswitch[af].af_netmatch; 

for (ifp = ifmet; ifp; ifp = ifp->if_next) { 
if (af != ifp->if_addr.sa_family) 


continue; 
if ((*netmatch) (addr, &ifp->if_addr)) 
break; 
} 
return {ifp): 
} 
{* 
* As above, but parameter is network number. 
xf 


struct ifnet * 
if_ifonnetof (net) 
register int net; 
{ 
register struct ifnet *ifp; 


for (ifp = ifnet; ifp; ifp = ifp->if_next) 
if (ifp->if_net == net) 


break; 
return (ifp); 
} 
/* 
x Find an interface using a specific address family 
*/ 


struct ifnet * 
if_ifwithaf (af) 

register int af; 
{ 


register struct ifnet *ifp; 


for (ifp = ifnet;: ifp; ifp = ifp->if_next) 
if (ifp->if_addr.sa_family == af) 
break; 
return (ifp); 
} 


#ifdef notdef 
/* 
* Mark an interface down and notify protocols of 
* the transition. 
* NOTE: must be called at splnet or eqivalent. 
*/ 
if_down(ifp) 
register struct ifnet *ifp; 
{ 
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ifp->if_flags é= ~IFF_UP; 
pfctlinput (PRC_IFDOWN, (caddr_t)&ifp->if_addr); 


} 
#endif 


{* 
* Handle interface watchdog timer routines. Called 
from softclock, we decrement timers (if set) and 


* 
* call the appropriate interface routine on expiration. 


xf 
if_slowtimo() 


{ 
register struct ifnet *ifp; 
for (ifp = ifnet; ifp; ifp = ifp->if_next) { 
if (ifp->if_timer == 0 || --ifp->if_timer) 


continue; 


if (ifp->if_watchdog) 
(*Lifp->if_watchdog) (ifp->if_unit); 


} 


/* billn -- clock calls us in old... 
timeout (if_slowtimo, (caddr_t)0, hz / IFNET_SLOWH2); 


*/ 
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/* 3com etherbox driver */ 


#include “sys/param.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
f#include “sys/var.h" 
#include “errno.h" 
#include “sys/config.h" 


#tinclude "net/misc.h" 
#include "net/mbuf.h" 
#include “net/protosw.h" 
#include "net/socket.h" 
#include "net/ubavar.h" 
#include “net/if.h" 
#include "net/route.h" 
#include "net/in.h" 
#include "net/in_systm.h" 
#include “net/ip.h™ 
#include “net/ip var.h" 
#include “net/if_ether.h™ 


#define EBPUP_PUPTYPE 96x0400 /* PUP protocol */ 
#define EBPUP_IPTYPE 6x0800 /* IP protocol */ 
{* 


* The EBPUP_NTRAILER packet types starting at EBPUP_TRAIL have 

* (type-EBPUP_TRAIL)*512 bytes of data followed 

* by a PUP type (as given above) and then the (variable-length) header. 
xf 
#define EBPUP_TRAIL 0x1000 /* Trailer PUP */ 
#define EBPUP_NTRAILER 16 


fe 
* 3Com Ethernet controller registers. 
ef 
#define EB _ACTADDRG Q /¢* actual address byte 0 */ 
#define EB _ACTADDR1 1 /* actual address byte 6 */ 
#define EB_ACTADDR2 2 /* actual address byte 0 */ 
#define EB ACTADDR3 3 /* actual address byte 0 */ 
#define EB _ACTADDR4 4 /* actual address byte 6 */ 
#define EB _ACTADDRS 5 /* actual address byte 0 */ 
#define EB _RCVCMD 6 {* receive command */ 
#define EB XCSR 7 /* transmit csr */ 
define EB XBP HI 8 /* transmit buffer pointer high byte */ 
#define EB XBP_LO 9 /* transmit buffer pointer low byte */ 
#define EB _BBPCLEAR 16 /* buffer pointer clear(w) */ 
#define EB PROM 16 /* address prom (r) */ 
#define EB AUXCSR 11 /* auxiliary command/status */ 
#define EB_COLLCNTR 12 /* collision counter */ 
#define EB XMTBUF 13 /* transmit buffer */ 
#define EB _RCVBUFA 14 /* receive buffer a */ 
#define EB_RCVBUFB 15 /* receive buffer b */ 
[* 
* Transmit cmd reg bits 
xf 
#define EB EIEOF Ox8 /* enable ints on end of frame */ 
#define EB _EI16COLL 4 /* enable ints on 16 collisions */ 
#define EB_EICOLL 2 /* enable ints on collisions */ 
#define EB_EIUNDER 1 /* enable ints on underflow */ 
fe 
* Transmit status reg bits 
*f 
#define EB XREADY 0x8 /* ready for new frame */ 
#define EB COLL16 4 /* 16 collisions detected on last xnit */ 
#define EB_COLL 2 /* collision occurred */ 
#define EB _UNDERFLOW 1 /* force underflow */ 
/* 
* Receive command reg bits 
*/ 
#define EB MULTI Oxc /* match station, multi, broadcast */ 


#define EB STABROAD 0x80 /* match station, broadcast */ 

#define EB_PROMIS 0x40 /* match all packets */ 

#define EB_ANYGOOD 0x26 /* enable detection of any good frame */ 
#define EB_ANY 6x10 /* enable detection of any frame */ 
#define EB SHORT 0x8 /* enable decection of short frames */ 
#define EB DRIBBLE 4 /* enable dectection of dribble error */ 
#define EB_CRC 2 /* enable dectection of CRC error */ 
#define EB _OVFLO 1 /* enable detection of overflow error */ 
#define EB_RCVNORM (EB_STABROAD|EB ANYGOOD|EB DRIBBLE|EB_CRC|EB OVFLO|EB SHORT) 
/* 

* Receive status reg bits 

*/ 

#define EB STALE 0x80 /* invalid packet here */ 

#define EB_SHORTERR 0x40 /* short frame */ 

#define EB_DRIBERR 6x20 /* dribble error */ 

#define EB_CRCERR 0x10 /* cre error */ 

#define EB_OVFLERR Oxs /* overflow error */ 

#define EB _RCVERR Oxf /* error mask */ 

#define EB_RBUF 0x7 /* buffer pointer mask */ 

/* 

* Auxiliary command reg bits 

*/ 

#define EB_EDLCRES 6x80 /* reset EDLC chip */ 

#define EB SYSEI 0x40 /* enable system interrupts */ 

#define EB _RBBSW 0x26 /* talk to receive buffer b */ 
#define EB RBASW 0x10 /* talk to receive buffer a */ 
#define EB_XBUFSW 0x8 /* talk to transmit buffer */ 
#define EB XEOFDIS 2 /* create underflow for testing */ 
#define EB_POWINTR 1 /* clear power-on interrupt */ 

/* 

* Auxiliary status reg bits 

xf 

#define EB _XCVRUP 0x86 /* the integral transceiver is enabled */ 
#define EB BBASW 4 /* receive buf b before a switch */ 
#define EB IMASK 6x70 /* interesting bits for rev. int. routine */ 
#define EBRDOFF 2 /* packet offset in read buffer */ 
#define EBMAXTDOFF {2048-512} /* Max packet offset (min size) */ 


#define NEB 1 


/* 
* 3Com Ethernet Controller interface 
xf 


#define EBMTU 1500 


int nulldev(), ebattach(), ebintr(), ebpoll(): 
struct uba_device *ebinfo[NEB]; 


struct uba_driver ebdriver = { 
nullidev, ebattach, (u_short * )0, ebinfo 
he 


#define EBUNIT (x) minor (x) 


int ebinit (),eboutput (),ebwatch (); 
struct mbuf *ebget (); 


int ebwr_reg(), ebrd_reg()}; 
extern struct ifnet loif; 


7* 
Ethernet software status per interface. 


x 
* 
* Bach interface is referenced by a network interface structure, 
* es if, which the routing code uses to locate the interface. 

* This structure contains the output queue for the interface, its address, 
af 
struct eb softc { 

struct, arpcom es ac; /* common Ethernet structures */ 
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#define es if es_ac.ac if /* network-visible interface */ 
#define es_enaddr es ac.ac_enaddr /* hardware Ethernet address */ 
short es oactive; /* is output active? */ 


} eb_softc[NEB]; 
7* temp receive buffer +/ 


char ebrbuf (EBMTU]; 


/* for polling */ 
short ebok = 0; 


/* set low 3 bytes to, eg, DEC manuf. number for us to pretend te be DEC */ 
long eb_masq = 0; 


/* 
* Interface exists: make available by filling in network interface 
* record. System will initialize the interface when it is ready 
* to accept packets. 
xf 
ebattach (md) 
struct uba_device *md; 

{ 
struct eb softc *es = &eb softc[md->ui_unit]; 
register struct ifnet *ifp = &es->es if; 
register pport = (int)md->ui_addr; 
struct sockaddr_in *sin; 


ifp->if_unit = md->ui_unit; 
ifp->if_name = "eb"; 

ifp->if_mtu = EBMTU; 

ifp->if_net = md->ui_flags & OxFF006000; 


if (l!appleinit (ppert)) 


return; 
ebreset (pport); 
/* 
* Read the ethernet address from the box. 
xf 
ebwr_reg(pport, EB BBPCLEAR, 0); /* reset bus-buffer pointer */ 
ebrd_setup(pport, EB PROM); /* setup for read from prom */ 


ebrd_data(pport, es->es enaddr, 6}: 
/* hack to change the manufacturer */ 
if (eb_masq) { 

char *mp; 


mp =(char *)&eb masq; 
mptt+; 
bcopy (mp, es->es enaddr, 3); 
} 
printf("Ethernet address = "); 
{ 
char * p= &es->es enaddr[0]; 
int i, j = 0; 
char buf[14]; 


for (i = 0; i < 6; 4 ++) { 
buf[j++] = "0123456789ABCDEF"[{(*p >> 4) &0xf)]; 
buf [j++] = "012345678 9ABCDEF"[{(*pt+) &Oxf)]; 
} 
buf[jt+] = “\n’; 
buf[j] = 0; 
printf (buf); 
} 
sin = {struct sockaddr _ in *)&es->es if.if addr; 
sin->sin_ family = AF_INET; 
/* 
sin->sin_ addr = arpmyaddr((struct arpcom *)0); 
*/ 


/* this is a way to set addresses for now (without an iocti{)) */ 
sin->sin_addr.s_addr = (u_long)md->ui_flags; 
ebsetaddr(ifp, sin); 


ifp->if_init = ebinit; 
ifp->if_output = eboutput; 
ifp->if_watchdog = ebwatch; 


if_attach(ifp); 


} 


ebwatch ({) 
i} 


f* 
* Initialization of interface; clear recorded pending 
* operations. 

*/ 


mesg 
ebinit {uni 


{ 
struct eb_softc *es = seb softc[unit]; 


register struct ifnet *ifp = ées->es if; 
register struct sockaddr_in *sin; 
register pport; 

int i, s; 

char ebuf [6]; 


sin = (struct sockaddr _in *)&ifp->if_addr; 

if (sin->sin_addr.s addr = 6) /* address still unknown */ 
return; 

if ((es->es_if.if_flags & IFF_RUNNING) = 0) { 
pport = (int) ebinfo[unit]->ui_addr; 
s = splimp(); 


/* reset EDLC chip by toggeling reset bit */ 
ebwr_reg(pport, EB AUXCSR, EB EDLCRES); 
ebwr_regipport, EB_AUXCSR, 5); 


/* Initialize the address RAM */ 
ebwr_reg(pport, EB BBPCLEAR, 6); /* reset bus-buffer pointer */ 
ebrd_setup(pport, EB PROM); 
ebrd_data(pport, ebuf, 6); 
for (i = G; i < 6; i++) 
ebwr_reg(pport, EB _ACTADDRO+i, ebuf[i]); 


/* Hang receive buffers and start any pending writes. */ 
ebwr_reg(pport, EB_RCVCMD, EB_RCVNORM); /* normal bits */ 
ebwr_reg(pport, EB AUXCSR, (EB_RBASW|EB_RBBSW|EB SYSEI)); 
es->es oactive = 0; 
es->es if.if flags {= IFF_UP|IFF_RUNNING; 
if (es->es_if.if_snd.ifq_head) 
ebstart (unit); 
ebok = pport; 
ebpoll (pport) ; 
Splx{(s); 
} 
if_rtinit (&es->es_if, RTIF_UP); 
arpattach (&es->es_ ac); 
arpwhohas(&es->es ac, &sin->sin_addr) ; 


/* 
Start or restart output on interface. 

If interface is already active, then this is a retransmit 

after a collision, and just restuff registers. 

If interface is not already active, get another datagram 

to send off of the interface queue, and map it to the interface 
before starting the output. 


Oe 


xf 

ebstart (dev) 
register dev t dev; 

{ 
register int unit = EBUNIT (dev); 
register struct eb _softc *es = seb softc[unit]; 
register int pport: 
register struct mbuf *n; 
register unsigned char csr; 
register x = spl6(); 


pport = (int)ebinfo{unit]->ui_addr; 
if (es->es oactive) 
goto restart; 
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IF_DEQUEUE (&es->es if.if snd, m); 
if (m == 0) { 
es->es oactive = 0; 
splx (x); 
return; 
} 
ebput {pport, m); 
ebwr_reg{pport, EB XCSR, {EB_EIEOF|EB EI16COLL)) ; 
esr = ebrd reg{pport, EB AUXCSR) & EB_IMASK; 
ebwr_reg(pport, EB_AUXCSR, csr | (EB_SYSEI|EB XBUFSW)); 


restart: 

splx(x); 

es->es oactive = 1; 
} 


int bbuf; 

int abuf; 

int bbabuf; 

int abbbuf; 

int nopkt; 

{* 

* Ethernet interface interrupt. If received packet examine 
* packet to determine type. If can’t determine length 

* from type, then have to drop packet. Othewise decapsulate 
* packet based on type and pass to type specific higher-level 
* input routine. 


*f 
/* ARGSUSED */ 
ebintr (pport) 
{ 
register struct eb softe *es; 
register int unit; 
register bits = 0; 
register unsigned char csr, xcsr; 
extern short netoff; 
if (netoff) 
return; 
for (unit = 4; unit < NEB; unittt+) { 
es = &eb softc[unit]; 
csr = ebrd_ reg(pport, EB AUXCSR): 
again: = 


switch (csr & (EB _RBASW|EB RBBSW|EB BBASW)) { 
case EB RBASW: 7 
case EB RBASW|EB BBASW: 
/* RBBSW == 0, receive B packet */ 
bbouf++; 
ebread(es, pport, EB_RCVBUFB); 
bits |= (EB_RBBSW|EB SYSEI); 
break; 


case EB RBBSW: 

case EB RBBSW|EB BBASW: 
/* RBASW == 0, receive A packet */ 
abuf++; 
ebread(es, pport, EB_RCVBUFA); 
bits |= (EB_RBASW|EB SYSEI); 
break; 


case EB BBASW: 
/* RBASW == 0, RBBSW == 0, BBASW, receive B, then A */ 
bhabuf++; 
ebread(es, pport, EB _RCVBUFB) ; 
ebread(es, pport, EB RCVBUFA); 
bits |= (EB_RBBSW|EB RBASW|EB SYSETI); 
break; 


case 0: 
/* RBASW == 0, RBBSW == 0, BBASW == 0, receive A, then B */ 
abbbuf++; 
ebread(es, pport, EB _RCVBUFA); 
ebread(es, pport, EB RCVBUFB) ; 
bits [= (EB_RBBSW|EB RBASW|EB SYSEI); 
break; 7 


case EB_RBASW|EB RBBSW: 
case EB RBASW|EB_RBBSW|EB BBASW: 
/* no input packets */ 


nopktt+; 
its j= {EB_RBBSW|EB RBASW/EB SYSHI): 
break; 
default: 


panic("ebintr: impossible value"); 
/* NOT REACHED */ 
3 
xesr = ebrd_reg(pport, EB AUXCSR); 
if (xcsr != csr) { 
csr = xCSI; 
goto again: 
} 
ebwr_reg(pport, EB AUXCSR, (int) ({csr|jbits)&EB IMASK)); 


if (es->es_oactive) { 
if ((csr & EB _XBUFSW) == 0) { 
es->es if.if opackets++; 
es->es oactive = 0; 
csr = ebrd reg(pport, EB _XCSR); 
if (esr&é0xff — Oxff) 
csr = ebrd reg({pport, EB XCSR); 
lf (csr&Qxff — Oxff) { 
printf (“eb%d xmit status reg. botch\n", 
unit); 
goto cont; 
} 
if (csr & EB COLL) 
/* clear counter */ 
ebwr_regipport, EB COLLCNTR, 0); 
if (csr & EB COLL16) { 
printf (“eb$d: 16 collisions; resetting...\n" 
, unit); 
ebreset (pport); 
ebinit (unit); 


ble we 
Fh 


fes->es if.if_snd.ifg head) 
ebstart (unit); 


} 
cont: 
ebportreset (pport); /* clear pport */ 


} 


ebread(es, pport, buf} 
register struct eb softc *es; 
register int pport; 
register int buf; 


register struct ether header *eb; 
register struct mbuf *m; 

register int len, off, eboff; 
register unsigned char bytel, byte2; 
short resid; 

register struct ifqueue *inq; 

short x; 


es->es if.if_ipackets++; 
ebwr_reg(pport, EB BBPCLEAR, 0); /* clear bus buffer pointer */ 
bytel = ebrd regi(pport, buf); /* first byte of buffer */ 
if (bytel & EB RCVERR) { 
printf (“ebrcev error %x\n", byteléOxff); 
es->es if.if lerrorst+t+; 
return; 
} 
byte2 = ebrd_reg(pport, buf); /* second byte of buffer */ 
eboff = (((byteléEB RBUF)<<8)|byte2) - EBRDOFF; 


/* get data */ 
ebrd_setup(pport, buf); 
ebrd_data(pport, ebrbuf, eboff); 
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Get input data length. 

Get pointer to ethernet header {in input buffer). 
Deal with trailer protocol: if type is PUP trailer 
get true type from first 16-bit word past data. 
Reebmber that type was trailer by setting off. 


* FFF 


xf 
len = eboff - sizeof (struct ether header); 
eb = (struct ether header *)ebrbuf; 


#define ebdataaddr(eb, off, type) ( (type) ({(caddr_t) ( (eb) +1) +(off))}) 


if (eb->ether_type >= EBPUP_TRAIL && 
eb->ether type < EBPUP_TRAIL+EBPUP_NTRAILER) { 
off = (eb->ether_ type ~ EBPUP_TRAIL) * 512; 
if (off >= EBMTU) 
return; /* sanity */ 
eb->ether_ type = *ebdataaddr(eb, off, u_short *); 
resid = *(ebdataaddr(eb, off+2, u_short *)); 
if (off + resid > len) 
return; /* sanity */ 
len = off + resid; 


} else 
off = 6; 
if (len = 0) 
return; 
/* 


* Put packet into mbufs. Off is nonzero if packet 

* has trailing header; ebget will then force this header 

* information to be at the front, but we still have to drop 

* the type and length which are at the front of any trailer data. 


xf 

m= ebget(ebrbuf, len, off); 

if (m = 0) 
return; 

if (off) { 
m->m_off t= 2 * sizeof (u_short); 
m->m_len -= 2 * sizeof (u_short); 

} 

x = splé(); 


switch (eb->ether_type) { 


#ifdef INET 


case EBPUP_IPTYPE: 
schednetisr (NETISR_IP); 
ing = éipintrgq; 
break; 


case ETHERPUP ARPTYPE: 
arpinput (&es->es_ ac, m); 
splx (x); 
return; 


#endif 


{* 
* 
* 
* 
* 


default: 
m_freem(m); 
splx (x); 
return; 


} 


if (IF_QFULL (ing) ) { 
IF_DROP (ing) ; 
splx (x); 
m_freem(m) ; 
return; 

} 

IF_ENQUEUE (ing, m); 

Splx (x); 


Ethernet output routine. 

Encapsulate a packet of type family for the local net. 

Use trailer local net encapsulation if enough data in first 
packet leaves a multiple of 512 bytes of data in remainder. 


* If destination is this address or broadcast, send packet to 
* loop device to kludge around the fact that 3com interfaces can’t 
* talk to themselves. 
xf 
eboutput(ifp, mo, dst) 
register struct ifnet *ifp; 
register struct mbuf *m0; 
register struct sockaddr *dst; 


int type, s, error; 

u_char edst [6]; 

struct in_addr idst; 

register struct eb _softc *es = seb softc[ifp->if_unit]; 
register struct mbuf *m = m0; 

register struct ether_header *eb; 

register int i; 

struct mbuf *mcopy = (struct mbuf *) 0; /* Null */ 


Ss = splnet(); 
switch (dst->sa_family) { 


#ifdef INET 
case AF INET: 
idst = ((struct sockaddr_in *)dst)->sin_addr; 
if (larpresolve(ées->es ac, m, &idst, edst)) 
return (4); /* if not yet resolved */ 
if (in_lnaof(idst) = INADDR_ANY) 
mcopy = m_copy(m, 6, (int)M COPYALL); 
type = EBPUP_IPTYPE; 
goto gottype; 
tendif 


case AF UNSPEC: 
eb = (struct ether_header *)dst->sa_data; 


beopy((caddr_t)eb->ether dhost, (caddr_t)edst, sizeof (edst)); 


type = eb->ether type; 
goto gottype; 


default: 
printf ("ebtd: can’t handle af%d\n", ifp->if_unit, 
dst->sa_family); 
error = EAFNOSUPPORT; 
goto bad; 


gottype: 

fs 

* Add local net header. If no space in first mbuf, 

* allocate another. 

xf 

if (m->m_off > MMAXOFF | | 

MMINOFF + sizeof (struct ether header) > m->m_off) { 
m = m_get (M_DONTWAIT) ; 
if (m = 0) { 
error = ENOBUFS; 
goto bad; 

} 
m->m_next = m0; 
m->m_off = MMINOFF; 
m->m_len = sizeof (struct ether_header); 

} else { 
m->m_off -= sizeof (struct ether_header); 
m->m_len += sizeof (struct ether_header); 

} 

eb = mtod(m, struct ether header *); 

beopy ({caddr_t)edst, (caddr_t)eb->ether_dhost, sizeof (edst)); 

eb->ether_type = htons((u_short)type); 

beopy ((caddr_t)es->es enaddr, (caddr_t)eb->ether_shost, 6); 


/* 
* Queue message on interface, and start output if interface 
* not yet active. 
*/ 
s = splimp()};: 
if (IF_QFULL(&ifp->if_snd)) { 
IF_DROP (&ifp->if_snd); 
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gotlocal 


qfull: 


bad: 


} 
fe 


error = ENOBUFS; 
goto qfull; 
} 
IF_ENQUEUE (éifp->if snd, m); 
if (es->es oactive == 0) 
ebstart (ifp->if unit}; 


splx(s); 


return(mcopy ? looutput(sloif, mcopy, dst) : 0); 


m0 = m; 


m_freem(m0); 
Splx(s); 
return (error); 


* Routine to copy from mbuf chain to transmitter 
* buffer in Multibus ebmory. 


wf 


ebput (pport, m) 


} 
/* 


register int pport; 
register struct mbuf *m; 


register struct mbuf *mp; 
register short off; 
register flag = 6; 
register unsigned len; 
register u_char *p; 


for (off = 2048, mp = m: mp; mp = mp->m_next) 
off -= mp->m_len; 
if {off > EBMAXTDOFF) 
off = EBMAXTDOFF; 


/#* enforce minimum packet size */ 


if (off & 01) { 
off--; 
flagt++; 
} 


/* load xmit buffer pointer */ 
ebwr_reg(pport, EB_XBP LO, off&0xff) ; 
ebwr_reg(pport, EB XBP_HI, ((off>>&)&7)); 
ebwr_setup(pport, EB XMTBUF); 
for (mp = m; mp; mp = mp->m next) { 

len = mp->m_len; 7 

if (len = 0) 

continue; 

p = mtod(mp,u_char*); 

ebwr_data(pport, p, (short)len); 
} 


if (flag) 

ebwr_data(pport, "", 1); 
/* re-load xmit buffer pointer */ 
ebwr_reg(pport, EB XBP LO, off&0xff); 
ebwr_reg(pport, EB_XBP_HI, ((off>>8)&7)); 


m_freem(m) ; 


* Routine to copy from memory into mbufs. 


*/ 


struct mbuf * 
ebget (ebrbuf, totlen, off} 


register u_char *ebrbuf; 
register int totlen, off: 


register struct mbuf *m; 

struct mbuf *top = 0, **mp = &top: 
register int off = off0, len; 
register u_char *cp; 


cp = ebrbuf + sizeof (struct ether header) ; 
#ifdef DUMPIN 
{char *cp = ebrbuf; int i: int 


Lhe 


tendif 


MGET(m, 0); 
if (m — 0){ 
goto bad; 


3 
if (off) { 
len = totlen ~ off; 
cp = ebrbuf + sizeof (struct ether_header) + off; 
} else 
len = totlen; 
m->m_len = len = MIN(MLEN, len); 
m->m_off = MMINOFF; 
mcp = mtod(m, u_char *); 
beopy(cp, mcp, len); 
cp t= len; 
*mMp = Mm; 
mp = &m->m_next; 
if (off — 0) { 
totlen -= len; 
continue; 
} 
off += len; 
if (off = totlen) { 
cp = ebrbuf + sizeof (struct ether header); 
off = 0; 
totlen = off6; 
} 
} 
return (top); 


m_freem({top); 
return (0); 


#ifdef notdef 
/* ebdelay -- wait about tim secs */ 
ebdelay (tim) 
register tim; 
{ 
register i; 


while (tim--) { 
i = 100000; 
while {i--) 


2 


} 
#endif 


/* stuff for apple */ 
#include <sys/pport.h> 
#include <sys/cops.h> 
#include <sys/d_profile.n> 
#include <sys/profile.h> 


#define RC Qxas /* read cmd */ 
#define WC Oxad /* write cmd */ 
#define RD Oxb8 /* read data */ 
#define WD OxbO /* write data */ 
#define INPUT 0x00 /* ddra input */ 
#define OUTPUT OxFF /* ddra output */ 


/* sometime, put the parallel port data somewhere besides the in disk driver */ 


extern struct device_d *pro_da[]; 


ebreset (pport) 
register pport: /* parallel port number */ 
{ 

register struct device d *dp = pro da[pport]; 


7 printf ("ebget:\n") ; for (j=0; 3<6; j++) {for (i=0;1<16;i++) printf ( 
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#define THISISMAGIC 

#ifdef THISISMAGIC 
/* reset 6522. */ 
dp->d_ddra = INPUT; 


dp->d_ddrb = Oxbe; 

dp->d_irb = RC; 

dp->d_per = Oxb; 

dp->d_ier = FIRQ|FCAI1; 
#endif THISISMAGIC 


ebwr_reg(pport, EB _AUXCSR, 1); 
ebportreset (pport) ; 
} 


/* setup a register to write to it */ 
ebwr_setup(pport, regno) 
int pport, regno; 
{ 
register struct device_d *dp = 


dp->d_irb = WC; 
dp->d_ddra = OUTPUT; 
dp->d_ira = regno; 
dp->d_irb = WD; 

} 


/* setup a register to read from it */ 
ebrd_setup(pport, regno) 
int pport, regno; 
{ 
register struct device_d *dp = 


dp->d_irb = WC; 

ap->d_ddra = OUTPUT; 

dp->d_ira = regno; 

dp->d_irb = RD; 

ap~>d_ddra = INPUT; 
} 
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/* enable interrupts (I guess) */ 


/* clear power-on interrupt */ 


pro_da[pport]; 


pro_da[pport]; 


/* write data to box. must have done a ebwr_setupt) first */ 


ebwr_data(pport, p, nbytes) 
int pport; 
register short nbytes; 
register char *p; 
{ 
register struct device d *dp = 


if (nbytes ) 
do { 


pro_da[pport]; 


dp->d_ira = *pt+; 


} while (--nbytes); 
} 


/* read data from box. must have done a ebrd_setup() first */ 


ebrd_data(pport, p, nbytes) 
int pport; 
register short nbytes; 
register char *p; 
{ 
register struct device_d *dp = 


if (nbytes ) 
do { 


pro_da[pport]; 


*ptt+ = dp->d_ira; 


} while (-=nbytes); 
} 


/* write a register */ 
ebwr_reg(pport, regno, byte) 
int ppert, regno, byte; 
{ 
register struct device d *dp = 


dp->d_irb = WC; 


pro_da[pport]; 


dp->d_ddra = OUTPUT; 
dp->d_ira = regno; 
dp->d_irb = WD; 
dp->d_ira = byte; 

} 


/* read a register */ 
ebrd_reg(pport, regno) 
int pport, regno; 


{ 
register struct device_d *dp = pro_da[{pport]; 
dp->d_irb = WC; 
dp->d_ddra = OUTPUT; 
dp->d_ira = regno; 
dp->d_irb = RD; 
dp->d_ddra = INPUT; 
return {dp->d_ira & Oxff); 
} 
/* ebportreset - reset port to normal state after xmit command */ 
ebportreset (pport) 
int pport: 


{ 
register struct device_d *dp = pro_da[pport]; 


dp->d_irb = RC; 
dp->d_ddra = INPUT; 


} 
appleinit (i) 
{ 
register struct device_d *devp; 
int ebintr(); 
extern char slot[];: 
if (!PPOK(i) I| (slot (PPSLOT{i)] f= PRO)) {/* check slot # and type */ 
printf("ethernet init: port td, ", i); 
if (slot [PPSLOT(i)] == PM3) 
printf ("Priam card\n"); 
else 
printf("card ID Ox%x\n", slot [PPSLOT(i)]): 
goto fail; 
} 
devp = pro_da[il; 
if (iocheck(&devp->d_ifr)) { /* board there ? */ 
{ asm(" nop "); } 
if (prodata[i].pd_da != devp) { /* not already setup */ 
if (setppint((prodata[i].pd_da = devp),ebintr}) 
goto fail; 
} 
return 1; 
} else 
fail: 


printf("can’t find port for etherbox %d\n", 1); 
return 0; 


#ifdef doneinppintr 
/* applereset -- reset apple interrupt hware */ 
applereset (pport) 
{ 
register struct device d *dp = pro_da[pport]; 
dp->d_ifr = dp->d_ifr; /* reset interrupt trap */ 
} 
tendif 


/* sigh */ 
short polleb = 1; 
/* ...as opposed to pollcat... */ 
ebpoll (pport) 
{ 
extern time_t lbolt; 


if (polleb) { 


if _eb.c Fri Sep 5 19:08:50 1986 7 


char ebuf[6]; 
int 1; 


/*® 

ebintr (pport); 

«f 

ebreset (pport); 

/* reset EDLC chip by toggeling reset bit */ 
ebwr_reg(pport, EB AUXCSR, EB _EDLCRES) ; 
ebwr_reg(pport, EB AUXCSR, 0); 


/* Initialize the address RAM */ 
ebwr_reg(pport, EB BBPCLEAR, 0); /* reset bus-buffer pointer */ 
ebrd_setup(pport, EB PROM); 
ebrd_ data(pport, ebuf, 6); 
for (i = 0: 1 < 6; i++} 
ebwr_reg(pport, EB _ACTADDRO+i, ebuf[i]); 


/* Hang receive buffers and start any pending writes. */ 
ebwr_reg(pport, EB _RCVCMD, EB _RCVNORM}; /* normal bits */ 
ebwr_reg(pport, EB AUXCSR, (EB_RBASW|EB RBBSW|EB_SYSEI)); 
timeout (ebpoll, pport, v.v_hz*10); 


} 


ebsetaddr(ifp, sin) 
register struct ifnet *ifp; 
register struct sockaddr_in *sin; 


ifp->if_addr = *({struct sockaddr *)sin; 

ifp->if_net = in_netof(sin->sin_addr); 
ifp~>if_host[0] = in_lnaof{sin->sin_addr); 

sin = (struct sockaddr_in *)&ifp->if_broadaddr; 
sin->sin_family = AF_INET; 

sin->sin_addr = if makeaddr(ifp->if_net, INADDR_ANY); 
ifp->if_flags |= IFF_BROADCAST; 
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/* 


if_ec.c 4.22 82/07/21 *f 


#include “ec.h" 


f* 


* 3Com Ethernet Controller interface 


xf 


#include “sys/param.h" 
#include “sys/config.h" 


#include 
#include 


“sys/errno.h™ 
"“svs/types.h™ 


#include “sys/systm.h" 
#include “net/mbuf.h" 
#include “sys/buf.h" 
#include “net/protosw.h" 
#include “net/socket.h"™ 
#include “net/ubavar.h" 
#include “net/ecreg.h" 
#include “net/in.h" 
#include “net/in_systm.h" 
#include “net/if.h" 
#include “net/if_ec.h" 


#include 
#include 


"net /if_uba.h" 
“net /ip.h" 


#include “net/ip_var.h" 
#include “"net/pup.h" 
#include “net/route.h" 
#include “errno.h" 


#define ECMTU 1506 
#define ECMEM 6000060 
int ecprobe(}, ecattachi(), ecrint(), ecxint(}), eccollide(); 
struct uba device *ecinfo[NEC]; 
u_short ecstd[] = { 0 }; 
struct uba driver ecdriver = 
{ ecprobe, 0, ecattach, 0, ecstd, “ec", ecinfo }; 
u_char ec_iltop[3] = { 0x02, 6x07, Ox01 }; 
#define ECUNIT (x) minor (x) 
int ecinit (},ecoutput (),ecreset (); 


struct mbuf *ecget{); 


extern struct ifnet loif; 


register caddr_t ecbuf = (caddr_t) éumem[numuba] [ECMEM]; 


#ifdef lint 


br = 0; cvec = br; br = cvec; 
ecrint(6); ecxint(0); eccollide(0); 


[* 
* Ethernet software status per interface. 
* 
* Bach interface is referenced by a network interface structure, 
* es if, which the routing code uses to locate the interface. 
* This structure contains the output queue for the interface, its address, 
* We also have, for each interface, a UBA interface structure, which 
* contains information about the UNIBUS resources held by the interface: 
* map registers, buffered data paths, etc. Information is cached in this 
* structure for use by the if _uba.c routines in running the interface 
* efficiently. 
*f 
struct ec_softe { 
struct ifnet es if; /* network-visible interface */ 
struct ifuba es_ifuba; /* UNIBUS resources */ 
short es _mask; /* mask for current output delay */ 
short es _oactive; /* 1s output active? */ 
caddr_t es_buf[(16]; /* wirtual addresses of buffers */ 
u_char es_enaddr[6]; /* board’s ethernet address */ 


} ec_softc[NEC]; 


/* 
* Do output DMA to determine interface presence and 
* interrupt vector. DMA is too short to disturb other hosts. 
*/ 
ecprobe (reg) 
caddr_t reg; 


ftendif 
/* 
* Make sure memory is turned on 
xf 
addr->ec_rer = EC_AROM; 
/* 
* Disable map registers for ec unibus space, 
* but don’t allocate yet. 
/ 
ubamem(numuba, ECMEM, 32*2, 0); 
f* 
* Check for existence of buffers on Unibus. 
af 
if {badaddr(({caddr_t) ecbuf, 2)) { 
badl: 
printf(“ec: buffer mem not found\n"); 
bad2: 
ubamem{numuba, 0, 0, 0); /* reenable map (780 only) */ 
addr->ec rer = EC_MDISAB; /* disable memory */ 
return (0); 
} 
#1f VAX780 
if (cpu — VAX_780 && uba_hd[{numuba].uh_uba->uba_sr) { 
uba_hd{numuba] .uh_uba~>uba_sr = uba_hd[numuba] .uh_uba->uba_sr; 
goto badl; 
} 
#endif 
/* 
* Tell the system that the board has memory here, so it won’t 
* attempt to allocate the addresses later. 
*/ 
if (ubamem(numuba, ECMEM, 32*2, 1) == 0) { 
printf ("ecprobe: cannot reserve uba addresses\n"); 
goto bad2; 
} 
/* 
* Make a one byte packet in what should be buffer #0. 
* Submit it for sending. This whould cause an xmit interrupt. 
* The xmit interrupt vector is 8 bytes after the receive vector, 
* so adjust for this before returning. 
xf 
*(u_short *)ecbuf = (u_short) 03777; 
ecbuf [03777] = 7\0'; 
addr->ec_xcr = EC_XINTEN|EC_XWBN; 
DELAY (160000); 
addr->ec_xcr = EC_XCLR;: 
if {cvec > 0 && cvec != 060x200) { 
if (cvec & 04) { /* collision interrupt */ 
cvec -= 04; 
br += 1; /* rev is xmit + 1 */ 
} else { /* xmit interrupt */ 
cvec -= 010; 
br t= 2; /* rev is xmit + 2 */ 
} 
} 
return (1); 
} 
/* 


* Interface exists: make available by filling in network interface 
* record. System will initialize the interface when it is ready 


* to accept packets. 
ef 
ecattach (ui) 
struct uba_device *ui; 
{ 


{ 


register int br, cvec; /* r11, r10 value-result */ 
register struct ecdevice *addr = (struct ecdevice *)reg; 


struct ec_softc *es = éec_softc{ui->ui_unit]; 
register struct ifnet *ifp = &es->es if; 
register struct ecdevice *addr = (struct ecdevice *)ui->ui_addr:; 


if_ec.c Fri Sep 5 19:08:55 1986 


struct sockaddr_in *sin; 
int i, 4 
u_char *cp; 


ifp->if_unit = uvi->ui_unit; 
ifp->if_name = “ec"; 
ifp->if_mtu = ECMTU; 
lfp->if_net = ui->ui_flags; 


{x 
* Read the ethernet address off the board, one nibble at a time. 
*f 
addr->ec_xcr = EC_UECLR; 
addr->ec_rcr = EC AROM; 
cp = es->es enaddr; 
#define NEXTBIT addr->ec_rer = EC_AROM|EC_ASTEP; addr->ec_rer = EC_AROM 

for (i=0; 1<6; itt) { 

kop = O; 

for (j=0; j<=4; jt=4) { 

*cep |= ((addr->ec_rer >> 8) & Oxf) << qe 
NEXTBIT; NEXTBIT; NEXTBIT; NEXTBIT; 

} 

cptt; 
} 

#ifdef notdef 

printf£("ectd: addr=%x:$x:$x:$x:x:$x\n", ui->ui_unit, 

es->es enaddr[0]&0xff, es->es_enaddr[1]é0xff, 

es~>es enaddr[2]&0xff, es—>es enaddr[3]é0xff, 

es->es enaddr[4]&0xff, es->es_enaddr[5]«&0xff); 


fendif 
ifp->if_host[0] = ({es->es enaddr[3]&Oxff)<<16) | 
(fes->es enaddr [4] &Oxff)<<8) | (es->es enaddr[5]&0xff); 
sin = (struct sockaddr_in *)&es->es if.if addr; 
sin->sin_family = AF_INET; 
sin->sin_addr = if _makeaddr(ifp->if_net, ifp->if_host[0]); 
sin = {struct sockaddr_in *)&ifp~>if_broadaddr; 
sin->sin family = AF_INET; 
sin->sin addr = if _makeaddr(ifp->if_net, INADDR_ANY); 
ifp->if_flags = IFF_BROADCAST; 
ifp->if_init = ecinit; 
ifp->if_output = ecoutput; 
ifp->if_ubareset = ecreset; 
for (i=0; i<16; i++) 
es->es buf[i] = éumem[(ui->ui_ubanum] [ECMEM+2048*i]; 
if_attach(ifp); 
} 
{* 


* Reset of interface after UNIBUS reset. 
* If interface is on specified uba, reset its state. 
*] 
ecreset (unit, uban) 
int unit, uban; 
{ 
register struct uba_device *ui; 


if (unit >= NEC |] (ui = ecinfo[unit]) == 0 || ui->ui_alive = 0 || 
ui->ui_ubanum != uban) 
return; 
printf(" ec%d", unit); 
ubamem(uban, ECMEM, 32*2, 0); /* map register disable (no alloc) */ 


ecinit (unit); 
} 


{* 
* Initialization of interface; clear recorded pending 
* operations, and reinitialize UNIBUS usage. 
ny 

ecinit (unit) 

int unit; 
{ 
struct ec_softc *es = éec_softcjunit]; 
struct ecdevice *addr; 
int i, s; 


/* 
* Hang receive buffers and start any pending writes. 
* Writing into the rer also makes sure the memory 
* is turned on. 

x/ 

addr = (struct ecdevice *)ecinfo[unit]->ui_addr; 

s = splimp(); 

for {i=ECRHBF; i>=ECRLBF; i--) 

addr->ec_ rer = EC_READ/i; 

es->es oactive = 0; 

es->es mask = ~0: 

es->es if.if_flags |= IFF_UP; 

if (es->es_if.if_snd.ifg head) 

ecstart (unit); 
splxi{s); 

if_rtinit (s&es->es if, RTF_UP); 


{* 
Start or restart output on interface. 

If interface is already active, then this is a retransmit 

after a collision, and just restuff registers. 

If interface is not already active, get another datagram 

to send off of the interface queve, and map it to the interface 
before starting the output. 


+ Fe ee OF 


xf 

ecstart (dev) 
dev_t dev; 

{ 
int unit = ECUNIT(dev), dest; 
struct ec_softc *es = &ec_softc[unit]; 
struct ecdevice *addr; 
struct mbuf *n; 
caddr_t ecbuf; 


if (es->es_oactive) 
goto restart; 


IF_DEQUEUE(ses->es if.if_snd, m); 
if (m= @) { 
es->es ocactive = 0; 
return; 


} 
ecput (es->es_buf[ECTBF], m); 


restart: 
addr = (struct ecdevice *)ecinfo[unit]->ui_addr; 
addr->ec_xcr = EC_WRITE|ECTBF; 
es->es_ oactive = 1; 

} 


{* 
* Ethernet interface transmitter interrupt. 
* Start another output if more data to send. 
x} 
ecxint (unit) 
int unit; 
{ 
register struct ec_softc *es = éec softc[unit]; 
register struct ecdevice *addr = 
(struct ecdevice *)ecinfo[unit]->ui_addr; 


if (es->es_oactive == 0) 
return; 
at ((addr->ec_xcréEC_XDONE) == 0 || (addr->ec_xcr&EC_XBN) != ECTBF) { 
printf ("“ectd: stray xmit interrupt, xcr=%b\n", unit, 
addr->ec_xcr, EC_XBITS); 
es->es_oactive = 0; 
addr->ec_xcr = EC_XCLR; 
return; 
} 
es->es_ if.if_opackets+t+; 
es->es oactive = 0; 
es->es mask = ~0; 
addr->ec_xcr = EC XCLR; 
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Lf (es->es_if.if snd.ifq head) 
acstart (unit); 
} 


7k 
* Collision on ethernet interface. Do exponential 
* backoff, and retransmit. If have backed off all 
* the way print warning diagnostic, and drop packet. 
xf 
eccollide (unit) 
int unit; 
{ 
struct ec_softc *es = g&ec_softc[unit]; 


es->es_ if.if_collisions+t; 
if (es->es_oactive) 
ecdocoll (unit); 
} 


ecdocoll (unit) 
int unit; 
{ 
register struct ec_softc *es = éec_softc[unit]; 
register struct ecdevice *addr = 
(struct ecdevice *)ecinfo[unit]->ui_addr; 
register i; 
int delay; 


* Es mask is a 16 bit number with n low zero bits, with 
* n the number of backoffs. When es_mask is 0 we have 
* backed off 16 times, and give up. 
*f 
if (es->es_ mask = 6) { 
es->es if.if_oerrorst+; 
printf("ectd: send error\n", unit); 
{* 
* Reset interface, then requeue rev buffers. 
* Some incoming packets may be lost, but that 
* can’t be helped. 
af 
addr->ec_xcr = EC_UECLR; 
for (i=ECRHBF; i>=ECRLBF; i--) 
addr->ec_rer = EC_READ|i; 
/* - 
* Reset and transmit next packet (if any). 
*f 
es->es oactive = 0; 
es->es mask = ~0; 
if (es~>es_if.if_snd.ifq_ head) 
ecstart (unit); 
return; 


Do exponential backoff. Compute delay based on low bits 
of the interval timer. Then delay for that number of 


* 
* 
* slot times. A slot time is 51.2 microseconds (rounded to 51). 
* 
* 


This does not take into account the time already used to 
process the interrupt. 


es->es mask <<= 1; 

delay = mfpr(ICR) &~ es->es_mask; 
DELAY (delay * 51); 

fr 


* Clear the controller’s collision flag, thus enabling retransmit. 


*/ 
addr->ec_xcr = EC_CLEAR; 


~ 


Ethernet interface receiver interrupt. 

If input error just drop packet. 

Otherwise purge input buffered data path and examine 
packet to determine type. If can’t determine length 

from type, then have to drop packet. Othewise decapsulate 
packet based on type and pass to type specific higher-level 


+ + + + + HB OF 


* input routine. 


a] 


ecrint (unit) 


} 


int unit; 


while (addr->ec_rcr & EC_RDONE) 
ecread (unit); 


ecread (unit) 


{ 


int unit; 


register struct ec_softc *es = éec_softc[unit]; 

struct ecdevice *addr = {struct ecdevice *)ecinfo[unit]->ui_addr; 
register struct ec header *ec; 

struct mbuf *m; 

int len, off, resid, ecoff, buf; 

register struct ifqueue *inq; 

caddr_t ecbuf; 


es->es if.if _ipacketst+; 

buf = addr->ec_rer & EC_RBN; 

if (buf < ECRLBF || buf > ECRHBF) 
panic(“ecrint"); 

ecbuf = es->es buf [buf]; 

ecoff = *(short *)ecbuf; 

if (ecoff <= ECRDOFF || ecoff > 2046) { 
es->es if.if_ierrorst++; 


#ifdef notdef 


#endif 


#define 


if (es->es_if.if_jierrors % 100 = 96) 
printf ("ectd: += 1006 input errors\n", unit): 


goto setup; 
} 


/* 
* Get input data length. 
* Get pointer to ethernet header (in input buffer). 
* Deal with trailer protocol: if type is PUP trailer 
* get true type from first 16-bit word past data. 
* Remember that type was trailer by setting off. 
*/ 
len = ecoff - ECRDOFF - sizeof (struct ec_header}); 
ec = (struct ec_header *) (ecbuf + ECRDOFF); 
ecdataaddr(ec, off, type) ((type) (((caddr_t) ((ec)+1)+ (off) ))) 
if (ec->ec_type >= ECPUP_TRAIL && 
ec->ec_type < ECPUP_TRAIL+ECPUP NTRAILER) { 
off = (ec->ec_type - ECPUP_TRAIL) * 512; 
if (off >= ECMTU) 
goto setup; /* sanity */ 
ec->ec type = *ecdataaddr(ec, off, u_short *); 
resid = *(ecdataaddr(ec, off+2, u_short *)); 
if (off + resid > len) 
goto setup; /* sanity */ 
len = off + resid; 
} else 
off = 0; 
if (len == 0) 
goto setup; 


* Pull packet off interface. Off is nonzero if packet 
* has trailing header: ecget will then force this header 
* information to be at the front, but we still have to drop 
* the type and length which are at the front of any trailer data. 
*/ 
m= ecget(ecbuf, len, off); 
if (m == 0) 
goto setup; 
if (off) { 
m->m_off += 2 * sizeof (u_short); 
m->m_len -= 2 * sizeof (u_short); 
} 
switch (ec->ec_ type) { 
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dst->sa_family); 


f#ifdef INET error = EAFNOSUPPORT; 
case ECPUP_IPTYPE: goto bad; 
schednetisr (NETISR_IP); } 
ing = &ipintrg:; 
break: gottrailertype: 
fendif /* 
default: * Packet to be sent as trailer: move first packet 
m_freem(m) ; * (control information) to end of chain. 
goto setup; xf 
} while (m->m_next) 


m= m=>m next; 
Lf (IF_QFULL(ing)) { m->m_next = m0; 


IF_DROP (ing); m = m0->m_next; 
m_freem(m); m0->m_next = 6; 
goto setup; mo = m: 
} 
IF_ENQUEUE (ing, m); gottype: 
{* 
setup: * Add local net header. If no space in first mbuf, 
fe * allocate another. 
* Reset for next packet. xf 
x} if (m->m_off > MMAXOFF | | 
addr->ec_rer = EC_READ|EC_RCLR| buf; MMINOFF + sizeof (struct ec_ header) > m->m_off) { 
} m = m_get (M_DONTWAIT) ; 
if (m = 9) { 
fe error = ENOBUFS; 
* Ethernet output routine. goto bad; 
* Encapsulate a packet of type family for the local net. } 
* Use trailer local net encapsulation if enough data in first m->m_next = mG; 
* packet leaves a multiple of 512 bytes of data in remainder. m->m_off = MMINOFF; 
* If destination is this address or broadcast, send packet to m->m_len = sizeof (struct ec_header); 
x loop device to kludge around the fact that 3com interfaces can’t } else { 
* talk to themselves. m->m_off -= sizeof (struct ec_header); 


xf 


ecoutput(ifp, mo, dst) 


struct ifnet *ifp; 
struct mbuf *m0; 
struct sockaddr *dst; 


int type, dest, s, error; 

register struct ec_softc *es = éec_softc[ifp->if_unit]; 
register struct mbuf *m = m0; 

register struct ec header *ec; 

register int off, i; 

struct mbuf *mcopy = (struct mbuf *) 0; /* Null */ 


switch (dst->sa_family) { 


#ifdef INET 


#endif 


case AF INET: 
dest = ((struct sockaddr _in *)dst)->sin_addr.s addr; 
if (idest &~ Oxff) == Bb) 
mcopy = m_copy(m, 0, M COPYALL); 
else if (dest == ((struct sockaddr_in *)&es->es if.if addr) -> 
sin_addr.s addr) { 
mcopy = ™; 
goto gotlocal; 
} 
off = ntohs((u_short)mtod(m, struct ip *)->ip_len) - m->m_len; 
if (off > 0 && (off & Oxlff) = 0 && 
m->m_off >= MMINOFF + 2 * sizeof (u_short)) { 
type = ECPUP_TRAIL + (off>>9); 
m->m_off -= 2 * sizeof (u_short); 
m->m_len += 2 * sizeof (u_short); 
*mtod(m, u_short *) = ECPUP_IPTYPE; 
*(mtod({m, u_short *) + 1) = m->m_len: 
goto gottrailertype; 
) 
type = ECPUP IPTYPE; 
off = 0; 
goto gottype; 


default: 
printf ("ectd: can’t handle af%d\n", ifp->if_unit, 


m->m_len += sizeof (struct ec_header); 
} 
ec = mtodim, struct ec_header *); 
for (i=0; i<6; i++) 
ec->ec_shost[i] = es->es enaddr [i]; 
if ({dest &~ Oxff) = 0) 
/* broadcast address */ 
for (i=0; i<6; i++) 
ec->ec_dhost{i] = Oxff; 
else { 
if (dest & 0x8000) { 
ec->ec_dhost[6] = ec_iltop[(0]; 
ec->ec_dhost[1] = ec_iltop[1]; 
ec->ec_dhost[2] = ec _iltop[2]}; 
} else { 
ec->ec_dhost[0] = es->es_enaddr[0]; 
ec->ec_dhost[1] = es->es enaddr[1]; 
ec->ec_dhost[2] = es->es_enaddr[2]; 
} 
ec->ec_dhost[3] = (dest>>8) & Ox7f; 
ec->ec dhost[4] = (dest>>16) & Oxff; 
ec->ec_dhost[5] = (dest>>24) & Oxff; 
} 
ec->ec_type = type; 


/* 

* Queue message on interface, and start output if interface 

* not yet active. 

*/ 

s = splimp(); 

if (IF_QFULL(&ifp->if_snd)) { 
IF_DROP (gifp->if_snd); 
error = ENOBUFS; 
goto qfull; 

} 

IF_ENQUEUE (éifp->if snd, m); 

if (es->es_oactive = 0) 
ecstart(ifp->if_unit); 

splx(s); 


gotlocal: 
return(mcopy ? looutput(é&loif, mcopy, dst) : 0); 
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qfull: 
mO = m; 
splx(s); 
bad: 
m_freem(mO); 
return(error); 
} 
/* 


* Routine to copy from mbuf chain to transmitter 
* buffer in UNIBUS memory. 
*f 
ecput(ecbuf, m) 
u_char *ecbuf; 
struct mbuf *m; 


register struct mbuf *mp; 
register int off; 
u_char *bp; 


for (off = 2048, mp = m; mp: mp = mp~>m_next) 
off -= mp->m_len; 

*(u_short *)ecbuf = off; 

bp = (u_char *) (ecbuf + off); 

for {mp = Mm; mp; mp = mp->m_next) { 
register unsigned len = mp->m_len; 
u_char *mcep; 


if {len — 6) 
continue; 
mcp = mtod(mp, u_char *); 
if ((unsigned)bp « 01) { 
*ppt+ = *mcptt+; 
len--; 
} 
if (off = (len >> 1)) { 
register u_short *to, *from; 


to = ({u_short *)bp; 
from = (u_short *)mcp; 
do 
*tot+ = *fromtt; 
while (--off > 4); 
bp = {u_char *)to, 
mcp = (u_char *) from; 
} 
if (len « 01) 
*bpt+ = *mcptt; 
} 
tifdef notdef 
if (bp ~- ecbuf != 2048) 
printf("ec: bad ecput, diff=td\n", bp-ecbuf); 
#endif 
m_freem(m); 
} 


/ 
Routine to copy from UNIBUS memory into mbufs. 
Similar in spirit to if_rubaget. 


+ + * FF 


Warning: This makes the fairly safe assumption that 
* mbufs have even lengths. 
xf 

struct mbuf * 

ecget(ecbuf, totlen, off0) 

u_char *ecbuf; 

int totlen, off0; 


register struct mbuf *m; 

struct mbuf *top = 0, **mp = &top; 
register int off = off0, len; 
u_char *cp; 


cp = ecbuf + ECRDOFF + sizeof (struct ec_header): 
while (totlen > 0) { 


bad: 


} 
return 


register int words; 
u_char *mcep; 


MGET(m, 6); 
if (m = 06) 
gote bad; 
if (off) { 
len = totlen - off; 
cp = ecbuf + ECRDOFF + sizeof (struct ec_header) + off; 
} else 
len = totlen; 
if (len >= CLBYTES) { 
struct mbuf *p; 


MCLGET(p, 1); 

if (p [= 9) { 
m->m_len = len = CLBYTES; 
m->m_off = {int)p - (int)m; 

} else { 
m->m_len = len = MIN(MLEN, len); 
m->m_off MMINOFF ; 


} 
} else { 
m->m_len = len = MIN(MLEN, len); 
m->m_off = MMINOFF; 
} 
mcp = mtod(m, u_char *); 
if (words = (len >> 1)) { 
register u_short *to, *from; 


to = {u_short *)mep; 
from = {u_short *)cp; 
do 
*tot+ = *fromt+; 

while (--words > 0): 
mep = {u_char *)to; 
cp = (u_char *) from; 

} 

if (len & 61) 
xmcptt+ = *cptt; 

amp = m; 

mp = &m->m_next; 

if (off — 0) { 
totlen -= len; 
continue; 

} 

off += len; 

if (off —totlen) { 
cp = ecbuf + ECRDOFF + sizeof (struct ec_header); 
off = Q; 
totlen = offd; 

} 


(top) ; 


m_freem(top); 


return 


(0); 


if _ether.c 


/* 
f* 
* 


*f 
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Ethernet address resolution protocol. 


#include “sys/param.h" 
#include "sys/types.h" 
f#include “sys/systm.h" 
#include “sys/var.h" 
#include "net/misc.h" 
#include "net/mbuf.h" 
#include "net/socket.h" 
#include "sys/errno.h" 


#include "net/if.h" 
#include “net/in.h" 
#include "net/if_ether.h" 


f* 
* Internet to ethernet address resolution table. 
if: 
struct arptab { 
struct in_addr at_iaddr; /* internet address */ 
u_char at_enaddr[6]; /* ethernet address */ 
struct mbuf *at_hold; /* last packet until resolved/timeout */ 
u_char at_timer; /* minutes since last reference */ 
u_char at_flags; /* flags */ 
}e 
/* at_flags field values */ 
#define ATF_INUSE 1 /* entry in use */ 
#define ATF_COM 2 /* completed entry (enaddr valid) */ 
#define ARPTAB BSI2 5 /* bucket size */ 
#define ARPTAB NB 19 /* number of buckets */ 
#define ARPTAB SIZE (ARPTAB BSIZ * ARPTAB NB) 
struct arptab arptab[ARPTAB SIZE]; 


#define ARPTAB HASH{(a) \ 


#de 


str 
int 


/* 
#de 
#de 
#de 


uc 
ext 


/ 


* * * 2 + & * H HH SB HF HF 


* 
~ 


int 


((short) (({fa) >> 16) * (a)) & Ox7fff) % ARPTAB NB) 


fine ARPTAB LOOK{at,addr) { \ 
register n; \ 
at = Sarptab[ARPTAB HASH(addr) * ARPTAB BSIZ]; \ 
for (n= 0; n < ARPTAB BSIZ ; nt+t,att++) \ 
if (at->at_iaddr.s addr == addr} \ 


break; \ 
if (n >= ARPTAB BSIZ) \ 
at = 0; } 

uct arpcom *arpcom; /* chain of active ether interfaces */ 

arpt_age; /* aging timer */ 
timer values */ 
fine ARPT_AGE (60*1) /* aging timer, 1 min. */ 
fine ARPT_KILLC 20 /* kill completed entry in 20 mins. */ 
fine ARPT_KILLI 3 /* kill incomplete entry in 3 minutes */ 


har etherbroadcastaddr[6] = { Oxff, Oxff, Oxff, Oxff, Oxff, Oxff }; 
ern struct ifnet loif; 


Local addresses in the range oldmap to infinity are 
mapped according to the old mapping scheme. That is, 
Mapping of Internet to Ethernet addresses is performed 

by taking the high three bytes of the network interface’s 
address and the low three bytes of the local address part. 
This only allows boards from the same manufacturer to 
communicate unless the on-board address is overridden 

(not possible in many manufacture’s hardware). 


NB: setting oldmap to zero completely disables ARP 
(i.e. identical to setting IFF_NOARP with an ioctl). 


oldmap = Oxffffff; 


/* 
* Attach an ethernet interface to the list "arpcom" where 
* arptimer() can find it. If first time 
* initialization, start arptimer(). 
*/ 
arpattach (ac) 
register struct arpcom *ac; 
{ 
register struct arpcom *acp; 


for {acp = arpcom; acp != (struct arpcom *}0; acp = acp->ac ac} 
if (acp == ac) /* if already on list */ 
return; 


ac->ac_ac = arpcom; 

arpcom = ac; 

if (arpcom->ac_ac = 0) 
arptimer(); 


/* very first time */ 
} 


/* 
* Timeout routine. Age arp tab entries once a minute. 
xf 
arptimer ({) 
{ 
register struct arptab *at; 
register i; 


timeout {arptimer, (caddr_t)0, v.v_hz); 
#ifdef notdef 
if (++arpt_sanity > ARPT_SANITY) { 
register struct arpcom *ac; 


f* 
* Randomize sanity timer based on my host address. 
* Ask who has my own address; if someone else replies, 
* then they are impersonating me. 
xf 
arpt_sanity = arpcom->ac_enaddr[5] & 0x3f; 
for (ac = arpcom; ac != (struct arpcom *)-1; ac = ac->ac_ac) 
arpwhohas{ac, &({struct sockaddr_in *} 
éac->ac_if.if_addr)->sin_addr); 
} 
#endif 
if (+tarpt_age > ARPT _AGE) { 
arpt_age = 6; 
at = éarptab[0]; 
for (i = 0; i < ARPTAB SIZE; itt, at++) { 
if (at->at_flags == 0) 
continue; 
if (++at->at_timer < ({at->at_flagssATF_COM) ? 
ARPT KILLC : ARPT KILLI)) 
continue; 
/* timer has expired, clear entry */ 
arptfree (at); 


} 


fe 
* Broadcast an ARP packet, asking who has addr on interface ac. 
*/ 
arpwhohas(ac, addr) 
register struct arpcom *ac; 
struct in_addr ‘addr; 


register struct mbuf *m; 
register struct ether header *eh; 
register struct ether_arp *ea; 
struct sockaddr sa; 


if ((m = m_get(M_DONTWAIT)) == NULL) 
return: 

m->m_len = sizeof *ea + sizeof *eh: 

m->m_off = MMAXOFF - m->m_len; 

ea = mtod(m, struct ether arp *); 
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eh = (struct ether header *)sa.sa_data; 

bzero((caddr_t)ea, sizeof (*ea)); 

beopy ((caddr_t)etherbroadcastaddr, (caddr_t)eh->ether_dhost, 
sizeof (etherbroadcastaddr)); 


eh->ether_type = ETHERPUP_ARPTYPE; /* if output will swap */ 


ea-parp hrd = htons(ARPHRD ETHER); 
ea->arp_ pro = htons(ETHERPUP_IPTYPE); 


ea->arp hln = sizeof ea->arp_sha; /* hardware address length 


*] 


ea->arp pln = sizeof ea->arp_spa; /* protocol address length */ 


@a->arp op = htons (ARPOP_REQUEST) ; 
beopy ((caddr_t)ac->ac_enaddr, (caddr_t)ea->arp_sha, 
sizeof (ea->arp sha)); 


beopy ((caddr_t)&((struct sockaddr_in *)sac->ac_if.if_addr)->sin_addr, 


(caddr_t)ea->arp spa, sizeof (ea->arp_spa)); 


beopy((caddr_t)addr, (caddr_t)ea->arp_tpa, sizeof (ea->arp_tpa)): 


sa.sa_family = AF_UNSPEC; 
(void) (*ac->ac_if.if_output) {&ac->ac_if, m, &Ssa); 


™ 
* 


Resolve an IP address into an ethernet address. If success, 
desten is filled in and 1 is returned. If there is no entry 
in arptab, set one up and broadcast a request 

for the IP address; return 0. Hold onto this mbuf and 
resend it once the address is finally resolved. 


We do some (conservative) locking here at splimp, since 
arptab is also altered from input interrupt service (ecintr/ilintr 
calls arpinput when ETHERPUP_ARPTYPE packets come in). 


+ Fe OOO 


*/ 
arpresolve(ac, m, destip, desten) 
register struct arpcom *ac; 
struct mbuf *m; 
register struct in_addr *destip; 
register u_char *desten; 


register struct arptab *at; 
register struct ifnet *ifp: 
struct sockaddr _ in sin; 

int s, lina; 


lna = in_lnaof(*destip); 
if (lna == INADDR_ANY) { /* broadcast address */ 
beopy (({caddr_t)etherbroadcastaddr, (caddr_t)desten, 
sizeof (etherbroadcastaddr) ); 
return {1); 
} 
ifp = &ac->ac_ if; 
/* if for us, then use software loopback driver */ 
if (destip->s_ addr == 
((struct sockaddr_in *)&ifp->if_addr)-> sin_addr.s addr) { 
sin.sin_ family = AF_INET; 
sin.sin_addr = *destip; 
return (looutput(éloif, m, (struct sockaddr *)ésin)); 
} 
/* billn: temp... 
if ((ifp->if_flags & IFF_NOARP) || lna >= oldmap) { 
xf 
{ 
extern iff_noarp; 
if (iff_noarp) { 
beopy ((caddr_t)ac->ac_enaddr, (caddr_t)desten, 3); 
desten{3] = (lna >> 16) & Ox7f; 
desten[4] = (lna >> 8) & Oxff; 
desten[5] = lna & Oxff; 
return (1); 
} 
} 
s = splimp(); 
ARPTAB LOOK(at, destip->s_addr); 
if (at = 0) { /* not found */ 
at = arptnew(destip); 
at->at_hold = m; 
arpwhohas(ac, destip); 
Splx(s); 
return (0); 


} 
at->at timer = 0; /* restart the timer */ 
if {at->at_flags & ATF_COM) { /* entry IS complete */ 
beopy ((caddr_t)at->at_enaddr, (caddr_t)desten, 6); 
splx(s); 
return {1}; 
} : 
/* 
* There is an arptab entry, but no ethernet address 
* response yet. Replace the held mbuf with this 
* latest one. 
*/ 
if (at->at_hold) 
m_freem(at->at_hold); 
at->at_hold = m; 
arpwhohas(ac, destip); /* ask again */ 
splx(s); 
return (8); 


i* 

* Find my own IP address. It will either be waiting for us in 

* monitor RAM, or can be obtained via broadcast to the file/boot 
* server (not necessarily using the ARP packet format). 
x 
«x 
* 


Unimplemented at present, return 0 and assume that the host 
will set his own IP address via the SIOCSIFADDR ioctl. 
*f 
/*ARGSUSED*/ 
struct in_addr 
arpmyaddr (ac) 
register struct arpcom *ac; 
{ 
static struct in_addr addr; 


#ifdef lint 


ac = ac; 

#endif 
addr.s addr = 0; 
return (addr): 

} 

f* 


* 


Called from ecintr/ilintr when ether packet type ETHERPUP_ARP 
* is received. Algorithm is exactly that given in RFC 826. 
* In addition, a sanity check is performed on the sender 
* protocol address, to catch impersonators. 
x} 
arpinput (ac, m) 
register struct arpcom *ac; 
struct mbuf *m; 


register struct ether_arp *ea; 

struct ether_header *eh; 

register struct arptab *at = 0; /* same as “merge” flag */ 
struct sockaddr_in sin; 

struct sockaddr sa; 

struct mbuf *mhold; 

struct in_addr isaddr,itaddr,myaddr; 


if (m->m_len < sizeof *ea) { 
geto out; 
} 
myaddr = ((struct sockaddr _in *)&ac->ac_if.if_addr)->sin_addr; 
ea = mtod(m, struct ether_arp *); 
if (ntohs(ea->arp pro) != ETHERPUP_IPTYPE) { 
goto out; 
} 
isaddr.s_ addr = ((struct in_addr *)ea->arp_spa)~>s_addr; 
itaddr.s addr = ((struct in_addr *)ea->arp tpa)->s_addr; 
if (ibemp( (caddr_t)ea->arp_sha, {caddr_t)ac->ac_enaddr, 
sizeof (ac->ac_enaddr))) { 
goto out; /* it’s from me, ignore it. */ 
} 
if (isaddr.s addr == myaddr.s addr) { 


printf (“duplicate IP address!! sent from ethernet address: "); 


if_ether.c 


reply: 


out: 


} 
f* 
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printf ("&x %x x %x %x $x\n", ea->arp_sha[0], ea->arp_sha[il, 
ea->arp_sha[2], ea->arp_sha[3], 
ea->arp sha[4], ea->arp_sha[5]); 
if (ntohs(ea->arp op) == ARPOP_REQUEST) 
goto reply; 
goto out; 
} 
ARPTAB LOOK(at, isaddr.s addr); 
if (at) f 
beopy ({caddr_t)ea->arp sha, (caddr_t)at->at_enaddr, 
sizeof (ea->arp sha)); 
at->at_flags |= ATF_COM; 
if (at->at_hold) { 
mhold = at~>at_hold; 
at->at_hold = 0; 
sin.sin_family = AF_INET; 
sin.sin_addr = isaddr; 
(*ac->ac_if.if_output) (&ac->ac_if, 
mhold, (struct sockaddr *)ésin)j; 
} 
} 
if (itaddr.s addr != myaddr.s addr) { 
goto out; /* if I am not the target */ 
} 
if (at == 0) { 7* ensure we have a table entry */ 
at = arptnew(é&isaddr) ; 
beopy ((caddr_t)ea->arp_sha, (caddr_t)at->at_enaddr, 
sizeof (ea->arp_sha)); 
at->at_flags |= ATF_COM; 
} 
if {ntohs(ea->arp_op) != ARPOP_REQUEST) { 
goto out; 
} 


beopy((caddr_t)ea->arp sha, (caddr_t)ea->arp tha, 
sizeof (ea->arp_sha)); 

beopy((caddr_t)ea->arp spa, (caddr_t)ea->arp tpa, 
sizeof (ea->arp_spa)); 

beopy ((caddr_t)ac->ac_enaddr, {(caddr_t)ea->arp_ sha, 
sizeof (ea->arp_sha)); 

beopy ((caddr_t)&myaddr, (caddr_t)ea-~->arp spa, 
sizeof (ea->arp spa)); 

ea->arp_op = htons (ARPOP_REPLY) ; 

eh = (struct ether_header *)sa.sa_data; 

beopy((caddr_t)ea->arp tha, (caddr_t)eh->ether_dhost, 
sizeof (eh->ether_dhost)); 

eh->ether_type = ETHERPUP_ARPTYPE; 

sa.sa_family = AF_UNSPEC; 

(*ac->ac_if.if output) (&ac->ac_ if, m, &sa); 

return; 


m_freem(m) ; 
return; 


* Free an arptab entry. 


*/ 


arptfree (at) 


{ 


} 
/* 


register struct arptab *at; 
int s = splimp(); 


if {at->at_hold) 
m_freem{at->at_hold); 

at->at_hold = 0; 

at~>at_timer = at->at_flags = 0; 

at->at_iaddr.s addr = 0; 

splx (3); 


* Enter a new address in arptab, pushing out the oldest entry 
* from the bucket if there is no room. 


*/ 


struct arptab * 


arptnew (addr) 


{ 


out: 


struct in_addr *addr; 


register n; 
int oldest = 0; 


register struct arptab *at, *ato; 


ate = at = é&arptab(ARPTAB_HASH(addr->s_ addr) * ARPTAB BSI2]; 
for (n = 0 ; n < ARPTAB BSIZ ; ntt,at++) { 
if (at->at flags = 0) 
goto out; /* found an empty entry */ 
if fat->at_timer > oldest) { 
oldest = at->at_timer; 
ato = at; 
} 
} 
at = ato; 
arptfree (at); 


at->at_iaddr = *addr; 
at->at_flags = ATF_INUSE; 
return (at); 
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/* if il.c 4.11 82/08/25 */ 


#include "il.h" 


{* 


* Interlan Ethernet Communications Controller interface 
af 


#include "“sys/param.h* 
#include “sys/config.h" 
#include “sys/errno.h" 
#include "sys/types.h" 
finclude “sys/systm.h" 
#include “"net/mbuf.h" 
#include "“sys/buf.h" 
#include "net/protosw.h" 
#include "net/socket.h" 
#include "net /ubavar.h" 
#include “net/ilreg.h*" 
#include "net/in.h" 
#include "net/in_sys.h" 
#include "net/if.h" 
#include “net/if_il.h" 
#include “net/if_uba.h" 
#include "net/ip.h" 
#include “net/ip var.h"™ 
#include “net/pup.h" 
#include "net/route.h" 
#include “errno.h" 


#define ILMTU 15060 
#¥define ILMIN (60-14) 


/* Maximum data size for Ethernet packet */ 
/* Minimum data size for Ethernet packet */ 


int ilprobe(), ilattach(), ilrint{), ilcint(); 
struct uba_device *ilinfo[NIL]; 

u_short ilstd[] = { 0 }; 

struct uba_driver ildriver = 


{ ilprobe, 0, ilattach, 6, ilstd, "il", ilinfo }; 


#¥define ILUNIT(x) minor (x) 
int ilinit(),iloutput{),ilreset(),ilwatchi): 


u_char il_ectop[3] = { 6x62, 0x60, Ox8c }; 
u_char ilbroadcastaddr[¢] = { Oxff, Oxff, Oxff, Oxff, Oxff, Oxff }:; 


/ 


Ethernet software status per interface. 


Bach interface is referenced by a network interface structure, 

is_ if, which the routing code uses to locate the interface. 

This structure contains the output queue for the interface, its address, 
We also have, for each interface, a UBA interface structure, which 
contains information about the UNIBUS resources held by the interface: 
map registers, buffered data paths, etc. Information is cached in this 
structure for use by the if_uba.c routines in running the interface 
efficiently. 


ee bt ek Fe Oe Oe OH OF 


* 


*f 

struct il _softe { 
struct ifnet is if; /* network-visible interface */ 
struct ifuba is ifuba; /* UNIBUS resources */ 
int is flags; 

#define ILF_OACTIVE 0x1 /* output is active */ 

#define ILF_RCVPENDING 0x2 /* start rev in ilcint */ 

#define ILF_STATPENDING 0x4 /* stat cmd pending */ 
short is_lastcmd; /* can’t read csr, so must save it */ 
short is scaninterval; /* interval of stat collection */ 

#define ILWATCHINTERVAL 60 /* once every 60 seconds */ 
struct il_stats is stats; /* holds on-board statistics */ 
struct il stats is sum; /* summation over time */ 
long is _ubaddr; /* mapping registers of is stats */ 


) 


il_softc{NIL]; 


ilprobe (reg) 


{ 


caddr_t reg; 


register int br, cvec; /* rill, r10 value-result */ 
register struct ildevice *addr = (struct ildevice *)reg; 
register i; 


#ifdef lint 


br = 6; cvec = br; br = cvec; 
ilrint (0); ilecint (0); ilwatch(0); 


#endif 


addr->il_csr = ILC_OFFLINE|IL_CIE; 

DELAY (100060); 

i = addr->il_csr; 

if {cvec > 0 && cvec != 0x266) 
cvec -= 4; 

return (1); 


/* clear CDONE */ 


{* 


* Interface exists: make available by filling in network interface 
* record. System will initialize the interface when it is ready 

* to accept packets. A STATUS command is done to get the ethernet 
* address and other interesting data. 

xf 


ilattach {ui} 


{ 


struct uba_device *ui; 


register struct 
register struct 
register struct 


il_softe *is = &il_softc{ui->ui_unit]; 
ifnet *ifp = é&is->is_if; 
ildevice *addr = (struct ildevice *)ui->ui_addr; 


struct sockaddr in *sin; 
ifp->if_unit = ui->ui_unit; 
ifp->if_name = "il"; 

ifp->if_mtu = ILMTU; 

ifp->if_net = htonl(ui->ui_flags); 


/* 

* Reset the board and map the statistics 

* buffer onto the Unibus. 

xf 
addr->il_csr = ILC_RESET; 
while (({addr->il_csréIL _CDONE) — 0) 
if {addr->il_csréIL STATUS) 

printf("iltd: reset failed, csr=tb\n", ui->ui_unit, 
addr->il_csr, IL_BITS); 


is->is ubaddr = uballoc(uvi->ui_ubanum, éis->is stats, 
sizeof (struct il_stats), 0); 
addr->il_bar = is->is_ubaddr & Oxffff; 
addr->il_ber = sizeof (struct il_stats); 
addr->il_csr = ((is->is_ubaddr >> 2) & IL_EUA)|ILC_STAT; 
while ((addr->il_csr&IL_CDONE) == 0) 
if (addr->il_csr&IL_STATUS) 
printf("il$d: status failed, csr=tb\n", ui->ui_unit, 
addr->il_csr, IL_BITS); 
ubarelse(ui->ui_ubanum, &is->is_ubaddr); 
printf ("iltd: addr=$x:%x:%x:%x:%x:%x module=%s firmware=%s\n", 
ui->ui_unit, 
is->is_stats.ils addr[0]40xff, is->is_stats.ils addr{1]é0xff, 
is->is_stats.ils addr[2]sQxff, is->is_stats.ils addr([3]&0xff, 
is->is stats.ils addr{4]s0xff, is->is_stats.ils addr[5]é0xff, 
is->is stats.ils module, is->is_stats.ils firmware); 
ifp->if_host[0] = 
((long) (is->is_stats.ils addr[3]&0xff)<<16) | 0x800000 | 
((is->is_stats.ils addr[4]«Oxff)<<8) | 
(is->is_stats.ils addr[5]40xff); 
sin = (struct sockaddr_in *)éifp->if_addr; 
sin->sin_family = AF_INET; 
sin->sin_addr = if_makeaddr(ifp->if_net, ifp->if_host[0]): 


sin = (struct sockaddr_in *)&éifp->if_broadaddr; 
sin->sin_family = AF_INET; 

sin->sin_addr = if_makeaddr(ifp->if_net, INADDR_ANY):; 
ifp->if_flags = IFF_BROADCAST; 


ifp->if_init = ilinit; 
ifp->if_output = iloutput; 


Lc Fri Sep 5 19:09:26 1986 


ifp->if_ubareset = ilreset; 

ifp->if watchdog = ilwatch; 
is->is_scaninterval = ILWATCHINTERVAL; 
ifp->if_timer = is->is_scaninterval; 
is~>is_ ifuba.ifu_flags = UBA_CANTWAIT; 


#ifdef notdef 


#endif 


} 


/* 
* Reset of interface after UNIBUS reset. 
* Tf interface is on specified uba, reset its state. 


is->is_ifuba.ifu_flags |= UBA_NEEDBDP; 


if_attach(ifp); 


ilreset (unit, uban) 


{ 


} 


fr 
* Initialization of interface; clear recorded pending 
* operations, and reinitialize UNIBUS usage. 


int unit, uban; 


register struct uba_device *ui; 


if (unit >= NIL {| (ui = ilinfo[unit]) = 06 || ui->ui_alive = 6 || 
ui->ui_ubanum != uban) 
return; 


printfi" i1%4", unit); 
ilinit (unit); 


ilinit (unit) 


{ 


int unit; 


register struct 11 _softc *is = &il_softc[unit]; 
register struct uba_device *ui = ilinfo[unit]; 
register struct ildevice *addr; 

int s; 


if (if _ubainit (sis->is ifuba, ui->ui_ubanun, 
sizeof (struct il rheader), (int) btoc(ILMTU}} == 9) { 
printf (“iléd: can’t initialize\n", unit); 
is->is if.if_flags &= ~IFF_UP; 
return; 


} 

is->is_ubaddr = uballoc(ui->ui_ubanum, &is->is stats, 
sizeof (struct il_stats), 0); 

addr = (struct ildevice *)ui->ui_addr: 


jn 
* Turn off source address insertion (it’s faster this way), 

* and set board online. 

xf 

s = splimp(); 
addr->il csr = ILC_CISA; 
while ((addr->il_csr & IL_CDONE) == 0) 

addr->il_ csr = ILC_ONLINE; 
while ((addr->il_csr & IL_CDONE) == 0) 

/* 

* Hang receive buffer and start any pending 

* writes by faking a transmit complete. 

* Receive ber is not a muliple of 4 so buffer 

* chaining can’t happen. 

af 

addr->il_bar = is->is ifuba.ifu_r.ifrw info & Oxffff: 

addr->il_ber © sizeof (struct il_rheader) + ILMTU + 6; 

addr->il csr = 

((is->is ifuba.ifu_r.ifrw info >> 2) & IL_EUA) ;ILC_RCViIL_RIE; 

while ((addr~>il_csr & IL_CDONE) == 0) 


is->is flags = ILF_OACTIVE; 
is~->is if.if flags |= IFF_UP: 
is->is_ lastcmd = 0; 

dicint (unit); 


Splx(s)}; 
if_rtinit (gis->is_if, RTF_UP); 


tart output on interface. 
* Get another datagram to send off of the interface queue, 
and map it to the interface before starting the output. 


ilstart (dev) 


{ 
& 


dev_t dev; 


int unit = ILUNIT(dev), dest, len; 

struct uba device *ui = ilinfo[unit]; 

register struct il_softe *is = &il_softc[unit]; 
register struct ildevice *addr; 

struct mbuf *m; 

short csr; 


IF_DEQUEUE(é&is->is if.if_snd, m); 
addr = (struct ildevice *)ui->ui_addr; 
if (m= 0) { 
if ((is->is_flags & ILF_ STATPENDING) == 0) 
return; 
addr->il_bar = is->is ubaddr & Oxffff; 
addr->il_ ber = sizeof (struct il stats); 
esr = {{is->is ubaddr >> 2) & IL_EBUA) |ILC_STAT/IL RIE|IL_CIE; 
is->is flags &= ~ILF_STATPENDING; 
goto startcmd; 
} 
len = if_wubaput (&is->is_ifuba, m); 
{* 
* Ensure minimum packet length. 
* This makes the safe assumtion that there are no virtual holes 
* after the data. 
* For security, it might be wise to zero out the added bytes, 
x but we’re mainly interested in speed at the moment. 
xf 
if (len - sizeof(struct il_xheader) < ILMIN) 
len = ILMIN + sizeof(struct il xheader); 
if (is->is_ifuba.ifu_flags & UBA_NEEDBDP} 
UBAPURGE(is->is ifuba.ifu_uba, is->is ifuba.ifu_w.ifrw_bdp); 
addr->il_bar = is->is_ ifuba.ifu_w.ifrw_info & Oxffff; 
addr->il_ber = len; 
csr = 
((is->is_ ifuba.ifu_w.ifrw info >> 2) & IL_EUA) |ILC_XMIT|IL_CIE|IL RIE; 


startcmd: 


} 


{* 
* Command done interrupt. 


is->is_lastcmd = csr & IL_CMD; 
addr->il_csr = csr; 
is->is flags |= ILF_OACTIVE; 


ilcint (unit) 


{ 


int unit; 


register struct il_softe *is = 611 softc[unit]; 

struct uba_device *ul = ilinfo[unit]; 

register struct ildevice *addr = (struct ildevice *)ui->ui_addr; 
short csr; 


MAPSAVE () ; 
if ((is->is_flags & ILF_OACTIVE) = 0) { 
printf£("il%d: stray xmit interrupt, csr=%b\n", unit, 
addr->il_csr, IL_BITS); 
goto out; 
} 


esr = addr->il_csr; 

/* 
* Hang receive buffer if it couldn't 
* be done earlier (in ilrint). 

*f 
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if (is->is flags & ILF_RCVPENDING) { *f 
addr->il_bar = is->is ifuba.ifu_r.ifrw_info & Oxffff; #éefine ildataaddr{il, off, type) (itype) (((caddr_t) ((11)+1)+(off)})) 
addr->il_ber = sizeof(struct il_rheader) + ILMTU + 6; if (il->ilr_type >= ILPUP_TRAIL && 
addr->il_csr = il->ilr_type < ILPUP_TRAIL+ILPUP_NTRAILER) { 
((is->is_ifuba.ifu_r.ifrw_info >> 2) & IL_EUA)|ILC_RCV|IL RIE; off = (il->ilr_type - ILPUP_TRAIL) * 512; 
while i{addr->il_esr & IL_CDONE} == 9} if {off >= ILMTU} 
: goto setup; /* sanity */ 
is->is flags &= ~ILF RCVPENDING; i1->ilr_type = *ildataaddr(il, off, u_short *); 
} 2 ~ resid = *(ildataaddr(il, offt+2, u_short *)); 
is->is flags é= ~ILF_OACTIVE; if (off + resid > len) 
esr &= IL STATUS; goto setup; #* sanity */ 
switch (is->is lastemd) { len = off + resid; 
i } else 
case ILC_XMIT: off = 0; 
is->is_if.if_opackets++; if (len = 0) 
if (csr > ILERR_RETRIES) goto setup; 
is->is if.if_oerrorst++; 
break; f* 
* Pull packet off interface. Off is nonzero if packet 
case ILC STAT: * has trailing header; ilget will then force this header 
if (csr == ILERR SUCCESS) * information to be at the front, but we still have to drop 
dltotal (is): * the type and length which are at the front of any trailer data. 
break; xf 
} m = if rubaget(é&is->is ifuba, len, off); 
if (is->is_ifuba.ifu_xtofree) { if (m = 0) 
m_freem(is->is_ifuba.ifu_xtofree); goto setup; 
is->is_ifuba.ifu_xtofree = 4; if (off) { 
} > m->m_off t= 2 * sizeof (u_short); 
dlstart (unit); m->m_len -= 2 * sizeof (u_short); 
out: } 
MAPREST {) ; switch (1l->ilr_type) { 
} 
#ifdef INET 
fe case ILPUP_IPTYPE: 
* Ethernet interface receiver interrupt. schednetisr(NETISR_IP); 
* If input error just drop packet. ing = s&ipintraq; 
* Otherwise purge input buffered data path and examine break; 
* packet to determine type. If can’t determine length #endif 
* from type, then have to drop packet. Othewise decapsulate default: 
* packet based on type and pass to type specific higher-level m_freem(m) ; 
* input routine. gots setup; 
xf } 
ilrint (unit) 
int unit; if (IF_QFULL(ing)) { 
{ IF_DROP (ing); 
register struct il_softe *is = &il_softc[unit]; m_freem(m); 
struct ildevice *addr = (struct ildevice *)ilinfo[unit]->ui_addr; goto setup; 
register struct il rheader *il; } 
struct mbuf *m; IF_ENQUEUE (ing, m); 
int len, off, resid; 
register struct ifqueue *inq; setup: 
{* 
MAPSAVE {); * Reset for next packet if possible. 
is->is if.if_ipackets++; * If waiting for transmit command completion, set flag 
if (is->is_ifuba.ifu_flags & UBA_NEEDBDP) * and wait until command completes. 
UBAPURGE (is->is ifuba.ifu_uba, is->is_ifuba.ifu_r.ifrw_bdp); xf 
#if !pdpil if (is->is flags & ILF_OACTIVE) { 
il = (struct il rheader *} {is->is ifuba.ifu r.ifrw addr); is->is flags |= ILF_RCVPENDING; 
felse iz ~ 7 7 goto out; 
*akaS = is->is ifuba.ifu_r.ifrw_click; } 
il = (struct il_rheader *)MBX; addr->il_ bar = is->is ifuba.ifu_r.ifrw_info & Oxffff; 
#tendif addr->il_ber = sizeof(struct il_rheader) + ILMTU + 6; 
len = il->ilr_ length - sizeof(struct il_rheader); addr->il_csr = 
if ((il->ilr_statusé(ILFSTAT_A|ILFSTAT_C)} || len < 46 || len > ILMTU) { ((is->is ifuba.ifu_r.ifrw info >> 2) & IL BUA) |ILC_RCV|IL RIE; 
is->is_if.if_lerrorst++; while ((addr->il_csr & IL_CDONE) == 0) 
#ifdef notdef : 
if (is->is if.if_lerrors % 100 == 0) out: 
printf("iléd: += 100 input errors\n", unit); MAPREST(); 
fendif } 
goto setup; 
} /* 
* Ethernet output routine. 
/* * Encapsulate a packet of type family for the local net. 
* Deal with trailer protocol: if type is PUP trailer * Use trailer local net encapsulation if enough data in first 


* get true type from first 16-bit word past data. < 
* Remember that type was trailer by setting off. *f 


packet leaves a multiple of 512 bytes of data in remainder. 
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jloutput (ifp, m0, dst) 


struct ifnet *ifp; 
struct mbuf *m0; 
struct sockaddr *dst; 


f*® 

* this is a kludge to talk with other company’s boards; 

* instead 1 byte multicast addresses should be used, and the 
* physical board address will be unused. 


int type, 5, error; 


long dest; 


register struct il softc *is = &il_softc[ifp->if_unit]; 


register struct mbuf *m = ma; 
register struct il _xheader *il; 
register int off; 


switch (dst->sa_family) { 


#ifdef INET 
case AF_INET: 


dest = ((struct sockaddr_in *)dst)->sin_addr.s addr; 
off = ntohs((u_short)mtod(m, struct ip *)=->ip_len) - m->m_len; 


if (off > 0 && (off & Oxlff) == 0 && 


m~>m_off >= MMINOFF + 2 * sizeof (u_short)) { 


type = ILPUP_TRAIL + (off>>9); 
m->m_off -= 2 * sizeof (u_short); 
m->m_len += 2 * sizeof (u_short); 
*mtod(m, u_short *) = ILPUP_IPTYPE; 
*(mtod({m, u_short *) + 1) = m->m_len; 
goto gottrailertype; 

} 

type = ILPUP_IPTYPE; 

off = 0; 

goto gottype; 


#endif 
default: 
printf("iltd: can’t handle af%d\n", ifp->if_unit, 
dst->sa_family); 
error = EAFNOSUPPORT; 
goto bad; 
} 
gottrailertype: 
i* 


* Packet to be sent as trailer: move first packet 
* (control information) to end of chain. 
xf 
while (m->m_next) 
m = m->m_next; 
m->m_next = m0; 
m = m0->m_next; 
m0~>m_next = 0; 
moO = m; 


gottype: 
{* 
* Add local net header. If no space in first mbuf, 
* allocate another. 
xf 
Lf (m->m_off > MMAXOFF | | 
MMINOFF + sizeof (struct il_xheader) > m->m_off) { 
m = m_get (M_DONTWAIT) ; 
if (m == 0) { 
error = ENOBUFS; 
goto bad; 
} 
m->m_next = m0; 
m->m_off = MMINOFF; 
m->m_len = sizeof (struct il_xheader); 
} else { 
m->m_off -= sizeof (struct il _xheader); 
m->m_len += sizeof (struct i1_xheader); 
} 
il = mtod(m, struct il_xheader *); 
if (in_lnaof(dest) == 0) 
beopy(ilbroadcastaddr, 11->i1lx_dhost, 6); 
else { 
u_char *to = ntohl(dest) & 0x800000 ? 
is->is stats.ils addr : il_ectop; 


af 
beopy{tco, i1->ilx_dhest, 3); 


beopy( ((caddr_t)&dest)+1, &i1->ilx_dhost [3], 3); 


il->ilx_dhost[3] &= 0x7f; 
} 
beopy(is->is_stats.ils addr, il->ilx_shost, 6); 
il->ilx_type = type; 


/* 


* Queue message on interface, and start output if interface 


* not yet active. 
af 
s = splimp(); 
if (IF_QFULL(sifp->if_snd)) { 
IF_DROP(&ifp->if_snd); 
splx(s); 
m_freem(m); 
return (ENOBUFS); 
} 
IF_ENQUEUE(sifp->if_snd, m); 
if ((is->is flags & ILF_OACTIVE) == 6) 
ilstart (ifp->if_unit); 
splx(s); 
return (0); 


bad: 
m_freem (m0) ; 
return (error); 
} 
f* 


* Watchdog routine, request statistics from board. 
af 
ilwatch (unit) 
int unit; 
{ 
register struct il_softc *is = &i1 softcfunit]; 
register struct ifnet *ifp = é&is->is_if; 
int s; 


if (is->is_flags & ILF_STATPENDING) { 
ifp->if_timer = is->is_scaninterval; 
return; 

} 

s = splimp(); 

is->is flags |= ILF_STATPENDING; 

if ((is->is_flags & ILF_OACTIVE) == 0) 
ilstart (ifp->if_unit); 

Splx(s); 

ifp->if_timer = is~>is_scaninterval; 


} 


/* 
* Total up the on-board statistics. 
xf 
iltotal (is) 
register struct il _softc *is; 
{ 


register u_short *interval, *sum, *end; 


interval = é&is->is stats.ils frames; 
sum = &is->is sum.ils frames; 
end = is->is sum.ils f1112; 
while (sum < end) 
*sumt+ += *interval+t; 
is->is if.if collisions = is->is sum.ils_collis; 


if_loop.c 


f* 
/* 


if_loop. 
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c 4.13 82/06/20 */ 


* Loopback interface driver for protocol testing and timing. 


*f 


#include 
#include 
#include 
#include 
#include 
#inelude 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#define 
#define 


struct 
int 


loattach 
{ 


} 


*“sys/pa 
“sys/co 
“sys/er 


ram. h® 
nfig.h" 
rno.h* 


“sys/types.h" 
“sys/systm.h" 


“net /mi 


sc.h"™ 


"net /mbuf.h* 
“net /socket.h" 
"net/in.h" 
“net/in_systm.h" 
“net /if.h" 
“net/ip.h" 
“net/ip_var.h" 


“net /ro 
“errno. 


LONET 
LOMTU 


ifnet lo 
looutput 


Q) 


register 
register 


uute.h" 
he 


0x7£000000 
{1024+512) 
Af; 
QO; 


struct ifnet *ifp = élolif; 
struct sockaddr_in *sin; 


ifp->if_name = "lo"; 


ifp->if_ 


mtu = LOMTU; 


ifp->if_net = htonl((u_long) LONET); 


sin = (s 


truct sockaddr_in *)&ifp->if_addr; 


sin->sin family = AF_INET; 


{* 


sin->sin_ addr = if makeaddr((u_long)ifp->if_net, (u_long) 0); 


xf 


sin->sin_ addr = if _makeaddr((u_long)ifp->if_net, (u_long)1); 
ifp->if_flags = IFF_UP; 
ifp->if_output = looutput; 


if_attac 
if_rtini 


h(ifp); 
t(ifp, RTF_UP); 


looutput{ifp, m6, dst) 


#ifdef I 


tendif 


register 
register 
register 


register 
register 


struct ifnet *ifp; 
struct mbuf *m0; 
struct sockaddr *dst; 


int s = splimp(); 
struct ifqueue *ifq; 


ifp->if_opacketst+; 


switch ({ 


NET 


dst->sa_family) { 


case AF_INET: 


default: 


ifq = &ipintra; 
if (IF_QFULL(ifq) ) { 
IF_DROP (ifq);: 
m_freem(m0); 
splx(s); 
return (ENOBUFS); 
} 
TP_ENQUEVE (ifq, m0); 
schednetisr(NETISR_IP); 
break; 


splx(s); 
printf("lotd: can’t handle af%d\n", ifp->if_unit, 
dst->sa_family); 


m_freem(m0); 

return (EAFNOSUPPORT) ; 
} 
ifp->if_ipackets++; 
splx(s); 


return (0}; 


if me.c 


f* 


* Structure of an Ethernet header. 


* 


* 


“e 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


i* 


“net /misc.h" 
“sys/param.h* 
“sys/config.h" 
“sys/errno.h" 
“sys/types.h" 
“sys/systm.h® 
“net /mbuf.h™ 
“sys/buf.h" 
“net /protosw.h" 
“net/socket.h" 
“sys/config.h" 
“sys/mmu.h" 
“sys/sysmacros.h" 
“net/ubavar.h" 
“errno.h” 


“net /if.h" 
"net/route.h" 
"net/in.h" 

“net /in_systm.h" 
“net/ip.h" 
“net/ip var.h" 
“net /pup.h" 

“net /if_ether.h" 
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* 3Com Ethernet controller registers. 


xf 


struct medevice { 


Ie 


u_short me_csr; f* 
u_short me_back; {* 
u_char me_pad1[0x400-2*2]; 
u_char me_arom[6]; {* 
u_char me_pad2[0x200-6); 

u_char me_aram[6]; /* 


u_char me_pad3[0x200-6]; 

u_char me_tbuf[2048]; /* 
u_char me _abuf[2048]; /* 
u_char me_bbuf[(2048]; /* 


control and status */ 
backoff value */ 


address ROM */ 
address RAM */ 


transmit buffer */ 
rmeeive buffer A */ 
receive buffer B */ 


/* buffer B belongs to ether */ 

/* buffer A belongs to ether */ 

/* transmit buffer belongs to ether */ 
/* Ethernet jammed (collision) */ 
/* address RAM belongs to ether */ 
/* buffer B older than A */ 

/* reset controller */ 

/* buffer B interrupt enable */ 

/* buffer A interrupt enable */ 

/* transmitter interrupt enable */ 
/* jam interrupt enable */ 

/* PA field */ 


old VAX 4.1la, keep range errors, since vax sends too-small packets. */ 


{* 

* Control and status bits 

xf 

#define ME BBSW 0x8000 
#define ME ABSW 6x4000 
#define ME TBSW 0x2000 
#define ME JAM 0x1000 
#define ME AMSW 9x0800 
#define ME RBBA 0x0400 
#define ME RESET 0x0100 
#define ME BINT 6x0080 
#define ME AINT 0x0040 
#define ME TINT 0x0020 
#define ME JINT 0x0010 
#define ME PAMASK ox000f 
/* with 

#define ME PA _OLDVAX 0x0008 
#define ME PA 0x0002 
{* 

* Receive status bits 

xf 

f#define ME FCSERR 0x8000 
#define ME BROADCAST 0x4000 
#define ME _RGERR 0x2000 
#define ME ADDRMATCH 0x1000 
#define ME FRERR 0x0800 


/* receive minetbroadcast-(fcst+frame) */ 
/* all- feces and frame errors */ 


/* FCS error */ 

/* packet was broadcast packet */ 
/* range error */ 

/* address match */ 

/* framing error */ 


#define ME DOFF Ox07ff {* 


#define MERDOFF 2 il 
#ifdef notdef 
#define MEMAXTDOFF 
tondif 

#define MEMAXTDOFF 


(2048-60) {* 
(2048~+512) f* 
#define NME 1 

i* 

* 3Com Ethernet Cantroller interface 

xf 
#define MEMTU 1500 

int nullidev{), meattach(), meintr({); 


struct uba_device *meinfo[NME]; 


struct uba_ driver medriver = { 


first free byte */ 
packet offset in read buffer */ 
max packet offset (min size) */ 


max packet offset (min size) */ 


nulidev, meattach, (u_short * )0, meinfo 


Ie 
#define MEUNIT (x) minor (x) 


int meinit (),meoutput (),mewatch(); 
struct mbuf *meget{)}; 


extern struct ifnet loif; 
#ifdef BHAS8259 
#define ME EOI 2 


int meeoi = ME EOI; 
#endif 


Ethernet software status per interface. 


es if, which the routing code uses te locate the interface. 


* 
x 
* Each interface is referenced by a network interface structure, 
* 
x 


This structure contains the output queue for the interface, its address, ... 


xf 
struct me_softc { 
struct arpcom es ac; £* 
#define es if es _ac.ac if /* 
#define es_enaddr es _ac.ac_enaddr /* 
short es mask; ff 
short es oactive; {* 


} me_softc[NME]; 


/* 


common Ethernet structures */ 
network-visible interface */ 
hardware Ethernet address */ 
mask for current output delay */ 
is output active? */ 


* Interface exists: make available by filling in network interface 
* record. System will initialize the interface when it 1s ready 


* to accept packets. 
xf 
meattach (md) 
struct uba_ device *md; 
{ 


struct me_softc *es = éme_softc[md->ui_unit]; 
register struct ifnet *ifp = ses->es if; 


register struct medevice *addr; 
struct sockaddr in *sin; 

int i: 

u_char *cp, *ap; 

char *memap(); 


/* map controller into kernel space for Unisoft. memap is in config.c */ 
addr = (struct medevice *) memap((int)md->ui_addr, btoc(8192)); 
/* replace the value of ui_addr for everyone else. */ 


md->ui_addr = (caddr_t)addr: 


ifp->if_unit = md->ui_unit; 
ifp->if_name = “me"; 
ifp->if mtu = MEMTU; 
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ifp->if_net = md->ui_flags & Oxff000000; * Initialize the address RAM 
*f 
if (!iocheck((caddr_t)addr)) { cp = es->es enaddr; 
printf ("**\nCould not find metd; am not initializing network device...**\n", ap = addr->me_aram; 
ifp->if_unit); for (i = 0; i < 6; i++) 
return; *aptt = *optrt; 
} addr->me_csr |= ME AMSW; 
addr->me_csr |= ME RESET; /* reset the board */ i 
medelay (1); /* wait for it to reset (1 sec) */ * Hang receive buffers and start any pending writes. 
/ * x / 
* Read the ethernet address off the board, one byte at a time. addr->me csr |= ME ABSW|ME AINT|ME BBSW|ME BINT 
*f | ME_PA_OLDVAX; 
cp = es->es enaddr; es->es oactive = 0; 
ap = addr->me_arom; es->es_mask = ~0; 
es->es if.if_ flags |= IFF_UP|IFF_RUNNING; 
/* check for mem. board mistakenly mapped to same addr. as me */ if (es->es_if.if_snd.ifq head) 
if ((*ap = fg?) == *g!) { mestart (unit); 
printf ( splx{s); 
"\n**Able to write the rom on me%d; probable memory addressing confilct.**\nNot initializing interface.\n\n", ifp}>if_unit); 
return; if_rtinit(ses->es if, RIF_UP); 
} arpattach (&es->es ac); 
arpwhohas (&es->es_ ac, &sin->sin_addr); 
for (1 = 0; i < 6; itt) } 
keptt = *taptt; 
printf("Ethernet address = "“); f* 


{ * Start or restart output on interface. 
char * p = Ses->es_enaddr [6]; * If interface is already active, then this is a retransmit 
int i, j = 0; * after a collision, and just restuff registers. 
char buf[14]; * If interface is not already active, get another datagram 
* to send off of the interface queue, and map it to the interface 
x 


for (i = G; i < 6; i ++) { before starting the output. 


buf [j++] = "0123456789ABCDEF"[((*p >> 4) &0xf)]; xf 
buf [j++] = "0123456789ABCDEF" [ { (*p++) &Oxf) ]; mestart (dev) 
} register dev t dev; 
buf [j++] = ‘\n!; { ,. 
buf[j] = 6; register int unit = MEUNIT (dev); 
printf (buf); register struct me_softe *es = éme_softc[unit]; 
} register struct medevice *addr; 
sin = (struct sockaddr_in *)&es->es if.if_addr; register struct mbuf *m; 


sin->sin_ family = AF_INET; 
addr = (struct medevice *)meinfo[unit]->ui_addr; 
/* this is a way to set addresses for now (without an ioct1())} */ if {es->es ocactive) 
sin->sin_addr.s addr = (u_long)md->ui_flags; goto restart; 
mesetaddr(ifp, sin); 
IF_DEQUEUE(ses->es if.if_snd, m); 


ifp->if_init = meinit; if (m= 0) { 
ifp->if_output = meoutput; es->es oactive = 6; 
ifp->if_watchdog = mewatch; return; 
if_attach(ifp); } 
} meput {addr—>me_tbuf, m); 
addr->me_csr |= ME_TBSW|ME TINT|ME JINT; 
mewatch () 
{} restart: 
es->es oactive = 1; 
/* ; na 
* Initialization of interface; clear recorded pending 
* operations. hl 
*/ Ethernet interface interrupt. 


* 

meinit (unit) * If received packet examine 

int unit; * packet to determine type. If can’t determine length 
* from type, then have to drop packet. Othewise decapsulate 
* packet based on type and pass to type specific higher-level 
* input routine. 


{ 
struct me_softc *es = gme_ softc[{unit]; 
register struct ifnet *ifp = ses->es if; 


register struct sockaddr_in *sin; af, 
struct medevice *addr; meintr () 
int i, s; { 
u_char *cp, *ap; register struct me_softc *es; 
register struct medevice *addr; 
sin = (struct sockaddr_in *)éifp->if_addr; register int unit; 
if (sin->sin_addr.s addr == 0) /* address still unknown */ extern short netoff:; 
return; register unsigned short meenables = 0; 
if ((es->es if.if_flags & IFF_RUNNING) == 0) { 
addr = (struct medevice *)meinfo(unit]->ui_addr: if (netoff) 
3 = splimp(); return; 


/* {void) splnet(); 
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for (unit = 0; unit < NME; unit++) { 
es = &me softc[unit]; 
addr = (struct medevice *)meinfo[unit]~->ui_addr; 
switch (addr->me_csr & (ME_ABSW|ME BBSW{|ME RBBA)) { 
case ME ABSW: = 
case ME ABSW|ME RBBA: 
/* BBSW = 0, receive B packet */ 
addr->me_csr &= ~ME BINT; 
meread (es, addr->me_bbuf) ; 
addr->me_csr |= ME BBSW|ME BINT; 
break; 


case ME BBSW: 

case ME BBSW|ME RBBA: 
/* ABSW == 6, rmeeive A packet */ 
addr->me_csr &= ~ME AINT; 
meread(es, addr->me_abuf); 
addr->me_csr |= ME ABSW|ME AINT; 
break; 


case ME RBBA: 
/* ABSW == 6, BBSW = 0, RBBA, receive B, then A */ 
addr->me_csr &= ~(ME AINT|ME BINT); 
meread(es, addr->me_bbuf); 
addr->me_csr |= ME BBSW|ME BINT; 
meread(es, addr->me_abuf); 
addr->me_csr |= ME ABSW|ME AINT; 
break; 7 


case 0: 
/* ABSW == 0, BBSW = 6, RBBA = 6, receive A, then B */ 
addr->me_csr &= ~(ME AINT|ME BINT); 
meread(es, addr->me_abuf); 
addr~>me_csr |= ME ABSW|ME AINT; 
meread(es, addr->me_bbuf); 
addr->me_csr |= ME BBSW|ME BINT; 
break; 


case ME ABSW|ME BBSW: 

case ME ABSW|ME BBSW|ME RBBA: 
/* no input packets */ 
addr->me_csr &= ~(ME_AINT|ME BINT); 
addr->me_csr |= ME AINT|ME BINT; 
break; 


default: 
panic("meintr: impossible value"); 
/* NOT REACHED */ 

} 

} /* end of "for unit! */ 


for (unit = 0; unit < NME; unitt+t) { 
es = &me_softc[unit]; 
addr = (struct medevice *)meinfo[unit]->ui_addr; 


if (es->es oactive == 0) 
continue; 
if (addr->me_csr & ME JAM) { 
{* 
* Collision on ethernet interface. Do exponential 
* backoff, and retransmit. If have backed off all 
* the way print warning diagnostic, and drop packet. 
*/ 
es->es if.if collisionst+; 
medocoll (unit); 
continue; 
} 
if ((addr->me_csr & ME TBSW) == 0) { 
addr->me_csr &= ~(ME_TINT|ME JINT); 
es->es if.if opacketst+t; = 
es->es oactive = 0; 
es~->es mask = ~0; 
if (es->es_if.if_snd.ifq_head) 
mestart (unit): 
} 


} /* end of “for unit" */ 


#ifdef HAS8&259 


tendif 


} 


/* try to force level change by exciting current ints on bd */ 
meenables = addr->me_csr & (ME TINT|ME AINT|ME BINT|ME JINT); 
addr->me_csr &= ~meenables; 

sendeoi (meeo!) ; 

addr->me_csr |= meenables; 


return ; 


meread(es, mebuf) 


{* 
int i; 


register struct me_softc *es; 
register caddr_t mebuf; 


register struct ether_header *me; 
register struct mbuf *m; 
register int len, off, meoff; 
short resid; 

register struct ifqueue *inq; 


printf ("mer.“); 
me = (struct ether header x) (mebuf + MERDOFF):; 
print£("s:"); 
for (i = 0; i < 6; itt) 
printf ("$x.",me->me_shost [i] &0xff); 


printt(" 


*); 


printf ("d:"); 
for {i = OG; i < 6; it+) 
printf ("$x.",me->me_dhost [i] &0xff); 


xf 


err: 


#define 


es->es if.if_ipacketst+; 
meoff = *(short *)mebuf; 


if(meoff & (ME FRERR|ME_RGERR|ME_FCSERR)) 


goto err; 


meoff &= ME DOFF; 


if (meoff <= MERDOFF || meoff > 2046) { 


es~>es if.if_lerrors+t+; 
return; 


f*® 


* Get input data length. 

* Get pointer to ethernet header (in input buffer). 
* Deal with trailer protocol: if type is PUP trailer 
* get true type from first 16-bit word past data. 

* Remember that type was trailer by setting off. 

xf 


len = meoff - MERDOFF - sizeof (struct ether_header) - 4; /* 4 == FCS */ 
me = (struct ether_header *) (mebuf + MERDOFF); 
medataaddr(me, off, type) ((type) (((caddr_t) ( (me) +1)+(off)))) 


if (me->ether_type >= ETHERPUP_TRAIL && 


me->ether_ type < ETHERPUP_TRAIL+tETHERPUP_NTRAILER) { 
off = (me->ether_type - ETHERPUP_TRAIL) * 512; 
if (off >= MEMTU) 
return; /* sanity */ 
me->ether type = *medataaddr(me, off, u_short *); 
resid = *(medataaddr(me, off+2, u_short *)); 
if (off + resid > len) 
return; f* sanity */ 
len = off + resid; 


} else 


off = Q; 


if (len = 0) 


return; 


i* 
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* Pull packet off interface. Off is nonzero if packet 
* has trailing header; meget will then force this header 
x information to be at the front, but we still have to drop 
* the type and length which are at the front of any trailer data. 
x] 
jm = mMeget{mebuf, len, off); . 
if (m = 06) 
return; 
if (off) { 


m->m_off += 2 * sizeof (u_short); 
m->m_len -= 2 * sizeof {u_short); 
} 
switch (me->ether_type) { 


#ifdef INET 
case ETHERPUP_IPTYPE: 
schednetisr(NETISR_IP); 
ing = éipintraq; 
break; 


case ETHERPUP_ARPTYPE: 
arpinput (Ses->es ac, m); 
return; 

fendif 

default: 
m_freem(m) ; 
return; 

} 


if (IF_QFULL(ing)) { 
IF_DROP (ing); 
m_freem(m); 
return; 
} 
IF_ENQUEUE (ing, m); 
} 


medoce11 (unit) 
int unit; 
{ 
register struct me_softc *es = éme_softc{unit}; 
register struct medevice *addr = 
(struct medevice *)meinfo[unit]->ui addr; 
int delay; 7 


ye 
* Es mask is a 16 bit number with n low zero bits, with 
* n the number of backoffs. When es mask is 0 we have 
* backed off 16 times, and give up. 
*/ 
if (es->es mask = 0) { 
es~>es if.if_oerrors+t; 


printf ( 
“\nmesd: 16 collisions detected on ethernet. Dropping current packet...\n\n", 
unit); 
{* 
* Reset and transmit next packet {if any). 
xf 


es->es cactive = 0; 

es->es mask = ~0; 

if (es->es_ if.if_snd.ifgq_ head) 
Mestart (unit); 


return; 
} 
fe 
* Do exponential backoff. Compute delay based on low bits 
* of the time. A slot time is 51.2 microseconds (rounded to 51). 
* 


This does not take into account the time already used to 
* process the interrupt. 
*/ 

es->es mask <<= 1; 

delay = (timeéOxffff) &~ es->es mask; 

addr->me_back = delay * 51; ™ 

addr->me_csr |= ME JAM|ME JINT; 


f* 


Le 


Ethernet output routine. 

Encapsulate a packet of type family for the local net. 

Use trailer local net encapsulation if enough data in first 
packet leaves a multiple of 512 bytes of data in remainder. 

If destination is this address or broadcast, send packet to 
loop device to kludge around the fact that 3com interfaces can’t 
talk to themselves. 


*f 


meoutput(ifp, m0, dst) 


register struct ifnet *ifp; 
register struct mbuf *m0; 
register struct sockaddr *dst; 


int type, s, error; 

u_char edst[6]; 

struct in_addr idst; 

register struct me _softc *es = &me_softc[ifp->if_unit]; 
register struct mbuf *m = m0; 

register struct ether_header *me; 

register int i; 

struct mbuf *mcopy = (struct mbuf *) 0; /* Null */ 


Ss = splnet{(); 
switch (dst->sa_family) { 


#ifdef INET 


case AF INET: 
idst = ((struct sockaddr_in *)dst)->sin_addr; 
if (larpresolve(&es->es_ac, m, &idst, edst)) 
return (0); /* if not yet resolved */ 
if (in_lnaof(idst) == INADDR_ANY) 
mcopy = m_copy(m, 0, (int)M_COPYALL); 
type = ETHERPUP_IPTYPE; 
goto gottype: 


#endif 


case AF _UNSPEC: 
me = (struct ether header *)dst->sa_data; 
beopy({(caddr_t)me->ether dhost, (caddr_t)edst, sizeof (edst)); 
type = me->ether_type; 
goto gottype; 


default: 

printf ("me&%d: can’t handle aftd\n", ifp->if_unit, 
dst->sa_family); 

error = EAFNOSUPPORT; 
goto bad; 

} 

gottype: 
{* 


* Add local net header. If no space in first mbuf, 
* allocate another. 
ad 
if (m->m_off > MMAXOFF || 
MMINOFF + sizeof (struct ether_header) > m->m_off) { 
m = m_get(M_DONTWAIT); 
if (m= 0) { 
error = ENOBUFS; 
goto bad; 
} 
m->m_next = m0; 
m->m_off = MMINOFF; 
m->m_len = sizeof (struct ether header); 
} else { 
m->m_off -= sizeof (struct ether header); 
m->m_len += sizeof (struct ether header); 
} 
me = mtod{m, struct ether header *); 
beopy((caddr_t)edst, (caddr_t)me->ether_dhost, sizeof {edst)); 
me~>ether type = htons((u_short}type); 
beopy ({caddr_t)es->es enaddr, (caddr_t)me->ether_shost, 6): 
f* 
* Queve message on interface, and start output if interface 
* not yet active. 
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*} 

Ss = splimp(); 

if (IF_OFULL(&ifp->if _snd)) { 
IF_DROP (&ifp->if_snd); 
error = ENOBUFS; 
goto qrfull; 

} 

IF_ENQUEUE (sifp->if_snd, m); 

if (es->es_oactive = 0) 
mestart (ifp->if unit); 

splx(s); 


gotlocal: 
return(mcopy ? looutput(éloif, mcopy, dst) : 0); 


qfull: 
mo = m; 
bad: 
m_freem{m6); 
splx(s); 
return(error); 
} 
jx 


* Routine to copy from mbuf chain to transmitter 
* buffer in Multibus memory. 
af 
meput (mebuf, m) 
register u_char *mebuf; 
register struct mbuf *m; 


register struct mbuf *mp; 
register short off; 
register u_char *bp; 
register flag = 0; 


for (off = 2048, mp = m; mp; mp = mp->m_next) 
off -= mp~>m_len; 

if (off > MEMAXTDOFF) /* enforce minimum packet 
off = MEMAXTDOFF; 


if (off & 01) { 
off--; 
flagt+; 
} 


*(u_short *)mebuf = off; 

bp = (u_char *) (mebuf + off); 

for (mp = m; mp; mp = mp->m_next) { 
register unsigned len = mp->m_len; 
u_char *mcep; 


if (len == 0) 

continue; 
mep = mtod(mp, u_char *); 
beopy(mcep, bp, (int)len); 
bp += len; 


/* 
1f ((Off & 01) && (Off > (2048-70))) 


struct mbuf * 
meget (mebuf, totlen, off) 


bad: 


} 


register u_char *mebuf; 
register int totlen, off0; 


register struct mbuf *m; 

struct mbuf *top = 0, **mp = é&top; 
register int off = off0, len; 
register u_char *cp; 


cp = mebuf + MERDOFF + sizeof (struct ether_header); 
{* 


{int i; int j; printf ("meget:\n") ; for (j=0;4<6; j++) {for (i=0;1<16;i++) printf ("sx ", (({char *)ep) 


af 
while (totlen > 6) { 
u_char *mcp; 


MGET im, 0); 
if m= Oo 
goto bad; 
} 
if (off) { 
len = totlen - off; 


cp = mebuf + MERDOFF + sizeof (struct ether_header) + off; 


} else 
len = totlen; 
m->m_len = len = MIN(MLEN, len); 
m->m_off = MMINOFF; 
mcp = mtod(m, u_char *); 
beopy (cp, mep, len); 
cp t= len; 
snp = m 
tmp = ém->m_next; 
if (off = 6) { 
totlen -= len; 
continue; 
} 
off += len; 
if {off — totlen) { 


cp = mebuf + MERDOFF + sizeof (struct ether_header); 


off = 0; 
totlen = off0; 
} 
} 
return (top); 


m_freem(top); 
return (@); 


/* medelay -- wait about tim secs */ 
medelay (tim) 
register tim; 


{ 


register i; 


while (tim--) { 
i = 100000; 
while {(i--) 


} 


{int i; int j; print£("meput (%x):\n", Off); for (j=0;4<4;4++) (for (i=0;1<16;i++) printf ("sx ", (({char *) (off+pebuf) ) (1+16*5]) &0xff) sprintf ("\n");}} 


*/ 
if (flag) 
*bp = 0; 
m_freem(m) ; 
} 
/* 
* Routine to copy from Multibus memory into mbufs. 
* 


* Warning: This makes the fairly safe assumption that 
* mbufs have even lengths. 


mesetaddr(ifp, sin) 


register struct ifnet *ifp; 
register struct sockaddr_in *sin; 


ifp->if_addr = * (struct sockaddr *)sin; 

ifp->if_net = in_netof(sin->sin_ addr); 
ifp->if_host{0] = in_lnaof(sin->sin_addr); 

sin = (struct sockaddr_in *)&ifp->if_broadaddr; 
sin->sin_ family = AF_INET; 

sin->sin_addr = if makeaddr(ifp->if_net, INADDR_ANY); 
ifp->if_flags |= IFF_BROADCAST; 
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/* B(#jiget.c 1.4 */ 
#include “sys/param.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.h" 
finclude "sys/sysinfo.h" 
#include "sys/mount.h" 
#include “sys/dir.h" 
#include "sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/inode.h" 
#include “sys/file.h" 
#include "sys/ino.h" 
#include “sys/filsys.h® 
#include “sys/buf.h" 
#include "“sys/var.h" 


fe 
* Look up an inode by device, inumber. 
* If it is in core (in the inode structure), honor the locking protocol. 
* If it is not in core, read it in from the specified device. 
* Tf the inode is mounted on, perform the indicated indirection. 
* In all cases, a pointer to a locked inode structure is returned. 
* 
* printf warning: no inodes -- if the inode structure is full 
* panic: no imt -- if the mounted filesystem is not in the mount table. 
* “cannot happen" 
xf 
#define NHINO 128 /* must be power of 2 */ 
#define ihash (xX) (&hinode[ (int) (X) & (NHINO-1)]) 


struct hinode { 

struct inode *i_forw; 
} hinode [NHINO] ; 
struct inode *ifreelist; 


struct inode * 

iget (dev, ino) 

dev_t dev; 

ino_t ino; 

{ 
register struct inode *ip; 
register struct hinode *hip; 
register struct mount *mp; 
struct inode *iread(); 


sysinfo.igettt; 


loop: 

hip = ihash{ino); 

for (ip = hip->i_forw; ip; ip = ip->i_forw) 
if (ino == ip->i_number && dev == ip->i_dev) 

goto’ found; 

if ((ip = ifreelist) == NULL) { 
printf("Inede table overflow\n"); 
syserr.inodeovft+; 
u.u_error = ENFILE; 
return (NULL) ; 

} 

ifreelist = ip->i_forw; 

if (ip->i_forw = hip->i_forw) 
ip->i_forw->i_back = ip; 

ip->i_back = (struct inode *)hip; 

hip->i_forw = ip; 

ip->i_dev = dev; 

ip->i_number = ino; 

ip->i_flag = ILOCK; 

ip->i_countt+; 

ip->i_lastr = 9; 

return (iread(ip)); 

found: 


if((ip->i_flag&ILOcK) {= 0) { 
ip->i_flag |= IWANT; 
{void) sleep((caddr_t)ip, PINOD); 
goto loop; 


if((ip->i_flag&IMOUNT) != 0) { 


for(mp = émount[(@]; mp < (struct mount *)v.ve_mount; 


if(mp->m_inodp == ip) { 
dev = mp->m_dev; 
ino = ROOTINO; 
if (ip = mp->m_mount) 
gote found; 
else 
goto loop; 
} 
panic("no imt"); 
} 
ip->i_count+t+; 
ip->i_flag |= ILOCK; 
return (ip); 
} 


inoinit {) 

{ 
register struct inode *ip; 
register short i; 


ifreelist = ip = éinode[6]; 
i = v.v_inode - 1 - 1; 


do { 
ip->i_forw = iptl; 
ipt+; 

} while (--i != -1); 


#ifdef notdef 
register i = v.v_inode; 


while (--i) 
inede{i-1].i_forw = é&inode[i]: 
ifreelist = éinode[6]; 
#endif 
} 


struct inode * 

iread(ip) 

register struct inode *ip; 

{ 
register char *pl, *p2; 
register struct dinode *dp; 
struct buf *bp; 
register short i; 


bp = bread(ip->i_dev, FsITOD(ip->i_dev, ip->i_number)}); 


if (u.u_error) { 
brelse (bp); 
iput (ip); 
return (NULL); 
} 
dp = bp->b_un.b dino; 
dp t= FsITOO(ip->i_dev, ip->i_number); 
ip->i_mode = dp->di_mode; 
ip->i_nlink = dp->di_nlink; 
ip->i_uid = dp->di_uid; 
ip->i_gid = dp->di_gid; 
ip->i_size = dp->di_size; 
pl = (char *)ip->i_addr; 
p2 = (char *)dp->di_addr; 
i = NADDR - 1; 
do { 
*pl++ = 0; 
*pltt = *p2++; 
*plt+ = *p2+t; 
*plt+ = *p2++; 
} while (--i != -1); 
brelse (bp); 
return (ip); 
} 


f* 

* Decrement reference count of an inode structure. 
* On the last reference, write the inode out and if 
* truncate and deallocate the file. 


necessary, 


mptt) 
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*/ 
iput (ip) 
register struct inode *ip; 


if{ip=>i_count == 1} { 
ip->i_flag |= ILOCK; 
if(ip->i_nlink <= @) { 
itrunc(ip); 
ip->i_mode = 0; 
ip->i_flag |= IUPD|ICHG; 
ifree(ip->i_dev, ip->i_number); 
} 
if (ip->i_ flags (IACC | IUPD| ICHG)) 
iupdat(ip, é&time, étime); 
prele(ip); 
if (ip->i_back->i_forw = ip->i_forw) 
ip->i_forw->i_back = ip->i_back; 
ip->i_forw = ifreelist; 
ifreelist = ip; 
ip->i_flag = 0; 
ip->i_number = 0; 
ip->i_count = 0; 
return; 
} 
ip->i_count--; 
prele(ip); 
} 


7* 
* Update the inode with the current time. 
*f 
iupdat(ip, ta, tm) 
register struct inode *ip; 
time t *ta, *tm; 
{ 
register struct buf *bp; 
struct dinode *dp; 
register char *pl; 
char *p2; 
register short i; 


if(getfs(ip->i_dev)->s_ronly) { 
if{ip->i_flagé (IUPD]ICHG)) 
u.u_error = EROFS; 
ip->i_flag &= ~(IACC|IUPD|ICHG|ISYN); 
return; 
} 
bp = bread(ip->i_dev, FsITOD(ip->i_dev, ip->i_number)); 
if (bp->b_flags & B_ERROR) { 
brelse (bp); 
return; 
} 
dp = bp->b_un.b dino; 
dp t= FsITOO(ip->i_dev, ip->i_number); 
dp~->di_mode = ip->i_mode; 
dp->di_nlink = ip->i_nlink; 
dp->di_uid = ip->i_uid:; 
dp->di_gid = ip->i_gid; 
dp->di_size = ip->i_size; 
pl = (char *)dp->di_addr; 
p2 = (char *)ip->i_addr; 
if ((ip->i_mode&IFMT)==IFIFO) { 
i = NFADDR - 1; 
do { 
if (*p2t+ [= 0) 
printf("iaddress > 2*24\n"); 
*pl++ = *p2t+t+; 
tplt++ = *p2t+; 
*plt+ = *p2++; 
} while (--i {= -1); 
i = NADDR - NFADDR - 1; 
if (1 >= 0) { 
do { 
*pl++ = 0; 
*pl++ = 0; 


*pl++ = O; 
} while (--i != -1); 
} 
} else { 
i= NADDR - 1; 
ao { 
if(*p2t+ f= 8) 
printf("iaddress > 2*24\n"); 
*pltt+ = *p2tt; 
*plt+ = *p2+t+; 
*pltt = *p2t+; 


} while (--i l= 


-1); 


} 

if (ip->i_flag&IAcc) 
dp->di_atime = *ta; 

if (ip->i_flags&IUPD) 
dp->di_mtime = *tm; 

if (ip->1_flag&ICHG) 
dp->di_ctime 

if (ip->i_flagéISYN) 
bwrite (bp); 


time; 


else 
bdwrite (bp) ; 
ip->i_flag &= ~(IACC|IUPD| ICHG|ISYN); 


} 

f* 

* Free all the disk blocks associated with the specified inode structure. 
* The blocks of the file are removed in reverse order. This FILO 

* algorithm will tend to maintain 

* a contiguous free list much longer than FIFO, 

xf 

itrunc (ip) 


register struct inode *ip; 


{ 


i 


register i; 
dev_t dev; 
daddr t bn; 


i = ip->i_mode & IFMT; 

if (LI=IFREG é& i!=IFDIR} 
return; 

dev = ip->i_dev; 

for (i=NADDR~-1; i>=0; i--) { 
bn = ip->i_addr[i]; 
if(bn == (daddr_t)0) 

continue; 

ip->i_addrf{i] = (daddr_t)0; 
switch(i) { 


default: 
free(dev, bn); 
break; 


case NADDR-3: 
tloopidev, bn, 0, 9); 
break; 


case NADDR-2: 
tloop(dev, bn, 1, 0); 
break; 


case NADDR-1: 
tloop{dev, bn, 1, 1); 
} 


p->i_size = 0; 
p->i_flag |= IUPD{ICHG; 


Be pew 


tloop(dev, bn, f1, f2) 


dev_t dev; 
daddr_t bn; 


{ 


register i; 
register struct buf *bp; 
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register daddr_t *bap; 
daddr_t nb; 


bp = NULL; 
for (i=FsNINDIRidev)-1; i>=6; i--) { 
Lf(bp == NULL) { 
bp = bread{dev, bn); 
if (bp->b_flags & B_ERROR) { 
brelse (bp); 
return; 
} 
bap = bp->b_un.b daddr; 
} 
nb = bap[il:; 
if(nb == (daddr t) 9) 
continue; 
if(f1) { 
brelse (bp) ; 
bp = NULL; 
tloop(dev, nb, £2, 0); 
} else 
freeidev, nb); 
} 
if(bp != NULL) 
brelse (bp); 
free(dev, bn); 
} 


/* 
* Make a new file. 
xf 
struct inode * 
maknode (mode) 
register mode; 
{ 
register struct inode *ip; 


Lf ((modeéIFMT) == 0) 
mode |= IFREG; 

mode &= ~u.u_cmask; 

ip = jalloc({u.u_pdir->i_ dev, mode, 1); 

if (ip = NULL) { 
iput (u.u_pdir); 
return (NULL); 

} 

wdir (ip); 

return (ip); 

} 


/* 


* Write a directory entry with parameters left as side effects 


* to a call to namei. 
xf 
wdir (ip) 
struct inode *ip; 
{ 
register struct user *up; 


up = &u; 

up~>u_dent.d_ino = ip->i_number; 
up->u_count = sizeof(struct direct); 
up->u_segflg = 1; 

up->u_base = (caddr_t) éup->u_dent; 
up->u_fmode = FWRITE; 

writei (up~>u_pdir); 

iput (up->u_pdir); 
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i* in.c 4.3 82/06/20 xf 


#include “sys/param.h® 
f#include “sys/config.h® 
#include “sys/errno.h" 
#include “sys/types.h" 
#include “sys/systm.h" 
#include “net/misc.h" 
#include “"net/mbuf.h" 
f#include “net/protosw.h" 
#include “net/socket.h" 
#include “net/socketvar.h" 
#include "net/in.h" 
#include “net/in_ systm.h" 
#include “"net/if.n" 
#include “"net/route.h" 
#include “net/af.h" 


#ifdef INET 
inet_hash({sin, hp) 
register struct sockaddr_in *sin; 
struct afhash *hp; 
{ 
#ifdef ELEVEN 
long 1; 
1 = in_netof(sin->sin_addr); 
hp->afh_nethash = ((int)1 * (int}(1>>16)) & 077777; 
1 = sin->sin_addr.s addr; 
hp->afh_hosthash = ((int)1 * (int) (1>>16)) & 077777: 
if {hp->afh_hosthash < 0) 
hp~>afh_hosthash = -hp->afh_hosthash; 
fendif 
hp->afh_nethash = in netof(sin->sin_addr); 
hp->afh_hosthash = ntohl(sin->sin_addr.s addr); 


} 


inet_netmatch(sinl, sin2) 

struct sockaddr_in *sinl, *sin2; 
{ 

return (in _netof(sinl->sin addr) == in _netof(sin2->sin_addr}); 
} 


{* 
* Formulate an Internet address from network + host. Used in 
* building addresses stored in the ifnet structure. 
*/ 
struct in_addr 
if_mkaddr(net, host) 
u_long net,host; 
{ 
u_long addr; 


addr = htonl(host) | net; 
return (*(struct in_addr *) &addr); 
} 
/* billn -- for transition */ 
f#fundef if_makeaddr (x,y) 
struct in_addr 
if_makeaddr(n, h)} 
u_long n, h; 
{ 
return {if mkaddr(n, h)); 
} 


{* 
* Return the network number from an internet 
* address; handles class a/b/c network #’s. 
wf 
u_long 
in_netof (in) 
struct in_addr in; 


{ 


return (IN _NETOF(in)); 


/* 
* Return the local network address portion of an 
* internet address; handles class a/b/c network 
* number formats. 
xf 
u_long 
in_lnaof (in) 
struct in_addr in; 
{ 


return (IN LNAOFfin)); 


* Initialize an interface’s routing 
* table entry according to the network. 
* INTERNET SPECIFIC. 
af 
if rtinit(ifp, flags) 
= register struct ifnet *ifp; 
int flags; 


struct sockaddr_in sin; 


if (ifp->if_flags & IFF_ROUTE) 
return; 
bzero((caddr_t)ésin, sizeof {sin));° 
sin.sin_family = AF_INET; 
sin.sin_addr = if_makeaddr((u_long)ifp->if_net, (u_long) 4); 
rtinit((struct sockaddr *)&sin, &ifp->if_addr, flags); 


#endif 
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#include "sys/param.n" 
#include "sys/config.h" 
#include “sys/errno.h" 
#include "sys/types.h" 
f#include “sys/systm.h" 
#include “net/misc.h" 
#include "net/mbuf.h" 
#include “net/in.h" 
#include “net/in systm.h" 


#define M68000 

#define bswap(x) (((CCint) (z))>>8) edxeff) 1 oft {in 
/ 
Checksum routine for Internet Protocol family headers. 

This routine is very heavily used in the network 

code and should be rewritten for each CPU to be as fast as possible. 


billn: This shows the main outline for a prospective algorithm on 
a prospective machine. I suppose one could try to outline 
general guidelines for writing this routine, ie, if the machine 
is byte-swapped, etc, etc. In practice, what one does is find 
a machine which is known to conform to the “standard" and 
beat on the code of the new machine till it works with the 
known ok machine. 


* + £ + FF ee HF HR FH 


* 
ms 


/* int in_ckodd: /* number of calls on odd start add */ 
/* int in_ckprint = 6; /* print sums */ 
/* 68k */ 
union w { 
unsigned short wword; 
unsigned char wchar[2]; 
} 


in_cksum(m, len) 

register struct mbuf *m; 

register short len; 

{ 
register unsigned short *ptr; /* “unsigned" is important... */ 
register shert mlen = 9; 
register long result = 0; 
register unsigned short r; 
register char * cptr; 
register unsigned short wasodd; 
register unsigned short thisodd; 
union w Ww; 
extern short tcpcksum; 
extern short ipcksum; 


fr 
if (in_ckprint) printf("ck mto 1%0",m,len); 
xf 
1f ('tepeksum) /* not checksumming? */ 
if (fipcksum) 


return 0; 
wasodd = Q; 
for (773) { 

fx 


* Each trip around loop adds in 
* words from one mbuf segment. 
ef 
thisodd = 0; 
ptr = mtod(m, unsigned short *); 
mlen = m->m_len; 
if (len < mien) 
mien = len; 
len -= mien; 
Af (mlen > 0) { 
if (wasodd) { /* "last mbuf odd" code... */ 
cptr = (char *)ptr; 
w.wehar[i] = *cptrt++; 
result += w.wword; 
while (--mlen) { 
w.wehar[0] = *ceptr+t+; 
mlen--; 


if (mlen) { 
w.wohar[1] = *eptrtt; 
result += w.wword; 


else 
/* note wasedd still set */ 
goto nextbuf; /* next mbuf */ 
t 
wasodd = 0; 
goto nextbuf; /* next mbuf */ 
} 


/7* main line... check odd byte count */ 
if(mlen & 91) { 

thisoddtt+; 

mlen--; 

if (mlen = 0) 

goto lastbyte; 

} 
/* make we a word count */ 
mlen >>= 1; 


/* 
* this is the main loop of the algorithm. 
af 

mlen -= 1; 

do { 


result += *ptrt++; 
} while{--mlen != -1); 
Af (thisodd) { 


lastbyte: 
wasodd+t; 
cptr = (char *) ptr; 
w.wohar[6] = *cptr++; 
} 
else 
wasodd = 0; 
} . 
nextbuf: 
if (len <= 9) 
break; 
m= m->m_next; 
{* 
x Locate the next block with some data. 
x/ 
for (37) { 


done: 


if (m— 0) { 
printf ("cksum: out of data\n"™); 
goto done; 

} 

if {m->m_len) 
break; 

m = m->m_next; 


} 


if (wasodd) { 
w.wehar[1] = 6; 
result += w.wword; 


if (rv = (result >> 16)) { 
result &= Oxffff; 
result += (unsigned)r; 


goto done; 
} 
/* 
if (in_ckprint) printf(" sto\n",~result); 
af 


return ((~((unsigned short)result)) & Oxffff); 


in peb.c 


Fri Sep 5 19:09:30 1986 


in_peb.c 4.28 82/06/20 *f 


* $/27/84 wrn In in_pcbattach, protection check excludes case where port == 20 


xf 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


/ 


space 
not a 


It is 


TODO: 


be ee OKO HOH OOOOH OOOOH 


xf 
struct 


/* 


thus allowing ftp to create data sockets. This is a hack, but 
the decision was made not to put in the setreuid system call for 
now. 


“sys/param.h" 
“sys/config.h" 
“sys/errno.h" 
"“sys/types.h" 
"“sys/sysmacros.h" 
“sys/systm.h" 
“sys/sysmacros.h" 
“sys/dir.h" 
"sys/signal.h" 
“sys/user.h" 
"“net/misc.h™ 

“net /mbuf.h" 

“net /socket .h" 
"net /socketvar.h™ 
“net/in.h" 

“net /in_systm.h" 
“net /if.h" 

“net /route.h" 
“net/in_pcb.h" 
“net /protosw.h" 


Routines to manage internet protocol control blocks. 


At PRU_ATTACH time a protocol control block is allocated in 
in_pcballoc() and inserted on a doubly-linked list of such blocks 
for the protocol. A port address is either requested (and verified 
to not be in use) or assigned at this time. We also allocate 


in the socket sockbuf structures here, although this is 
clearly correct place to put this function. 


A connectionless protocol will have its protocol control block 
removed at PRU DETACH time, when the socket will be freed {freeing 
the space reserved) and the block will be removed from the list of 
blocks for its protocol. 


A connection-based protocol may be connected to a remote peer at 
PRU_CONNECT time through the routine in_pcbconnect(). In the normal 
case a PRU_DISCONNECT occurs causing a in_pebdisconnect (). 


also possible that higher-level routines will opt out of the 


relationship with the connection before the connection shut down 

is complete. This often occurs in protocols like TCP where we must 
hold on to the protocol control block for a unreasonably long time 
after the connection is used up to avoid races in later connection 
establishment. To handle this we allow higher-level routines to 
disassociate themselves from the socket, marking it SS_USERGONE while 
the disconnect is in progress. We notice that this has happened 

when the disconnect is complete, and perform the PRU DETACH operation, 
freeing the socket. 7 


use hashing 


in_addr zeroin_ addr; 


* Allocate a protocol control block, space 
* for send and receive data, and local host information. 
* Return error. If no error make socket point at pcb. 


*f 


in_pcbattach(so, head, sndcc, revec, sin) 


struct socket *so; 


struct inpcb *head; 
int sndec, revee; 
struct sockaddr_in *sin; 


register struct inpcb *inp; 
u_short lport = 0; 


if (ifnet — 06) 
return (EADDRNOTAVAIL); 
if (sin) { 
if {sin->sin_ family != AF_INET) 
return {HAFNOSUPPORT); 
if (sin->sin_addr.s addr) { 
int tport = sin->sin port; 


sin->sin_port = 0; /* yech... */ 
if (if_ifwithaddr((struct sockaddr *)sin) = 6) 
return ({EADDRNOTAVAIL): 
sin->sin_port = tport; 
} 
lport = sin->sin_port; 
if (lport) { 
u_short aport = lport; 
int wild = 0; 


#ifndef WATCHOUT 


#endif 


bad2: 


bad: 


} 
{* 


aport = htons(aport); 


/* GROSS */ 
if {aport < IPPORT RESERVED && u.u_uid != 0) { 
if (aport != 26) 
return (RACCES}); 
} 
if ({so->so_proto->pr_ flags & PR_CONNREQUIRED) == @ || 
(so->so_options & SO _ACCEPTCONN) == 0) 
wild = INPLOOKUP_WILDCARD; 
if (in_pcblookupthead, 
zeroin addr, 0, sin->sin_addr, lport, wild)) { 
return (EADDRINUSE) ; 


} 
} 
MSGET(inp, struct inpcb ,1); 
if (inp == 0) : 

return (ENOBUFS) ; 
if (sbreserve(&so->so_snd, sndcc) == 0) 

goto bad; 
if (sbreserve(&so->so_rev, revec) = 0} 

goto bad2; 
inp->inp head = head; 
if (sin) 

inp->inp_laddr = sin->sin_addr; 
if (lport = 0) 

do { 

if (head->inp_lport++ < IPPORT_RESERVED) 
head->inp lport = IPPORT_RESERVED; 
lport = htons(head->inp lport); 
} while (in_pcblookup (head, 
zeroin_ addr, 0, inp->inp_laddr, lport, 0)); 

inp->inp_ lport = lport; 
inp->inp_socket = so; 
insque{inp, head); 
so->so pcb = (caddr_t)inp; 
return (0); 


sbrelease(&so->so_snd); 


MSFREE (inp); 
return (ENOBUFS); 


* Connect from a socket to a specified address. 

* Both address and port must be specified in argument sin. 
* If don’t have a local address for this socket yet, 

* then pick one. 


*/ 


in_pebconnect (inp, sin) 


» struct inpcb *inp; 
struct sockaddr_in *sin; 


struct ifnet *ifp; 
struct sockaddr_in *ifaddr; 
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hs 
Fh 


{sin->sin family {= AF_INET) 
return (EAFNOSUPPORT) ; 

if (sin->sin_addr.s addr — 0 || sin->sin_port — 4) 
return (EADDRNOTAVAIL) ; 

{inp=>inp laddr.s_ addr = 0 


fee 
Fh 


if (ifp = 0) { 
{* 


1986 2 


f 
1 
ifp = if_ifonnetof( (int) (in_netof(sin->sin_addr))); 


* We should select the interface based on 
* the route to be used, but for udp this would 
* result in two calls to rtalloc for each packet 


* sent; hardly worthwhile... 
xf 
ifp = if_ifwithaf(AF_INET); 
if (ifp — 0) 
return (EADDRNOTAVAIL) ; 
} 


ifaddr = (struct sockaddr_in *)&ifp->if_addr; 


} 

if (in_pcblookup(inp->inp head, 
sin->sin_addr, 
sin->sin port, 
/* c will pass a structure. 
inp->inp_laddr.s addr ? inp->inp laddr.s addr : 
*/ 


ifaddr->sin_addr.s_ addr, 


inp->inp_laddr.s addr ? inp->inp laddr : ifaddr->sin_addr, 


inp->inp lport, 
0)) { 
return (RADDRINUSE) ; 
} 
if (inp->inp_laddr.s addr = 0) 
inp->inp laddr = ifaddr->sin_addr; 
inp->inp_faddr = sin->sin addr; 
inp->inp fpert = sin->sin_port; 
return {0); 
} 


in_pebdisconnect (inp) 
struct inpcb *inp; 

f 

Ly 


inp->inp_faddr.s_ addr = 0; 
inp->inp_fport = 0; 
if (inp->inp_socket->so_state & SS_USERGONE) 
in_pebdetach (inp); 
} 


in_pebdetach (inp) 
struct inpcb *inp; 
{ 
struct socket *so = inp->inp_socket; 


so->so_pcb = 0; 
sofree(so); 
if (inp->inp route.ro rt) 
rtfree(inp->inp route.ro_rt); 
remque (inp) ; 
MSFREE (inp) ; 
} 


in_setsockaddr(sin, inp) 
register struct sockaddr in *sin; 
register struct inpcb *inp; 


if (sin = 0 || inp == 0) 
panic(“setsockaddr in"); 
bzero((caddr_t)sin, sizeof (*sin)); 
sin->sin_ family = AF_INET; 
sin->sin_ port = inp->inp_lport; 
sin->sin_addr = inp->inp laddr; 
} 


fr 
* Pass an error to all internet connections 
* associated with address sin. Call the 


® protocol specific routine to clean up the 
* mess afterwards. 
xf 
in_pebnotify (head, dst, errno, abort) 
struct inpcb *head; 
register struct in addr *dst; 
int errno, (*abort) (); 


register struct inpcb *inp, *oinp; 
int s = splimp(); 


for (inp = head->inp_nexat: inp != head;:} { 
if (inp->inp_faddr.s addr != dst->s_addr) { 
next: 
inp = inp->inp_next; 
continue; 
} 
if (inp->inp_socket == 0) 
gote next; 
inp->inp_socket->so_error = errno; 
oinp = inp; 
inp = inp->inp_next; 
(*abort) (oinp); 
} 
splx(s); 
} 


fe 
* SHOULD ALLOW MATCH ON MULTI-HOMING ONLY 
x} 
struct inpcb * 
in_pebloockup(head, faddr, fport, laddr, lport, flags) 
struct inpcb *head; 
struct in_addr faddr, laddr; 
u_short fport, lport; 
int flags; 


register struct inpcb *inp, *match = @; 
-int matchwild = 3, wildcard; 


for {inp = head->inp next; inp != head; inp = inp->inp next) { 


if (inp->inp_lport != lport). 
continue; 
wildcard = Q; 
if (inp->inp_laddr.s addr != 6) { 
if (laddr.s addr = 0) 
wildcardt+; 


else if (inp->inp_laddr.s addr != laddr.s addr) 


continue; 
} else { 
if (laddr.s addr != Q) 
wildcard+t+; 
} 
if (inp->inp_faddr.s addr |= 0) { 
if (faddr.s addr = 0) 
wildcardt+t+; 


else if (inp->inp faddr.s addr != faddr.s addr || 


inp->inp_fport {= fport) 
continue; 
} else { 
if (faddr.s addr != 0) 
wildcard++; 
} 


if (wildcard && (flags & INPLOOKUP_WILDCARD) == 0) 


continue; 

if (wildcard < matchwild) { 
match = inp; 
matchwild = wildcard; 
if (matchwild == 0) 

break; 
} 
} 


return (match); 


ip_icmp.c 


fr 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
finclude 
#include 
#include 
#include 


jr 
* ICMP 
* routi 
* host 
xf 

int 


fe 
* Gener 
x in re 
*f 


icmp_err 
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"sys/param.h" 
“sys/config.h® 
“sys/errno.h" 
“sys/types.h" 
"sys/systm.h" 
"net /misc.h" 
"net /mbuf.h" 
“net /protosw.h" 
"net /socket.h" 
“net/in.h" 
“net/in systm.h" 
“net/ip.h* 
“net/ip icmp.h" 
“net /route.h" 


routines: error generation, receive packet processing, and 
nes to turnaround packets back to the originator, and 
table maintenance routines. 


icmpprintfs = 0; 


ate an error packet of type error 
sponse to bad packet ip. 


or(oip, type, code) 
struct ip *oip; 
int type, code; 


register unsigned oiplen = oip->ip_ hl << 2; 
register struct icmp *icp; 

struct mbuf *n; 

struct ip *nip; 


if (icmpprintfs) 
printf ("icmp error(%x, %d, %d)\n", oip, type, code); 


* Make sure that the old IP packet had 8 bytes of data to return; 
* if not, don’t bother. Also don’t EVER error if the old 
* packet protocol was ICMP. 
ef 
if (oip->ip_len < 8 || oip->ip_p == IPPROTO_ICMP) 
goto free; 


7* 
* First, formulate icmp message 
m = m_get(M DONTWAIT, MT HEADER) ; 
xf 
m = m_get(M DONTWAIT); 
if (m = 0) 
goto free; 
m->m_len = oiplen + 8 + ICMP MINLEN; 
m->m_off = MMAXOFF ~ m->m_len; 
icp = mtod(m, struct icmp *); 
icp->icmp_type = type; 
icp->icmp void = 0; 
if (type <= ICMP _PARAMPROB) { 
icp->icmp_pptr = code; 
code = 0; 
} 
icp->icmp_code = code; 
beopy ((caddr_t)oip, (caddr_t)&icp->icmp ip, (int) (oiplen + 8)); 
nip = éicp->icmp ip: 
nip->ip len += oiplen; 
nip->ip_len = htons({u_short)nip->ip len); 


ft 
* Now, copy old ip header in front of icmp 
* message. This allows us to reuse any source 
* routing info present. 
af 

m->m_off -= oiplen: 

nip = mtod(m, struct ip *); 

beopy ((caddr_t)oip, (caddr_t)nip, (int)oiplen); 


free: 


} 


nip->ip_len = m->m_len + oiplen; 

nip->ip_p = IPPROTO_ICMP; 

/* icmp send adds ip header to m_off and m_len, so we deduct here */ 
m->m_off += oiplen; 

icmp reflect (nip); 


m_freem(dtom(oip)); 


static char icmpmap[] = { 


Is 


-1, -1, -1, 
PRC_UNREACH_NET, PRC_QUENCH, § PRC_REDIRECT_NET, 
-1, -1, -1, 

-1, -1, PRC_TIMXCEED_INTRANS, 
PRC_PARAMPROB, -1, -1, 

-1, -1 


static struct sockproto icmproto = { AF_INET, IPPROTO_ICMP }; 
static struct sockaddr in icmpsrc = { AF_INET }; 
static struct sockaddr_in icmpdst = { AF_INET }; 


{* 


* Process a received ICMP message. 


xf 


icmp input (m) 


{ 


struct mbuf *m; 


register struct icmp *icp; 

register struct ip *ip = mtod{m, struct ip *); 
int icmplen = ip->ip_len, hlen = ip->ip_hl << 2; 
int i, (*ctlfunc)(), type: 

extern u_char ip_protox[]: 


/* 
* Locate icmp structure in mbuf, and check 
* that not corrupted and of at least minimum length. 
ay 
if (icmpprintfs) 
printf("icmp input from %x, len td\n", ip->ip_sre, icmplen); 
if (iemplen < ICMP_MINLEN) 
goto free; 
m->m_len -= hlen; 
m->m_off += hlen; 
/* need routine to make sure header is in this mbuf here */ 
icp = mtod(m, struct icmp *); 
i = icp->icmp_cksum; 
icp->icmp_cksum = 0; 
if (i != in_cksum(m, icmplen)) { 
printf("icmp: cksum &x\n", i); 
goto free; 
} 


fe 
* Message type specific processing. 
*/ 
1f (icmpprintfs) 
printf (“icmp input, type %d code %d\n", icp->icmp_type, 
icp->icmp_code) ; 
switch (i = icp->icmp_type) { 


case ICMP_UNREACH: 
case ICMP_TIMXCEED: 
case ICMP_PARAMPROB: 
case ICMP REDIRECT: 
case ICMP SOURCEQUENCH: 
[* 
* Problem with previous datagram; advise 
* higher level routines. 
*f 
icp->icmp_ip.ip len = ntohs((u_short)icp->icmp_ip.ip len); 
if (icmplen < ICMP_ADVLENMIN || icmplen < ICMP_ADVLEN(icp)) 
goto free; 
if (icmpprintfs) 
printf("deliver to protocol %d\n", icp->icmp_ip.ip pj; 
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type = 1 = ICMP_PARAMPROB ? 0 : icp->icmp_code; 

if (ctlfunc = inetsw[ip_protox[lep->icmp ip.ip p]].pr_ctlinput) 
(*ctlfunc) (icmpmap[i] + type, (caddr_t}icp); 

goto free; 


case ICMP ECHO: 


icp->icmp_type = ICMP_ECHOREPLY; 
goto reflect; 


case ICMP _TSTAMP: 


if (icmplen < ICMP_TSLEN) 

gote free; 
icp->icmp_ type = ICMP_TSTAMPREPLY; 
icp->icmp_rtime = iptime(); 
icp->icmp ttime = icp->icmp_rtime; 
goto reflect; 


/* bogus, do later! */ 


case ICMP TREO: 


/* £i11 in source address zero fields! */ 
goto reflect; 


case ICMP ECHOREPLY: 
case ICMP_TSTAMPREPLY: 
case ICMP _IREQREPLY: 


default: 


} 
reflect: 


ip->ip_len += hien; 


if (icmplen < ICMP_ADVLENMIN || icmplen < ICMP_ADVLEN{icp)) 
goto free; 
icmpsre.sin_addr = ip->ip_sre; 
icmpdst.sin_addr = ip->ip_dst; 
raw_input(dtom(icp), é&icmproto, (struct sockaddr *)&licmpsrc, 
(struct sockaddr *) &icmpdst); 
goto free; 


goto free; 


/* since ip input deducts this */ 


icmp _reflect{ip); 


return; 
free: 


m_freem{dtom(ip}}; 


} 
fe 


* Reflect the ip packet back to the source 
* TODO: rearrange ip source routing options. 


xf 
iemp_reflect (ip) 


struct ip *ip; 


{ 


struct in_addr t; 


t = ip->ip dst; 
ip->ip_dst = ip->ip_sre; 
ip->ip_sre = t; 
icmp_send{ip); 


} 


ye 
* Send an icmp 


packet back to the ip level, 


* after supplying a checksum. 


wf 
icmp_send (ip) 


struct ip “ip; 


{ 


register int hlen; 
register struct iemp *icp; 
register struct mbuf *m; 


m = dtom(ip); 

hien = ip->ip hl << 2; 

icp = mtod(m, struct icmp *); 

icp->icmp cksum = 0; 

icp->icmp cksum = in _cksumim, ip->ip len - hlen): 
m->m_off -= hlen; 

m->m_len += hien; 


tins 


iptime () 
{ 


if (icmpprintfs) 


printf ("icmp_send dst %x src tx\n", ip->ip_dst, ip->ip_sre); 


(void) ip_output(m, (struct mbuf *)0, (struct route *)0, 0); 


int s = 


spl6(); 


u_long t; 


/* system 3... 
t= (time.tv_sec % (24*60*60)) * 1006 + time.tv_usec / 1000; 


xf 


t = (time % SECDAY) * 1606 + lbolt * hz; 


splxi{s); 


return (htonl(t)); 


ip_input.c 


fe 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
$include 
#include 
#include 


#include 
#include 


#include 
#include 
#include 


u_char 
int 
struct 


/* 

* IP in 
* All p 
x} 

ip _init( 
{ 


short 
struct 
struct 


/* 
* Ip in 
* try t 
* Proce 
*f 

ipintr() 

{ 
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ip_input.c 1.65 83/02/23 */ 
"sys/param.h™ 
"sysfconfig.h" 
“sys/errno.h®" 
“sys/types.h" 
“sys/systm.h" 
"net /misc.h" 
“net/mbuf.h" 
“net /protosw.h" 
“net/socket.h" 
“net/in.h" 
“net/in_ systm.h" 
“net/ip.n™ 
“net/ip icmp.h" 


“net/if.he 
®net /route.h" 


"net/in_peb.h" 
“net/ip var.h" 
“net /tcp.h" 


ip_protox[IPPROTO_MAX]; 
ipqmaxlen = IFQ MAXLEN; 


ifnet *ifinet; /* first inet interface */ 


itialization: fill in IP protocol switch table. 


rotocols not implemented in kernel go to raw IP protocol handler. 


) 


register struct protosw *pr; 
register int i; 


pr = pffindproto(PF_INET, IPPROTO_RAW); 
if (pr = 4) 
panic("ip init"); 
for (i= 6; i< IPPROTO_MAX; itt) 
ip_protox[i] = pr - inetsw; 
/* billn - meld with old code 
for (pr = inetdomain.dom_protosw; 
pr <= inetdomain.dom_protoswNPROTOSW; prt++) 
if (pr->pr_family == PF_INET && 
pr->pr_protocol && pr->pr_protocol != IPPROTO RAW) 
ip protox[pr->pr_protocol] = pr - inetsw; 
*f 
for (pr = protosw; pr <= protoswLAST; prt++) 
if (pr->pr_family == PF_INET && 
pr->pr_protocol && pr->pr_protecol != IPPROTO_RAW) 
ip_protox[pr->pr_protocol] = pr - protosw; 
ipq.next = ipgq.prev = &ipg; 


/* billn... 
ip_id = time.tv_sec & Oxffff; 
*/ 


ip_id = time & Oxffff; 
ipintrq.ifq_maxlen = ipqmaxlen; 
ifinet = if ifwithaf(AF_INET); 


ipcksum = 1; 
ip *ip_reass(); 
sockaddr in ipaddr = { AF_INET }; 


put routine. Checksum and byte swap header. If fragmented 
o reassamble. If complete and fragment queue exists, discard. 
ss options. Pass to next level. 


register struct ip *ip; 
register struct mbuf *m; 
struct mbuf *m0; 
register int i; 
register struct ipg *fp; 


next: 


int hlen, s; 


/* 

* Get next datagram off input queue and get IP header 
* in first mbuf. 

xf 

s = splimp(); 

IF_DEQUEUE(&ipintrgq, m); 


splx(s); 
if (m = 06) 
return; 
if ((m->m_off > MMAXOFF || m->m_len < sizeof (struct ip)) && 
(m = m_pullup(m, sizeof (struct ip))) == 0) { 


ipstat.ips toosmall+t+; 
goto next; 


ip = mtod(m, struct ip *); 
if ((hlen = ip->ip_hl << 2) > m->m_len) { 
if ({m = m_pullup(m, hlen)) = 0) { 
ipstat.ips badhlent+t; 
goto next; 


} 
ip = mtod(m, struct ip *); 


be owe 
a) 


(ipcksum) 
if (ip->ip_sum = in_cksumim, hlen)) { 
ipstat.ips_badsum+t+; 
goto bad; 


{* 
* Convert fields to host representation. 
xf 

ip->ip_len = ntohs((u_short)ip->ip_len); 

if {ip->ip_len < hlen) { 

ipstat.ips_badlen+t; 
goto bad; 

} 

ip->ip_id = ntohs(ip->ip_id); 

ip->ip_off = ntohs{{u_short)ip->ip off); 


* Check that the amount of data in the buffers 
* is as at least much as the IP header would have us expect. 
* Trim mbufs if longer than we expect. 
* Drop packet if shorter than we expect. 
xf 
i = -ip->ip_len; 
mo = m; 
for (37) { 
i += m->m_len; 
if (m->m_next == 0) 
break; 
m = m->m_next; 
} 
if (i != 90) { 
if (i < 0) { 
ipstat.ips tooshorttt; 


printf("[iptooshort by %d]", i); 


goto bad; 
} 
if (i <= m->m_len) 
m->m_len -= i; 
else 
m_adj(m0, -i); 
} 


m = m0; 


/* 

* Process options and, if not destined for us, 

* ship it on. ip_dooptions returns 1 when an 

* error was detected (causing an icmp message 

* to be sent}. 

*/ 
if (hlen > sizeof (struct ip) && ip _dooptions({ip}) 
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goto next; 


fk 
* Fast check on the first internet 
* interface in the list. 
xi 
ot 
if (ifinet) { 
struct sockaddr in *sin; 


sin = (struct sockaddr_in *)&ifinet->if_addr; 
if (sin->sin_addr.s addr == ip->ip_dst.s addr) 
goto ours; 
sin = (struct sockaddr_in *)&ifinet->if_broadaddr; 
1f ((ifinet->if flags & IFF_ BROADCAST) && 
sin->sin_addr.s addr == ip->ip_dst.s addr) 
goto ours; 
} 
/* BEGIN GROT */ 
#if NND > 0 
#include “nd.h" 
{x 
* Diskless machines don’t initially know 
* their address, so take packets from them 
x if we’re acting as a network disk server. 
xf 
if ({ip->ip_dst.s addr == INADDR_ANY && 
{in_netof(ip=->ip_ src) == INADDR_ANY &é& 
in_Inaof(ip->ip_src) {= INADDR_ANY)) 
goto ours; 
fendif 
/* END GROT */ 
ipaddr.sin_addr = ip->ip dst; 
if (if_ifwithaddr((struct sockaddr *)éipaddr) == 0) { 
ip forward (ip); 
goto next; 


ours: 
fe 
* Look for queue of fragments 
* of this datagran. 
xf 
for {fp = ipgq.next; fp != gipq: fp = fp->next) 
if (ip->ip_id == fp->ipq_id «&« 
ip->ip_sre.s_ addr == fp->ipq_sre.s_ addr && 
ip->ip dst.s addr == fp->ipq_dst.s addr && 
ip->ip_p == fp->ipq_p) 
goto found; 
fp = Q; 
found: 
/* 


* Adjust ip_len to not reflect header, 
* set ip mff if more fragments are expected, 
* convert offset of this to bytes. 
xf 
ip->ip_len -= hlen; 
({struct ipasfrag *)ip)->ipf_mff = 0; 
if (ip->ip_off & IP_MF) 
((struct ipasfrag *)ip)->ipf mff = 1; 
ip->ip off <<= 3; : 


{* 
* If datagram marked as having more fragments 
* or if this is not the first fragment, 
* attempt reassembly; if it succeeds, proceed. 
*/ 
if (((struct ipasfrag *)ip)->ipf_mff || ip->ip_off) { 
ip = ip reass((struct ipasfrag *)ip, fp); 
if (ip == 0) 
goto next; 
hlen = ip->ip hl << 2; 
m = dtom({ip): 
} else 
if (fp) 
ip_freef (fp); 


bad: 


xf 


f* 
* Switch out to protocol’s input routine. 
xf] 
(*inetsw[ip_protox[ip->ip_p]].pr_input) (m); 

gots next; 


m_freem(m); 
goto next; 


Take incoming datagram fragment and try to 
reassemble it into whole datagram. If a chain for 
reassembly of this datagram already exists, then it 
is given as fp; otherwise have to make a chain. 


struct ip * 
ip_reass({ip, fp) 


register struct ipasfrag *ip; 
register struct ipgq *fp; 


register struct mbuf *m = dtom(ip); 
register struct ipasfrag *q: 

struct mbuf *t; 

int hlen = ip->ip hl << 2; 

int i, next; 


{* 
* Presence of header sizes in mbufs 
* would confuse code below. 
xf 

m->m_off += hlen; 

m->m_len -= hlen; 


{* 

* If first fragment to arrive, create a reassembly queue. 

x 

/ ; 

if (fp = 0) { 
/* billn -- meld with old 
if ((t = m_get(M WAIT, MT FTABLE)) == NULL} 
xf 
if ((t = m_get(M_WAIT)) == NULL) 

goto dropfrag; 

fp = mtod{t, struct ipgq *); 
insque({fp, &ipq); 
fp->ipq ttl = IPFRAGTTL; 
fp->ipg_p = ip->ip_p; 
fp->ipq_id = ip->ip_id; 
fp->ipq_ next = fp->ipq_prev = (struct ipasfrag *) fp; 
fp->ipq_sre = ({struct ip *)ip)->ip_sre; 
fp->ipq_dst = ({struct ip *)ip)->ip_dst; 
q = (struct ipasfrag *)fp; 
goto insert; 


/* 
* Find a segment which begins after this one does. 
xf 
for (q = fp->ipq_next; q != (struct ipasfrag *)fp: q = q->ipf_next) 
if (q->ip_off > ip->ip_off) 
break; 


jt 
* If there is a preceding segment, it may provide some of 
* our data already. If so, drop the data from the incoming 
* segment. If it provides all of our data, drop us. 
*/ 
if (q->ipf_prev != (struct ipasfrag *)fp) [ 
i = q->ipf_prev->ip_off + q->ipf_prev->ip_len - ip->ip_off; 
if {i > 4) { 
if (i >= ip->ip_len) 
goto dropfrag; 
m_adj(dtom({ip), i); 
ip->ip_off t= i: 
ip->ip_len -= i; | 
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insert: 


} 


/* 
* While we overlap succeeding segments trim them or, 
* if they are completely covered, dequeue them. 


*/ 


while (q != (struct ipasfrag *)fp && ip->ip off + ip->ip_len > q->ip_off) { 


i = (ip->ip_off + ip->ip_len) - q->ip_off: 
if (i < q->ip_len) { 

q->ip_len -= i; 

q->ip off t= i; 

m_adj(dtom(q), i); 

break; 
i 
q = q->ipf_next; 
m_freem(dtom(q->ipf_prev)); 
ip _deq(q->ipf_prev); 


fe 
* Stick new segment in its place; 
* check for complete reassembly. 
*f 

ip_enq(ip, q->ipf_prev);: 

next = 0; 


for (q = fp->ipg_next;: q != (struct ipasfrag *)fp: q = q->ipf_next) { 


if (q->ip_off != next) 
return (0); 
next += q=->ip len; 
i 
if (q->ipf_prev->ipf_mff) 
return (0); 


i* 
®* Reassembly is complete; concatenate fragments. 
xf 

q = fp->ipq_next; 

m = dtomiq); 

t = m-om_next; 

m->m next = 0; 

micat(m, t}; 

q = g->ipf_next; 

while (q '= (struct ipasfrag *)fp) { 

t = dtom(q)> 
q = q->ipf_next; 
m_catim, t); 


/* 
* Create header for new ip packet by 
* modifying header of first packet; 
* dequeue and discard fragment reassembly header. 
* Make header visible. 
*/ 
ip = fp->ipq_next; 
ip->ip_len = next; 
((struct ip *)ip)->ip sre = fp->ipq_sre; 
((struct ip *)ip)->ip dst = fp->ipq dst; 
remque (fp); 
(void) m_free(dtom(fp)); 
m = dtom(ip); 
m->m_len t= sizeof (struct ipasfrag); 
m->m_off -= sizeof (struct ipasfrag); 
return ((struct ip *)ip); 


dropfrag: 


} 
/* 


m_freem(m); 
return (0); 


* Free a fragment reassembly header and all 
* associated datagrams. 


ny 
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ip_freef (fp) 
struct ipq *fp; 
{ 
register struct ipasfrag *q, *p; 


for iq = fp->ipg next; q [= (struct ipasfrag *) 


P = q->ipf_next; 
ip_deq(q): 
m_freem(dtom(q)); 
} 
remque (fp); 
(void) m_free(dtom(fp)); 
} 


/* 
* Put an ip fragment on a reassembly chain. 
* Like insque, but pointers in middle of structure. 
xf 
ip_enq(p, prev) 
register struct ipasfrag *p, *prev; 
{ 


p->ipf_prev = prev; 
p->ipf_next = prev->ipf_next; 
prev->ipf_next~>ipf_prev = p; 
prev->ipf_next = p; 

} 


7* 
* To ip eng as remque is to insque. 
xf 

ip_deqip) 

register struct ipasfrag *p; 


{ 


p->ipf_prev->ipf next = p->ipf_next; 
p->ipf_next->ipf_prev = p->ipf_prev; 
i 


/* 
* IP timer processing; 
* if a timer expires on a reassembly 
* queue, discard it. 
xf 
ip_slowtimo({)} 
{ 
register struct ipq *fp; 
int s = splnet():; 


fp = ipg.next; 
if (fp = 0) { 
sSplx(s); 
return; 
} 
while (fp != &ipq) { 
--fp->ipq_ttl; 
fp = fp->next; 
if (fp->prev->ipq_ttl == 0) 
ip_freef(fp->prev); 
} 


splx(s}; 
h 
/* 
* Drain off all datagram fragments. 
xf 


ip _drain() 
{ 


while (ipgq.next != éipq) 
ip freef(ipq.next); 
} 


jx 
* Do option processing on a datagram, 
* possibly discarding it if bad options 


Frye 
<p; 


ot 
’ 


n 
Se 


} 
’ 


{ 


% 
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* are encountered. 


ip_dooptions (ip) 


{ 


struct ip *ip; 


register u_char *cp; 

int opt, optlen, cnt, code, type: 
struct in_addr *sin; 

register struct ip timestamp *ipt; 
register struct ifnet *ifp; 

struct in_addr t; 


ep = (u_char *) (ip + 1); 
ent = {ip->ip hl << 2) - sizeof (struct ip); 
for (7 cnt > 6; cnt -= optlen, cp t= optlen) { 
opt = cp[0]; 
if (opt == IPOPT_EOL) 
break; 
if (opt — IPOPT NOP) 
optlen = 1; 
else 
optlen = cp[1]; 
switch {opt) { 


default: 
break; 
/* 
* Source routing with record. 
* Find interface with current destination address. 
* If none on this machine then drop if strictly routed, 
* or do nothing if loosely routed. 
* Record interface address and bring up next address 
* component. If strictly routed make sure next 
* 


address on directly accessible net. 
xf 

case IPOPT LSRR: 

case IPOPT SSRR: 


if (ep[2] < 4 {| cp[2] > optlen - (sizeof flong) - 1)) 


break; 
sin = (struct in_addr *) (ep + ep[2]}); 
ipaddr.sin addr = *sin; 


ifp = if_ifwithaddr( (struct sockaddr *) &ipaddr); 
type = ICMP_UNREACH, code = ICMP UNREACH SRCFAIL; 


if (ifp = 6) { 
if (opt = IPOPT_SSRR) 
goto bad; 
break; 
} 
t = ip->ip_dst; ip->ip dst = *sin; *sin = t; 
cp[2] t= 4; 
if (cp[2] > optlen - (sizeof (long) - 1)) 
break; 
ip->ip dst = sin[1]; 
if (opt == IPOPT_SSRR && 


if_ifonnetof( (int) (in netof(ip->ip_dst))) == 0) 


goto bad; 
break; 


case IPOPT TS: 
code = cp - (u_char *)ip; 
type = ICMP_PARAMPROB; 
ipt = (struct ip timestamp *)cp; 
if (ipt->ipt_len < 5) 
goto bad; 


if (ipt->ipt_ptr > ipt->ipt_len - sizeof (long)) { 


if (++ipt->ipt_oflw == 0) 
goto bad; 
break; 
} 
sin = (struct in_addr *) (eptep[2]); 
switch (ipt->ipt_flg) { 


case IPOPT_TS_TSONLY: 
break; 
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case IPOPT TS _TSANDADDR: 


if (ipt->ipt_ptr + 8 > ipt->ipt_len) 


goto bad; 
if (ifinet = 06) 
gato bad; 


*sintt = ((struct sockaddr_in *)sifinet->if_addr)->sin_ addr; 


break; 


case IPOPT TS_PRESPEC: 


f* 222 */ 


ipaddr.sin_addr = *sin; 


if (if_ifwithaddr((struct sockaddr *)éipaddr) = 0) 


continue; 


if (ipt->ipt_ptr + 8 > ipt->ipt_len) 


goto bad: 
ipt->ipt_ptr t= 4; 
break; 


default: 
goto bad; 
} 
*(n_ time *)sin = iptime(); 
ipt->ipt_ptr += 4; 
} 
} 
return (0); 
bad: 
iemp_error(ip, type, code); 
return {1); 


f* 
* Strip out IP options, at higher 
* level protocol in the kernel. 
Second argument is buffer to which options 
* will be moved, and return value is their length. 
af 
ip_stripoptions(ip, mopt) 
struct ip *ip; 
struct mbuf *mopt; 


* 


register int i; 
register struct mbuf *m; 
int olen; 


olen = (ip->ip_hl<<2) - sizeof (struct ip); 
m = dtom(ip); 
iptt+ : 
if (mopt) { 
mopt->m_len = olen; 
mopt->m_off = MMINOFF; 
beopy((caddr_t)ip, mtod{m, caddr_t), 
} 


i = m->m_len - (sizeof (struct ip) + olen); 
beopy((caddr_t)iptolen, (caddr_t)ip, (int)i); 
m->m_len -= olen; 

} 


u_char inetctlerrmap[] = { 
ECONNABORTED, ECONNABORTED, 0, 


0, G, 

EHOSTDOWN, EHOSTUNREACH, ENETUNREACH, 
ECONNREFUSED, ECONNREFUSED, EMSGSIZE, 

0, 0, 0, 


he 


#ifdef notdef 

ip_ctlinput (cmd, arg) 
int cmd; 
caddr_t arg: 


struct in_addr *in; 
int tep_abort(), udp_abort(); 
extern struct inpcb tcb, udb; 


if (cmd < 0 || cmd > PRC_NCMDS) 
return; 


(int)olen); 


0, 


EHOSTUNREACH, 
0, 
0 
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/* THIS 


} 
tendif 
int 


int 
/* 
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if (inetctlerrmap[cmd] == 6) 
return; /* XXK */ 
if (cmd == PRC_IFDOWN) 
in = &((struct sockaddr _in *)arg)->sin_addr; 
else if (cmd = PRC HOSTDEAD || cmd == PRC_HOSTUNREACH) 
in = {struct in addr *}arg; 
else 
in = &((struct icmp *)arg)->icmp_ip.ip dst; 
IS VERY QUESTIONABLE, SHOULD HIT ALL PROTOCOLS */ 
in_pebnotify(stcb, in, (int)inetctlerrmap[cmd], tcp_abort); 
in_pebnotify(audb, in, (int)inetctlerrmap[cmd], udp abort); 


ipprintfs = 0; 
ipforwarding = 1; 


* Forward a packet. If some error occurs return the sender 
* and icmp packet. Note we can’t always generate a meaningful 


* icmp 


message because icmp doesn’t have a large enough repetoire 


* of codes and types. 


*/ 


ip forward (ip) 


{ 


register struct ip *ip; 


register int error, type, code; 
struct mbuf *mopt, *mcopy; 


if (ipprintfs) 
printf ("forward: src %x dst $x ttl $x\n", ip->ip_ src, 
ip->ip_ dst, ip->ip ttl); 
if (ipforwarding = 0) { 
/* can’t tell difference between net and host */ 
type = ICMP_UNREACH, code = ICMP _UNREACH NET; 
gote sendicmp; 
} 
if (ip->ip ttl < IPTTLDEC) { 
type = ICMP _TIMXCEED, code = ICMP TIMXCEED INTRANS; 
goto sendicmp; 
} 
ip->ip ttl -= IPTTLDEC; 
/* billn -- meld with old 
mopt = m_get(M DONTWAIT, MT_DATA); 
*/ 
mopt = m_get(M_DONTWAIT) ; 
1f (mopt = NULL) { 
m_freem(dtom({ip)); 
return; 


} 


{* 
* Save at most 64 bytes of the packet in case 
* we need to generate an ICMP message to the src. 
*/ 
/* billn -- imin -> MIN */ 
mcopy = m_copy(dtom(ip), 0, MIN(ip->ip_len, 64)); 
ip_stripoptions({ip, mopt); 


/* last 0 here means no directed broadcast */ 
if ((error = ip output (dtom(ip), mopt, (struct route *)0, 0)) == 0) 
if (mcopy) 
m_freem(mcopy) ; 
return; 
} 
ip = mtod(mcopy, struct ip *); 
type = ICMP _UNREACH, code = 0; /* need ‘‘undefined’’ */ 
switch (error) { 


case ENE TUNREACH: 

case ENETDOWN: 
code = ICMP _UNREACH NET; 
break; 


case EMSGSIZE: 


code = ICMP UNREACH NEEDFRAG; 
break; 


/* billn - meld with old 

case EPERM: 
code = ICMP UNREACH PORT; 
break; 


af 

case ENOBUFS: 
type = ICMP_SOURCEQUENCH; 
break; 


case EHOSTDOWN: 
case EHOSTUNREACH: 
code = ICMP_UNREACH HOST; 
break; 
} 
sendicmp: 
iemp_error(ip, type, code); 
} 
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j* ip output.c 1.46 83/02/10 */ 
f#include "sys/param.h" 


#include 
#include 
#include 
finclude 
#include 
#include 
#include 
#include 
#include 

include 
#include 
#include 
#include 
#include 


#include 
#include 


#include 
int 


ip_outpu 


gotif: 
#ifndet 


“sys/config.h" 
"“sys/errno.h"™ 
"“sys/types.h" 
“sys/systm.h™ 
"net/misc.h" 
“net /mbuf .h" 
“net /protosw.h" 
“net /socket.h® 


"net /socketvar.h" 
*arrno. he 


“net/in.h"™ 
“net/in_systm.h" 
“net/ip.h" 
“net/ip icmp.h" 


“net/if.h" 
"net/route.h" 


“net/ip_ var.h" 
ipnorouteprint = 0; 


t{m, opt, ro, allowbroadcast) 
struct mbuf *m; 

struct mbuf *opt; 

struct route *ro; 

int allowbroadcast; 


register struct ip *ip = mtod(m, struct ip *); 
register struct ifnet *ifp; 

int len, hlen = sizeof (struct ip), off, error = 0; 
struct route iproute; 

struct sockaddr *dst; 


if (opt) /*® Xxx */ 
(void) m_free{opt); /* XxX */ 
/* 
* Fill in IP header. 
*f 


ip->ip_v = IPVERSION; 
ip->ip_hl = hlen >> 2; 
ip->ip_off &= IP_DF; 
ip->ip_id = htons(ip idt+); 


/* 
* Route packet. 
xf 
if (ro == 0) { 
ro = éiproute; 
bzero({(caddr_t)ro, sizeof (*ro)); 
} 
dst = &ro->ro_dst; 
if (ro->ro_rt == 0) { 
ro->ro_dst.sa_family = AF_INET; 
((struct sockaddr_in *)&ro->ro_dst)->sin_addr = ip->ip_dst; 
{* 
* If routing to interface only, short circuit routing lookup. 
+f 
if (ro == g&routetoif) { 
/* check ifp is AF_INET222 */ 
ifp = if_ifonnetof((int) (in_netof(ip->ip_dst))); 
if (ifp = 0) 
goto unreachable; 
goto gotif; 
} 
rtalloc(ro); 
} 
if (re->ro_rt == 0 {[ (ifp = ro->ro_rt->rt_ifp) == 0) 
goto unreachable; 
ro->ro_rt->rt_uset+; 
if (ro->ro_rt->rt_flags & RTF_GATEWAY) 
dst = &ro->ro_rt->rt_gateway; 


notdef 


#endif 


{*® 
* If source address not specified yet, use address 
* of outgoing interface. 
xf 
if (in_lnaof(ip->ip_src) == INADDR_ANY) 
ip->ip_src.s_addr = 
({struct sockaddr_in *)&lfp->if_addr)->sin_addr.s addr; 


* Look for broadcast address and 
* and verify user is allowed to send 
* such a packet. 


x} 
if (in_lnaof(((struct sockaddr_in *)dst)->sin_addr) == INADDR_ANY) { 
if ((ifp->if_flags & IFF_BROADCAST) = 0) { 
error = EADDRNOTAVAIL; 
goto bad; 
} 
if (!allowbroadcast) { 
error = EACCES; 
goto bad; 
} 
/* don’t allow broadcast messages to be fragmented */ 
if (ip->ip_len > ifp->if_mtu) { 
error = EMSGSI2E; 
goto bad; 
} 
} 
[* 


* If small enough for interface, can just send directly. 
x} 
if (ip->ip_len <= ifp->if_mtu) { 
ip->ip_len = htons((u_short)ip->ip_len}; 
ip->ip_off = htons((u_short)ip->ip off); 
ip->ip_sum = 0; 
ip->ip_sum = in cksum(m, hlen); 
error = (*ifp->if_output) (ifp, m, dst); 
goto done; 
} 


/* 
* Too large for interface; fragment if possible. 
* Must be able to put at least 8 bytes per fragment. 
*/ 
if (ip->ip_off & IP_DF) { 
error = EMSGSIZE; 
goto bad; 
} 
len = (ifp->if_mtu - hlen) &~ 7; 
if (len < 8) { 
error = EMSGSIZE; 
goto bad; 


* Discard IP header from logical mbuf for m_copy’s sake. 
* Loop through length of segment, make a copy of each 
* part and output. 
*/ 
m->m_len -= sizeof (struct ip); 
m->m_off t= sizeof (struct ip); 
for (off = 0; off < ip->ip_len~-hlen; off t= len) { 
/* billn - meld with old 
struct mbuf *mh = m_get(M DONTWAIT, MT HEADER) ; 
*/ 
struct mbuf *mh = m_get(M DONTWAIT); 
struct ip *mhip; 


if (mh == 0) { 
error = ENOBUFS; 
goto bad; 
} 
mh->m_off = MMAXOFF - hlen; 
mhip = mtod(mh, struct ip *}; 
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*nhip = *ip; 
if (hlen > sizeof (struct ip)) { 
int olen = ip optcopy(ip, mhip, off); 
mh->m_len = sizeof (struct ip) + olen; 
} else 
wh->m_len = sizeof {struct ip}; 
mhip->ip off = off >> 3; 
if (off + len >= ip->ip_len-hlen) 
len = mhip->ip_len = ip->ip_len - hlen - off; 
else { 
mhip->ip_len = len; 
mhip->lp off |= IP 
} 
mhip->ip len t= sizeof (struct ip); 
mhip->ip_len = htons({u_short)mhip->ip len); 
mh->m_next = m_copy(m, off, len); 
if (mh->m_next = 0) { 
(void) m_free({mh); 
error = ENOBUFS; /* 222 */ 
goto bad; 
} 
mhip->ip_ off = htons({(u_short)mhip->ip_off); 
mhip->ip sum = 0; 
mhip->ip sum = in cksum(mh, hlen); 
if (error = (*ifp->if_output) (ifp, mh, dst)) 
break; 
} 
m_freem(m); 
goto done; 


unreachable: 
if (ipnorouteprint) 
printf("no route to $x (from %x, len %d)\n", 
ip->ip_dst.s addr, ip->ip_src.s_addr, ip->ip_len); 
error = ENETUNREACH; 


bad: 
m_freem(m); 

done: 
if (ro = éiproute && ro->ro_rt) 

RIFREE (ro->ro_rt); 

return (error); 

} 

/* 


* Copy options from ip to jp. 
* If off is 0 all options are copied 
* otherwise copy selectively. 
«f 
ip_optcepy(ip, jp, off) 
struct ip *ip, *ip; 
int off; 


register u_char *cp, *dp; 
int opt, optlen, cnt; 


cp = (u_char *) {ip + 1); 
dp = (u_char *)(jp + 1); 
ent = (ip->ip_hl << 2) - sizeof (struct ip); 
for (; cnt > 0; cnt -= optlen, cp += optlen) { 
opt = cp[0]; 
if (opt == IPOPT_ EOL) 


break; 
if (opt == IPOPT_NOP) 
optlen = 1; 
else 
optien = cp{1]: 
if (optlen > cnt) 7*® XXX */ 


optlen = cnt; /* XXX */ 
if (off == 0 || IPOPT_COPIED(opt)) { 
beopy ((caddr_t)cp, (caddr_t)dp, (int)optlen); 
dp += optlen; 
} 
} 
for foptlen = dp - (u_char *){jp+l); optlen & 0x3; optlen++) 
*dp++ = IPOPT EOL; 
return (optien); 
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/* @(#)ipe.c 1.1 */ 
#include “sys/errno.h" 
#include “sys/types.h" 
#include “sys/param.h" 
#include “sys/seg.h" 
finclude "sys/signal.h" 
#include “sys/proc.h" 
#include “sys/dir.h" 
#ifdef u3b 
#include "sys/istk.h" 
#endif 
finclude “sys/user.h" 
#include “sys/ipc.h" 
{* 
+ Common IPC routines. 
*f 
{* 
x Check message, semaphore, or shared memory access permissions. 
KK 
ae This routine verifies the requested access permission for the current 
et process. Super-user is always given permission. Otherwise, the 
ae appropriate bits are checked corresponding to owner, group, or 
ae everyone, Zero is returned on success. On failure, u.u_error is 
ad set to EACCES and one is returned. 
+* The arguments must be set up as follows: 
x p - Pointer to permission structure to verify 
ae mode - Desired access permissions 
*/ 
ipeaccess(p, mode) 
register struct ipc_perm *p; 
register ushort mode; 
{ 
if(a.u_uid = 9) 
return (Q)>; 
if(u.u_uid != p->uid && u.u_uid != p->cuid) { 
mode >>= 3; 
if(u.u_gid [= p->gid && u.u_gid != p->cgid) 
mode >>= 3; 
} 
if(mode & p->mode) 
return{0); 
u.u_error = BACCES; 
return(1); 
} 
ie 
7 Get message, semaphore, or shared memory structure. 
ak 
ae This routine searches for a matching key based on the given flags 
ax and returns a pointer to the appropriate entry. A structure is 
aa allocated if the key doesn’t exist and the flags call for it. 
am The arguments must be set up as follows: 
itis key - Key to be used 
bali flag - Creation flags and access modes 
xe base - Base address of appropriate facility structure array 
a ent - # of entries in facility structure array 
m size - sizeof(facility structure) 
“™ status - Pointer to status word: set on successful completion 
ae only: 0 => existing entry found 
ne 1 => new entry created 
oe Ipeget returns NULL with u.u_error set to an appropriate value if 
ak it fails, or a pointer to the initialized entry if it succeeds. 
*/ 
struct ipc_perm * 
ipeget ‘key, flag, base, ent, size, status) 
register struct ipc perm *base; 
int cnt, 
flag, 
size, 
*status; 


key t 


key: 


/* ptr to available entry */ 
/* leop control */ 


register struct ipc_ perm *a; 
register int i; 


if(key == IPC_PRIVATE) { 
for{i = Osit+t+ < cnt; 
base = {struct ipc perm *)({(char *)base) + size)) [ 
if (base->mode & IPC_ALLOC) 
continue; 
goto init; 
} 
u.u_error = ENOSPC; 
return{NULL) ; 
} else { 
for(i = 6, a = NULL;it++ < cnt; 
base = (struct ipc perm *)({(char *)base) + size)) { 
if (base->mode & IPC_ALLOC) { . 
if (base->key == key) { 
if((flag & (IPC_CREAT | IPC_EXCL)) == 
(IPC_CREAT |] IPC_EXCL)) { 
u.u_error = EEXIST; 
return (NULL) ; 
} 
if((flag « 0777) & ~base->mode) { 
u.u_error = EACCES; 
return (NULL) ; 
} 
*status = Q; 
return (base); 
} 
continue; 
} 
if(a =< NULL) 
a = base; 
} 
if(! (flag & IPC_CREAT)) { 
u.u_error = ENOENT; 
return (NULL) ; 
} 
if(a = NULL) { 
u.u_error = ENOSPC; 
return (NULL); 
} 
base = a; 


*status = 1; 

base->mode = IPC_ALLOC | (flag & 0777); 
base->key = key; 

base->cuid = base->uid = u.u_uid; 
base->cgid = base->gid = u.u_gid; 
return (base); 


& 
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rupt handler for level 2 interrupts. 
keyboard, mouse, real time clock, on/off switch 


“sys/param.h" 
“sys/types.h™ 
“sys/mmu.h™ 
“sys/reg.h" 
"“sys/local.h" 
“sys/cops.h" 
"sys/keyboard.h" 
“sys/mouse.h" 
“sys/ms.h* 
"sys/12.h" 
“sys/kb.h" 


truct rtime rtime; 


char *kb keytab = ToLA; 


char kb_altkp; /* are we in alternate keypad mode? (set in vt100.c) */ 


char ppo 


rtplug; 


char ms_plg, ms_btn; 
short ms row, ms_col; 


kbintr () 
{ 


#ifdef $s 


#endif s 


/* click 


register char i; 

register struct device _e *p = COPSADDR; 
register char a, ud; 

register int tmp; 

extern time _t lbolt; 


UNIX 
extern char kb getchr; /* flag for polling keyboard */ 
UNIX 
a = p->e ifr; /* Read and save reason for interrupt */ 
if (a & FCAl) { /* keyboard input */ 
i = p->e_ira; /* get keyboard/mouse input */ 


if (a & FTIMER1) 
a = COPSADDR->e tlcl; /* prime timer */ 
} else { /* no character input */ 
a = COPSADDR->e_tlcl; /* prime timer */ 
if (--kb_reptrap == 0) 
kbrepeat (); /* possible char repeat */ 
return; 


} 


switch (kb state) { 


case NORMALWAIT: /* IDLE LOOP */ 


ud = i & 0x80; /* whether up or down keycode */ 

12_dtrap = lbolt + 12 dtime; /* reset dim delay */ 

if (12_dimmed) /* restore screen intensity */ 
l2undim(); 

a = kb keytab[i & Ox?7F];/* convert to ascii */ 

if (ud) { /* “key went down" bit */ 


(): /* key click */ 

if (ARROW(i,a)) { /* check arrow keys */ 
kb _chrbuf = Esc; /* send 3-char sequence */ 
cointr (0); 
kb chrbuf = '['; 
cointr (0); 
kb chrbuf = a; 
cointr (0); 
goto out; 

} 

if (kb altkp) { /* send special sequence for keypad chars */ 
if (a = altkpad{i & Ox7F]) {/* is it in the keypad? */ 


kb _chrbuf = Esc; /* send 3-char sequence */ 
cointr (0); 
kb chrbuf = ‘O°; 
cointr (0); 
kb chrbuf = a; 
cointrio); 
goto out; 
} 
a = kb keytab[i & 0x7F)];/* reset to ascii */ 
} 
if (a >= 0) { /* ascii 2 */ 
kh keycount++; 
if (kb ctrl) a é= Ox1F; 
else if (kb_keycount = 1) { 
kb_reptrap = kb repwait; 
kb lastc = a; 
} else kb reptrap = 0; 
kb chrbuf = a; 
cointr (0); 
goto out; 
} 
} else { /* key went up */ 
kb reptrap = 0; 
if (a >= 8) { 
if (kb_keycount-- < 0) { 
kb keycount = 0; 
} 
goto out; 
} 
} 
Switch (a & OxF) { 
case KB CTRL: kb ctrl = ud; kb reptrap = 0; msintr(M_CTL); 


goto out; 
case KB SHFT: kb shft = ud; kbsetcvtab(); msintr(M_SFT); 

goto out; 
case KB LOCK: kb lock = ud; kbsetcvtab(); goto out; 
case KB OFF: printf("[SOFT OFF %x]\n",i); goto out; 
case KB MSP: ms plg = ud; msintr(M PLUG); goto out; 
Case KB _MSB: ms btn = ud; msintr(M_BUT) ; goto out; 
case KB PPORT: pportplug = ud; goto out; 
case KB D2B: vintfi{"[disklbutton %x}]\n",i); goto out; 
case KB D2P: printf("[diskl %x]\n",i); goto out; 
case KB D1B: printf ("[disk2button %x]\n",i):; goto out; 
case KB _D1P: printfi(“(disk2 %x]\n",i}; goto out; 
case KB STATE: if (ud = 0) { 

kb state = MOUSERD; 
} else 
kb state = RESETCODE; 
goto out; 
default: printf (“invalid key[0x%x]",i); 
} 
goto out; 
case MOUSERD: /* PICKUP Y axis change in mouse pos */ 
kb state = YMOUSE; 
ms_col = (short)i; 
goto out; 
case YMOUSE: /* PICKUP ¥ axis change in mouse pos */ 


kb_state = NORMALWAIT; 

ms row = (short)i; 

msintr(M MOVE); 

goto out; 

case RESETCODE: /* special condition */ 

switch (i & OxFF) { 

case KB_KBCOPS: /* keyboard cops failure detected */ 
printf ("KEYBOARD COPS FAILURE\n") ; 
break; 

case KB Trocops: /* IO board cops failure detected */ 
printf£("IO BOARD COPS FAILURE\n") ; 
break; 

case KB UNPLUG: /* keyboard unplugged */ 
kb chrbuf = ‘s'é0xlF; /* cntl s */ 
cointr (0); 
break; 

case KB CLOCKT: /* clock timer interrupt */ 
printf(“Real Time Clock interrupt\n"); 
break; 
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case KB SFTOFF: /* soft power switch */ 
kb state = SHUTDOWN; 
printf ("Shutting down...\n"); 


update({); 


for (tmp = G; tmp < 500000; tmpit); 


12 crate = 2; 


12 desired = TOTALDIM; /* completely blacken screen */ 


i2ramp{@); 

l2ramp(Q); 

SPL? ()}; 

12copsemd (SHUTOFF) ; 

rom _mon{); 

/*NOTREACHED® / 
defanlt: switch {i & OxF0) 

case KB RESERV: 


/* extreme priority */ 


/* return to the ROM monitor */ 


{ 


printf("(Reserved keycode 0x%x]\n",i); 


break; 
case KB _RDCLK: 


rtime.rt_year = (i & OxF) + 10; 


kb state = 
goto out; 
default: 


CLKREAD; 


kb idcode = i; 
kb chrbuf = ‘q’é0xlF; /* cntl Q */ 


cointr (0); 


printf ("Keyboard type Ox$x\n",i); 


} 
} 
kb state = NORMALWAIT; 
goto out; 
case CLKREAD: 


rtime.rt_day = (((180xF0)>>4)*10 + (i&0xF))*106; 


kb_statett; 
goto out; 
case CLKREADt+I1: 


rtime.rt_day t= (i80xF0) >> 4; 
rtime.rt_hour = (i & OxF) * 10; 


kb statett; 
goto out; 
case CLKREAD+2: 
time.rt_hour t= {i & OxFO} 


>> 4; 


rtime.rt_min = (i & OxOF) * 10; 


kb _statett; 
goto out; 
case CLKREAD+t3: 
rtime.rt_min t= (1 & OxFO) 


>> 4; 


rtime.rt_sec = (i & Ox0F) * 10; 


kb _ statett; 
goto out; 

case CLKREAD+4: 
rtime.rt_sec += (i & OxFQ) 
rtime.rt_tenth = i & OxOF; 
kb state = NORMALWAIT; 


rtcsettod(); 


goto out; 
case SHUTDOWN: 
goto out; 
} 
out: ; 
#ifdef SUNIX 


if (ud) 
kb_getchr = 0; 
#endif SUNIX 
} 


kbrepeat {) 


{ 
kb_reptrap = kb repdlay; 


if (kb_keycount == 1) { 
kb_chrbuf = kb lastc; 
/* click(); /* key click */ 
cointr (0); 
} else 
kb _reptrap = 0; /* 


>> 4; 


/* reset repeat timeout */ 


reset repeat timeout */ 


kbsetcyvtab({) 


{ 


kb_keytab = ccvtab[ (kb shft2?2:0)+(kb_lock?1:0)]; 
kb reptrap = 0; 
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Interrupt handler for level 1 interrupts. 

parallel port 0, sony, and video circuit controller 

Since the Parallel Port hard disk interrupt comes in at this level 
as well as the Sony and vertical retrace (clock) we have included 
this so we may only call the actual interrupt routine when really 
necessary. 
4 


#include “sys/param.h" 
finclude “sys/config.h" 
#include “sys/types.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/proc.h" 
#include “sys/errno.h" 
#include “sys/file.h® 
#include “sys/tty.h" 
#tinclude “sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/reg.h" 
#include “setjmp.h" 
#include “sys/mnu.h" 
#include <sys/pport.h> 
#include <sys/cops.h> 
#include <sys/mouse.h> 


unsigned char msvrent; 
extern struct msparms mparm; 
extern struct proc *msproc; 
extern char msblkd; 

extern char msvrmsk; 


1lintr (ap) 
struct args *ap; 


{ 


unsigned char a; 
register struct device d *devp = PPADDR; 
register struct device_e *f = COPSADDR; 


a = devp->d_ifr; /* read intr flag register */ 
if (a & (FCAl | FTIMER1)) { 
ap->a_dev = 0; /* set to port number instead of clock value */ 
ppintr (ap); /* built in parallel port */ 
} else { 
if ((f->e_irb & FDIR) != 9) 
snintr(); /* sony interrupt */ 
else { /* verticle retrace interrupt */ 


i£ ((mparm.mp flags & MF_VRT) != 0) { 
VROFF = 1; 
if (msvrentt+t+ >= msvrmsk) { 
msvrent = 0; 
if (msblkd) { 
msblkd = Q; 


wakeup((caddr_t) émsblkd); 


} 
psignal (msproc, SIGMOUS) ; 
} 


VRON = 1; 
} else { 
do { 
VROFF = 1; 
VRON = 1; 


} while ((STATUS & S_VR) == 0); 


} 
clock (ap); 
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/* #define HOWFAR */ 


<* 

* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

x with Unisoft Corporation and is not to be reproduced 

* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* Level 2 special functions handler 

* Used to drive keyboard, speaker, mouse, real time clock, screen contrast, 
* and soft on/off circuitry. 

* All processing is done through the Keyboard SY6522 (@addr DCOO) with the 
* 


exception of the screen contrast which is sent through the Hard disk 6522. 


#include “sys/param.h" 
#include “sys/config.h" 
#include "sys/types.h" 
#include "sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/file.h" 
#include “sys/tty.h" 
#include “sys/termio.h" 
#include “sys/conf.h" 
#include "sys/sysinfo.h" 
#include “sys/var.h™ 
#include “sys/reg.n® 
finclude “setjmp.n" 
f#include “sys/mmu.h" 
#include “sys/cops.h" 
#include “sys/local.h" 
#include "sys/12.h" 
#include “sys/kb.h" 
#include “sys/sony.h" 
#define DIMSCREEN 

/* The contrast control latch is hanging off the Parallel Port VIA but 

is only changed in response to a level2 timer interrupt. Syncronization 
with the hard disk is necessary since they both use the parallel port data 
bus. This is done by having the disk driver maintain a variable called 
‘ppinuse’. When this variable is zero we can ramp the console contrast. 
Otherwise we set ppcontchg and the disk driver will call l2ramp as soon 

* as it’s convenient. 
*/ 
#include <sys/pport.h> 
extern ppinuse; 


e + ee Oe OH 


/* flag preventing us from setting contrast */ 


/* 
* Setup Keyboard 6522 VIA appropriately. This is mostly magic dependant on 
* how the chip is connected to its environment in hardware. This procedure 
* is only called once to initialize the interface. 
*/ 
12init () 
{ 
register struct device_e *p = COPSADDR; 
register char romid; 
extern int 12dim(); 


12_dtime = 0x4650; 

12_crate = 1; 

12_dtrap = 12 dtime; 
12_dimcont = (0x32 << 2); 
12_desired = (ONCONT << 2); 
12_defcont = 12 desired & 0aFc; 


12_contrast = (ONCONT << 2); /* power on contrast */ 
timeout (ladim, (caddr_t)1, 1); 
12_bvol = 4; 


12_bpitch = 1000; 
12_btime = 6; 

kb repdlay = 0x20; 
kb_repwait = 0x30; 


p->e_ddra = 0; 
p->e_ddrb = 0x2E; 


p->e_irb = 12 bvol << 1; 
p->e_pcr = 3xA9; 


/* 
/* 
7/* 
/* 


ix 
é? 


bytewide bus connecting to I/O cops*/ 


PP parity and speaker 
PP reset, CRDY, FDIR, 
init moderate speaker 
Pulse speaker output, 


are outputs */ 
& KBIN: input*/ 
volumn */ 
handshake */ 


/* COPS line, and enable leading edge*/ 
p->e_acr = 0x41; /* Make Timerl continous (i.e. self- */ 

/* reset), enable latching of COPS bus*/ 
p->e_ier = Ox7F; /* disable all interrupts */ 


romid = SNIOR->rom_ id & ROMMASK; 
if ((romid = (ROMTW|ROMSLOW)) || ({romid&ROMTW)==0)) { /* slow timer */ 
p->e_ticl = OxCA; 
p->e_tlich = 0x27; 
p->e_till = OxCA; 
p->e_tilh = 6x27; 
} else { /* fast timer (includes undefined romid==E0) */ 
p->e_ticl = Ox7B; 
p->e_tich = 0x63; 
p->e_t1ll = 0x7B; 
pr>e_tllh = 0x63; 
} 


/* Enable timerl and COPS bus intr */ 
/* clear pending interrupt flags */ 


p->e_ier = 0xC2; 
p->e_ifr = Ox7F; 


1l2ramp (0); /* bring to user selected contrast */ 
} 
/* This procedure is used to send commands to the Keyboard COPS. 
x It is VERY timing-dependent. In particular, nothing can be changed 
x in the part which sets the data direction to out, since this must 
* happen WHILE CRDY drops to the low state. Interrupts are enabled while 
* waiting for this because the line can stay high for as long as 2 ms, 
* although it’s typically about 800 microseconds while the mouse is in 
7 use. It only stays in the low state for about 4 microseconds before 
* returning to "not ready". 
xf 
12copsemd ic) 
register char c; 7* a7 */ 
{ 
register struct device_e *p = COPSADDR; /* a5 */ 
register char *ddra = &p->e_ddra; {* a4 *f 
register unsigned short dir = OxFFFF; /* d6 data direction (out) */ 
register short crdy = 6; /* a5 CRDY bit for btst */ 
register char i; /* a4 */ 
int pl; 
try: pl = spl7();: 
p->e_aira = c; /* load cmd into IORA (no handshake) */ 
asm(" bt st d5,a58(1)"); /* wait ‘til not ready */ 
asm("  — beq «L1"); /* if already low we’re too late */ 
#define chkrdy() asm{" btst d5,a5@¢(1)")s \ 
asm(" beg -L2") 
chkrdy (); /* as soon as it’s ready (low), go to send */ 
chkrdy (); 
chkrdy {); 
chkrdy (); 
chkrdy (); 
chkrdy (); 
chkrdy (); 
chkrdy (); 
chkrdy (); 
chkrdy (); 
chkrady ()? 
chkrdy (); 
chkrdy(); 
chkrdy (); 
chkrdy (); 
chkrdy (); /* 1f still high give up, try again later */ 
asm(".L1:"); /* again: */ 
splx (pl); /* restore intrs cause this may take a while */ 
goto try; 
send: asm(",L2:"); /* gend: */ 
*tddra = dir; /* switch dir 68K -> cops (send command) */ 
i = 0x10; 
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do i--; while(i>0); /* wait a bit */ 
dir = QO; /* reset dir to cops -> 68K */ 
*ddra = dir; 
splx (pl); 
#ifdef lint 
if (erdy} gots send; 
#endif lint 
} 


/* ARGSUSED */ 
12dim(f1lg) 


{ 
‘ 


extern time_t lbolt; /* time in ticks */ 


#ifdef DIMSCREEN 
if (12_dimmed = 06) { /* not dimmed already */ 
if (12_dtrap > lbolt) { 
timeout (12dim, (caddr_t)0, (int) (12_dtrap - lbolt)); 
return; 
} 
12_desired = 12 dimcont; 
12 dimmed = 1; 
l2ramp (0); 
} 
#ifdef HOWFAR 
else printf("\nWHAT!! -- 12dim called while screen was dim\n"); 
#endif HOWFAR 
#endif DIMSCREEN 
} 


12undim()} 
{ 
tifdef DIMSCREEN 
if (12_dimmed != 0) { 
12_dtrap = lbolt + 12_dtime; 
timeout (12dim, (caddr_t)0, 12_dtime); 
12_desired = 12 defcont; 
12_dinmed = 0; 
lL2ramp (0) ; 
} 
#ifdef HOWFAR 
else printf ("\nWHAT!! -- 12undim called while screen was bright\n"); 
f#endif HOWFAR 
f#endif DIMSCREEN 
} 


l2ramp(tflag) 
{ 

register struct device _d *pp; /* aS */ 

register int c; /* a7 *f 

int pl; 

switch (tflag) { /* who called us */ 

case 0: /* somebody starting a ramp */ 
if (12_reflag) 

return; 

break; 

case 1: /* timeout (continue ramp) */ 
12_reflag = 0; 
break; 

case 2: /* profile driver {kludge) */ 
c = 12 desired; /* contrast desired */ 
if (c == 12 contrast) /* finished */ 

return; 

goto skip; 

} 

c = 12 desired; /* contrast desired */ 

1f {c == 12 contrast) /* finished */ 
return; 

if (ppinuse) { /* port busy, try again in 50 ms */ 
12_rcflag = 1; 
timeout (l2ramp, (caddy <)1, 1); /* try again next clock tick */ 


return; 


a 
i 
% 


if (c < 12_contrast) 12_contrast -- 4; else 12 contrast t= 4; 


c = 12 contrast; 
12_reflag = 1; 
timeout (l2ramp, {caddr_t)1, 12 crate); 


pl = spl7(); 
pp = PPADDR; 


#ifdef lint 


tendif 


c = (int) pp; 

asm(" bset #2,a5@(0x11) "); 
asm(" bset #2,a58(1) “); 
asm(" movb #Oxff,a5@(0x19) "); 
asm(" movb d7,a5@(9) "); 
asm(" bset #7,a5@(0x11) "); 
asm(" belr #7,a5@(1) ™); 
asm({" bset #7,a5@(1) "); 
asm(" belr #7,a5@(Ox11) "); 
asm(" belr #2,a5@(1) ™); 
splx{pl); 

return; 
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i* 

* Line Discipline Switch table 
xf 
#include “sys/conf.h" 


extern nuiidev(); 

extern ttopen(), ttclose(), ttread(), ttwrite(), ttin(), ttout(); 
struct linesw linesw[] = { 

/* 0 */ ttopen, ttclose, ttread, ttwrite, nulldev, ttin, ttout, nulldev, 
he 

int linecnt = 1; 
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/* @(#)lock.c 1.2 */ 
#include “sys/param.n" 
#include "sys/types.h" 
#include “sys/mmu.h*" 
#include “sys/proc.h" 
#include *sys/dir.h* 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/text.h" 
#include “sys/lock.h" 


lock () 
{ 
struct a { 
long oper; 
hs 
if (!suser()) 
return; 
switch(((struct a *)u.u_ap)->oper) { 
case TXTLOCK: 
if ((u.u_locksé (PROCLOCK|TXTLOCK)) || textlock() == 0) 
goto bad; 
break; 
case PROCLOCK: 
Lf (u.u_locké (PROCLOCK| TXTLOCK) ) 
goto bad; 
(void) textlock(); 
prociock(); 
break; 
case DATLOCK: 
if (a.u_locké (PROCLOCK | DATLOCK) } 
gato bad; 
u.u_lock |= DATLOCK; /* NOP for VAX */ 
break; 
case UNLOCK: 
if (punlock() = 6) 
goto had; 
break; 
default: 
bad: 
u.u_error = RINVAL; 
} 
} 
textlock() 
{ 
if (u.u_procp->p_textp == NULL) 
return (0); 
u.u_lock |= TXTLOCK; 
return(1); 
} 
tunlock {) 
{ 
if (u.u_procp->p _textp == NULL || (u.u_lockéTXTLOCK) == 0) 
return; 
u.u_lock &= ~TXTLOCK; 
} 
proclock() 
{ 
u.u_procp->p flag |= SSYS; 
u.u_lock {= PROCLOCK; 
} 
punlocx () 


{ 
if ((u.u_locké (PROCLOCK | TXTLOCK | DATLOCK) ) == 0) 
return (Q); 
u.u_procp->p flag &= ~SSYS; 
u.u_lock &= ~PROCLOCK; 
u.u_lock &= ~DATLOCK; 
tunlack (); 


return(1); 
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#include “sys/param.h" 
#include “sys/types.h" 
#include "sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/sysinfo.h" 
#include "sys/mount.n" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errne.h" 
#include “sys/inode.h" 
#include “sys/file.h" 
#include "sys/ino.h" 
#include “sys/filsys.h" 
#include “sys/buf.h" 
f#include “sys/var.h" 
#include “sys/proc.h" 
#include “sys/locking.h" 


* file lock routines 

* John Bass, PO Box 1223, San Luis Obispo, CA 93401 

* Original design spring 1976, CalPoly, San Luis Obispo 

* Deadlock idea from Ed Grudzien at Basys April 1980 

* Extensions Fall 1980, Onyx Systems Inc., San Jose 

* Linted and ported to System V by UniSoft Systems, Berkeley, CA. 


#define MAXSIZE (long) (1L<<30}) /* number larger than any request */ 


struct locklist *deadlock(); 
fr 
* locking -- handles syscall requests 
*f 
locking() { 
struct file *fp; 
struct inode *ip; 
f* 
* define order and type of syscall args 
xf 
register struct a { 
int fdes; 
int flag; 
off_t size; 
} *uap = (struct a *)u.u_ap; 
register struct locklist *cl, *nl; 
off t LB, UB; 


/*® 
* check for valid open file 
xf 
fp = getf(uap->fdes) ; 
if(fp —= NULL) return; 
ip = fp->f_inode; 
if ((ip->i_mode&éIFMT) == IFDIR) { 
u.u_error = EACCES; 
return; 
} 


yx 
* validate ranges 
* kludge for zero length 
*f 
LB = fp->f_ offset; 
if( uap->size ) { 
UB = LB + uap->size; 
if(UB <= 0) UB = MAXSIZE; 
} 
else UB = MAXSIZE; 


/* 

* test for unlock request 
*/ 
if(uap->flag == 0) { 


/* 
* starting at list head scan 


* for locks in the range by 

* this process 

*f 
cl = (struct locklist *)&ip->i_locklist;/* addr is pointer */ 
while(nl = cl->11_link) { 


fk 
* if not by this process skip to next lock 
*/ 
if(nl->ll_proc != u.u_procp) { 
cl = nl; 
continue; 
} 
{* 
* check for locks in proper range 
xf 
if( UB <= nl->ll_start ) 
break; 
if( nl->ll_end <= LB) { 
cl = nil; 
continue; 
} 
«*® 


* for locks fully contained within 
* requested range, just delete the item 
*f 
Lf( LB <= nl->1ll_start && nl->1l_end <= UB) { 
cl->11_link = nl->11_link; 
lockfree (nl); 
continue; 
} 
f* 
* if some one is sleeping on this lock 
* do a wakeup, we may free the region 
* being slept on 
xf 
if(nl->1l_flags & IWANT) { 
nl->li_flags &= ~IWANT; 
wakeup({caddr_t)nl); 
} 
{* 
* middle section is being removed 
* add new lock for last section 
* modify existing lock for first section. 
* if no locks, return in error 
*/ 
i1f( nl->ll_start < LB && UB < nl->1ll_end) { 
if( lockadd(nl,UB,nl->1ll_end) ) return; 
nl->ll_end = LB; 
break; 
} 
fx 
* first section is being deleted 
* just move starting point up 
*/ 
if( LB <= nl->1ll_start && UB < nl->1ll_end) { 
nl->ll_start = UB; 
break; 


* must be deleting last part of this section 
* move ending point down 

* continue looking for locks covered by upper 
x limit of unlock range 


xf 
nl->11l_end = LB; 
cl = nl; 
} 
{* 
* and of scan for unlock request 
a] 
return; 


} 

f* 
* request must be a lock of some kind 
* check to see if the region is lockable by this 
* process 
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xf 
if(locked(uap->flag, ip, LB, UB)) return; 
cl = (struct locklist *)&ip->i_locklist;/* note addr is pointer */ 
f* 
* simple case, no existing locks, simply add new lock 
xf 
if( (nl=cl->11_link) == NULL ) { 
(void) lockaddicl, LB, UB); 
return; 
} 
/* 
* simple case, lock is before existing locks, 
* simply insert at head of list 
*/ 
if( UB < nl->ll_start ) { 
(woid) lockadd (cl, LB, UB); 
return; 
} 
{* 
* ending range of lock is same as start of lock by 
* another process, simply insert at head of list 
xf 
if{ UB <= nl->ll_start && u.u_procp [= nl->1l_ proc ) { 
(void) lockadd(cl, LB, UB); 
return; 
} 
i* 
* request range overlaps with begining of first request 
* modify starting point in lock to include requested region 
xf 
if( UB >= nl->1ll_start 4& LB < nl->ll_start ) { 
nl->ll_start = LB; 
} 


fe 
* scan thru remaining locklist 
xf 
cl = ni; 
for (37) { 
f* 
* actions for requests at end of list 
xf 
if( ( nle= cl->11_ link ) == NULL ) { 
f* 
* request overlaps tail of last entry 
* extend end point 
xf 
if( LB <= cl->ll_end && u.u_procp == cl->ll_proc ) { 
if( UB > cl->ll_end ) cl->l1l_end = UB; 
return; 
} 
i* 
* otherwise add new entry 
*/ 
(void) lockadd({cl, LB, UB); 
return; 
} 
/* 
* if more locks in range skip to next 
* otherwise stop scan 
xf 
if( nl->ll_start < LB) { 
cl = nl; 
} 
else { 
break; 
} 
} 
/* 


* if upper bound is fuliy resoived were done 
* otherwise fix end of last entry or add new entry 
xf 
1f(UB <= cl->11 end) return; 
if(LB <= cl->1ll_end && u.u_procp == cl->1l_ proc) cl->1l_end = UB; 
else { 
if( leckadd({cl, LB, UB) ) return: 
GL = cl->11, link; 


} 
{* 
* end point set above may overlap later entries 
* if so delete or modify them to perform the compaction 
xf 
while{ (ml=cl=->11_ link} != NULL) { 
/* 
* if we found lock by another process we must 
* be done since we validated the range above 
*f 
if(u.u_procp != nl~>1l_proc) return; 
fr 
* if the new endpoint no longer overlaps were done 
*/ 
if(cl->ll_end < nl->1l_start) return; 
jt 
* if the new range overlaps the first part of the 
* next lock, take its end point 
* and delete the next lock 
* we should be done 
*/ 
if(cl->1ll_end <= nl->1ll_end) { 
cl->1ll_end = nl->11_end; 
el->11_ link = nl->11_link; 
lockfree (nl); 
return; 
} 
{* 
* the next lock is fully included in the new range 
* so it may be deleted 
*/ 
cl->11_link = nl->11_link; 
lockfree (nl); 


} 


ft 
* locked -- routine to scan locks and check for a locked condition 
xf 
locked({flag, ip, LB, UB) 
register struct inode *ip; 
off_t LB, UB; 
{ 
register struct locklist *nl = ip->i_locklist; 


/* 
* scan list while locks are in requested range 
x] 

while(nl {= NULL && nl->1l_start < UB) { 


/* 
* skip locks for this process 
* and those out of range 
xf 
if( nl->11_proc == u.u_procp || nl->1l_end <= LB) { 
nl = nl->11_link; 
if(nl = NULL) return(NULL); 
continue; 


* must have found lock by another process 
* if request is to test only, then exit with 
* error code 
*/ 
if(flag>1) { 
u.u_error = EACCES; 
return (1); 
} 
{* 
* will need to sleep on lock, check for deadlosk first 
* abort on error 
*/ 
if(deadlock(nl) != NULL) return(1); 
/* 
* post want flag to get awoken 
* then sleep till lock is released 
af 
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ni->11 flags |= IWANT; 


(void) sleep( (caddr_t)nl, PSLEP); {* 
/* * lockalloc -- allocates free list, returns free lock items 
* set scan back to begining to catch xf 
* any new areas locked struct locklist * 
* or a partial delete lockalioc{} { 
*/ register struct locklist *fl = &locklist[0]; 
nl = ip->i_locklist; register struct locklist *nl; 
{* 
* abort if any errors i* 
af * if first entry has never been used 
if(a.u_error) return(1); * link the locklist table into the freelist 
} mf 
return (NULL); if(fl->ll_proc == NULL) { 
} f£1->11_proc = éproc[0]; 
for(nl= élocklist[1]; nl < élocklist[{short)v.v_flock]; nl+t+) { 
/* lockfree{nl);: 
* deadlock -- routine to follow chain of locks and proc table entries } 
* to find deadlocks on file locks. } 
xf /* 
struct locklist * * if all the locks are used error exit 
deadlock (1p) xf 
register struct locklist *lp; if¢ (nl=f1->11_link) == NULL) { 
{ u.u_error = EDEADLOCK; 
register struct locklist *nl; return (NULL) > 
} 
/* i* 
* scan while the process owning the lock is sleeping * return the next lock on the list 
xf *f 
while (lp->11_proc->p_stat == SSLEEP) { £1->11_link = nl->11_link; 
i* nl->11_link = NULL; 
* if the object the process is sleeping on is return (nl); 
* NOT in the locktable every thing is ok } 
* fall out of loop and return NULL 
af f* 
nl = lp->11_proc->p_wlock; * lockfree -- returns a lock item to the free list 
if( nl < élocklist[0] || nl >= s&locklist{(short)v.v_flock] ) xf 
break; lockfree (1p) 
/* register struct locklist *lp; 
* the object was a locklist entry { 
* if the owner of that entry is this register struct locklist *fl = élocklist{0]; 
* process then a deadlock would occur 
* set error exit and return /* 
*/ * if some process is sleeping on this lock 
if(nl->1l_proc == u.u_procp) { * wake them up 
u.u_error = EDEADLOCK; */ 
return (nl); if{lp->1l_flags & IWANT) { 
} lp->1l_flags &= ~IWANT; 
f* wakeup ((caddr_t)1p); 
* the object was a locklist entry } 
* owned by some other process {* 
* continue the scan with that process * add the lock into the free list 
xf xf 
ip = nl; lp->11_link = f1->11_link; 
} f1->11_1link = lp; 
return (NULL) ; } 
} 
/* 
/* * lockadd -- routine to add item to list 
* unlock -- called by close to release all locks for this process xf 
*f lockadd (cl, LB, UB) 
unlock (ip) register struct locklist *cl; 
struct inode *ip; off _t LB,UB; 
{ { 
register struct locklist *nl; register struct locklist *nl; 
register struct locklist *cl; 
/* 
cl = (struct locklist *)&ip->i_locklist; * get a lock, return if none available 
while( (nl = cl->1l_link) != NULL) { a} 
if(nl->1l_proc == u.u_procp) { ni = lockalloc(); 
cl->11l_ link = nl->11_link; if(nl == NULL) { 
iockfree(nl); return(1); 
} } 
@lse cl = nl; /* 
} * link the new entry into list at current spot 


} * £411 in the data from the args 
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*/ 
nl->11_link = cl->11_link; 
cl->11_ link = nl; 
nl->1l_ prec = u.u_procp; 
nl->1l_start = LB; 
nhl->il_end = UB; 
return(0); 
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™ 
* 


(C) 1984 UniSoft Corp. of Berkeley CA 


UniPlus Source Code. This program is proprietary 
with Unisoft Corporation and is not to be reproduced 
or used in any manner except as authorized in 
writing by Unisoft. 


Driver for Centronix Citoh Dot Matrix Printer 
i 


* * oe + HH RH RF 


include “sys/paramn.h" 
#include “sys/config.h" 
#include “sys/types.h" 
#include "sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
ftinclude “sys/user.h" 
#include “sys/errno.h" 
#include “sys/file.h" 
#include "sys/tty.h" 
#include “sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/reg.h" 
f#include "setjmp.h" 
#include “sys/mnu.h" 


#include “sys/cops.h" 
#include “sys/pport .h" 


extern struct device_d *pro_da[]; 


#define LPPRI (P2ZERO+8) 
#define LPLOWAT 40 
#define LPHIWAT 1060 
#tdefine LPMAX NPPDEVS 


struct lp { 
struct clist 1 outq; 
char flag, ind; 


int ccc, mec, mic; 
int line, col; 
int dev; 


} lp_dt{LPMAX]; 


{* 
* flag values - PORT, CAP and NOCR bits from minor device 
*/ 
#define PORT Ox0F /* which port - 1,2,4,5,7,8 */ 
#define CAP 0x10 
#define NOCR 0x20 
#define ASLP 0x40 /* only set within driver */ 
#define OPEN 0x80 /* only set within driver */ 
#define physical (d) ((minor(d)) & PORT) 
#define FORM 014 
#define NO OP asm(" nop ") 
char lpflg[LPMAX] ; /* whether we expect another interrupt */ 


/* ARGSUSED */ 

lpopen(dev, mode) 

register dev_t dev; 

{ 
register unit; 
register struct lp *lp, 
register unsigned char zero; 
register struct device _d *p; 
int lpintr(); 
extern char slot{]; 


unit = physical (dev); 
SPL5(); 


#* check expansion slot number and type (must be 2-port card) */ 
Lif (!'PPOK(unit) || (slot [(PPSLOT{unit)] != PRO}) { 
err: 

u.u_error = EIO; 


fini: 
SPLS i}; 
return; 

} 

if ((lp = élp_dt[unit])->flag) { 
goto err; 


f (setppint (pro _dafunit],lpintr) 
u.u_error = ENODEV; 
goto fini; 
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} 

p = pro_da[unit]; 

zero = 0; 

p->d_acr = 0; /* no output latching */ 

NO_OP; 

p->d_per = Ox6B; /* set controller CA2 pulse mode strobe */ 
NO_OP; 

p->d_ddra = -1; /* set port A bits to output */ 

NO_OP; 


/*if (p == PPADDR) from system III 
p->d_ddrb &= 0x5C; set BSY and OCD to input 


else */ 


} 


p->d_ddrb &= OxDC; /* two or four port cards */ 
NO_OP; 

p->d_ddrb |= 0x9C; /* set port B bits 2,3,4,7 to out */ 
NO_OP; 

p->d_irb &= ~(DEN|DRW); /* disable buffers */ 

NO_OP; 

p->d_irb |= WCNT; /* set direction to output */ 
NO_OP; 

p->d_ier = FIRQ|FCA1; /* enable interrupt on busy */ 
NO_OP; 

zero = p->d_irb; 


if (zero & OCD) { /* out of paper 22? */ 
printf("lpopen: cable disconnect or out of paper\n"); 
out: 
freeppin ip); 
goto err; 
} 


if ((zere & PCHK) = 6) { /* online 22? */ 
printf("lpopen: (ddrb = %x) offline\n", zero); 
goto out; 

} 

lp->flag = {dev & (PORT | CAP | NOCR)) | OPEN; 

lp->ind = 4; 

lp->col = 80; 

lp->line = 66; 

lp->dev = dev; 

lpoutput (lp, FORM); 

SPLO(); 


lpclose (dev) 
register dev_t dev; 


{ 


register unit; 
register struct lp *lp; 


unit = physical (dev); 

lp = &lp_dt[unit]; 

lpoutput (lp, FORM); 

SPL5 (); 

while (lpflg[unit]) { 
lp->flag |= ASLP; 
(void) sleep({(caddr_t)lp, LPPRI); 

} 

freeppin(pro_da[unit]); 

lp->flag = 9; 

SPLO(): 
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ipwrite (dev) 
register dev_t dev; 


{ 


} 


register unit; 
register c; 
register struct lp *lp; 


unit = physical (dev); 
lp = &lp dt[unit]; 
while (u.u_count) { 
SPLS (3; 
while (1p->l_outq.c_cc > LPHIWAT) { 
lpintr (unit); 
lp->flag |= ASLP; 
(vold) sleep({caddr_t)lp, LPPRI); 
} 
SPLO()}; 
c = fubyte(u.u_base+t); 
if {ec < 0) { 
u.u_error = EFAULT; 
break; 
} 
u.u_count--; 
lpoutput (ip, c); 
} 
SPLS()}; 
lpintr (unit): 
SPLO{); 


lpoutput(lp, c) 
register struct lp *lp; 
register c; 


{ 


if(lp->flagéCaP) { 
if(ce>=a’ && c<=*z") 
c += SAf-fal; else 
switch(c) { 
case '{’; 
a= rere 
goto esc; 
case "}%s; 
c= rye: 
goto esc; 
case *%F; 
ce yey 
goto esc; 
case ’|*; 
c= flees 
goto esc; 
case '~*; 
c= TAL» 
esc: 
lpoutput(lp, c); 
lp->ccec--; 
c= for; 
} 
} 
switch(c) { 
case *\t!: 


lp->cee = ((lp->ccct8-lp->ind) & ~7) + lp->ind; 


return; 
case "\n': 
lp->mlct+; 
if(lp->mlc >= lp->line ) 
c = FORM; 
case FORM: 
lp->mec = 0; 
if (lp->mlc) { 
(void) putc(c, &lp->1_outq); 
if(c == FORM) 
lp->mlc = OG; 
} 
case ‘\r’: 
lp->cec = lp->ind: 


} 


SPL5(); 
lpintr (lp->dev) ; 
SPLO(); 
return; 
case 916: 
if{lp->cce > lp->ind) 
lp->ccc-~; 
return; 
case ’ f3 
ip->ccctt; 
return; 
default: 
if(lp->cce < lp->mcc) { 
if (lp->flagéNOCR) { 
lp->ccctt+; 
return; 
} 
(void) putc(’\r’, &lp->1_outq); 
ip->mcc = OG; 
} 
if(lp->cce < lp->col) { 
while(lp->ccc > lp->mec) { 
(void) putc(’ *, &lp->l_outgq); 
lp->mectt+: 
} 
(void) putc(c, &lp->1_outgq): 
lp->mec++; 
} 
lp->ccctt+; 


lpintr (dev) 
register dev; 


{ 


} 


register struct lp *lp; 
register struct device _d *p; 
register c; 


dev = physical (dev); 
if ({lipflg[dev]) return; 
lp = élp dt[dev]; 
p = pro_da[dev]; 
while ({c = getc({&lp->1l_outq)) >= 0) { 
lpflg[dev] = 1; 
p->d_ira = c; 
c = 30; 
while ({p->d_ifr & FCAl1) == 0) { 
if (--c <= 0) 
return; 
} 
ipflg[{dev] = 0; 
} 


if (lp->l_outq.c_cc <= LPLOWAT && lp->flagéASLP) { 
ip->flag &= ~ASLP; 
wakeup ((caddr_t)lp); 


/* ARGSUSED */ 
lpioctl(dev, cmd, arg, mode) 


{ 
} 
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/*#define HOWFAR */ 


#include “sys/param.h" 
#include “sys/config.h" 
#include "sys/mau.h" 
#include “sys/types.h" 
#include "sys/sysmacros.h" 
#include "sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/proc.h® 
#include “sys/context.h" 
#include “sys/seg.h" 
#include "sys/map.h" 
#include “sys/reg.h" 
#include “sys/psl.h" 
#include “sys/utsname.h" 
#include “sys/ipc.h" 
f#include “sys/shm.h" 
#include “sys/var.h" 
finclude "sys/scat.h" 
#include “setjmp.h" 


typedef int mem_t; 

#define LOW (USTART&OXFFFF) /* Low user starting address */ 
#define HIGH ( (USTART>>16) &0xFFFF) /* High user starting address */ 
#define MEMFACT 8/10 /* swap space to free memory minimum ratio */ 
int keroff; /* kernel memory offset */ 

extern short segoff; /* mmu segment offset */ 

{* 


* Icode is the bootstrap program used to exec init. 


*f 
short icode[] = { 
/*® 
Ox2E7C, HIGH, LOW+0x100, /* 
0x227C, HIGH, LOW+Ox26, /* 
0x223C, HIGH, LOW+0x22, /* 
0x207C, HIGH, LOW+Ox2A, /* 


Ox42A7, /* 
0x303C, 0x3B, /* 
Ox4E40, f* 
Ox60FE, {* 
HIGH, LOW+0x2A, /* argp: 
0, 0, /* envp: 


Ox2F65, 0x7463, Ox2F69, /* name: 
Ox6E69, 0x7400 

he 

int szicode = sizeof (icode); 


{* 
* startup code 
*/ 
/* ARGSUSED */ 
startup (cudot) 
{ 
extern int nsysseg, dispatch{]; 
extern caddr_ t end, etext; 
extern struct var v; 
register caddr t cp, limit; 
register long *ip; 


for (ip = &((long *) 0) [0]; ip < 
(1 


tip = (long}dispatch + 
{* 
* free swap memory 
*/ 


mfree(swapmap, nswap, 1); 


keroff = btac{ (unsigned) &end) + v 


» =USTART 


*f 


movil #USTART+0x100,sp*/ 


movil #envp,al 
movl #argp, dl 
movil $name, aG 


elrl spe- 
movw #59.,a0 
trap #0 

bra 

»long name 
-long 6 


-asciz “/etc/init" 


&{{long *) 0) [NIVEC]; ipt++) 


ng)ip; 


-V_usize; 


*f 
xf 
*f 
xf 
af 
*f 
*f 
*f 
*/ 
xf 


cp = (caddr_t) (ctob(btoc( (unsigned) send) +v.v_usize) ); 
limit = (caddr_t)({(*((long *)MEMEND)) & OxFFFFFEQ0)-ctob(1)); 


#ifdef HOWFAR 
printf ("Segment offset = Ox%x, first click at %d(0x%x)\n\r", 
segoff, keroff, keroff}; 
printf("First free memory = 0x%x\n", cp); 
printf ("Last free memory = Ox%x\n", limit); 
printf("%d clicks available\n", btoc( (int) limit) ~keroff); 


#endif 
for ( ; cp < limit: cp t= ctob(1)) { 
clearseg(fint)btoc((intjep)): 
mMaxmem+t+; 
} 
cp = (caddr_t) (btoc( (unsigned) éend)+v.v_usize); 
mfree(coremap, maxmem, (int)cp); 
printf (“Available user memory is %d bytes\n\r", ctob( (long) maxmem)); 
if (maxmem > dtoc(nswap*MEMFACT)) { 
maxmem = dtoc (nswap*MEMFACT) ; 
printf ("Insufficient swap space for available memory. \n"); 
printf("Largest runnable process is $d.\n", ctob(maxmem)); 
} 
iff (MAXMEM < maxmem) maxmem = MAXMEM; 
} 
i 
* jocheck - check for an I/O device at given address 
xf 
iocheck (addr) 


caddr t addr; 

{ 
register int *saved_jb; 
register int i: 
jmp_buf jb; 


saved_jb = nofault; 

if ('setjmp(jb)) { 
nofault = jb; 

= *addr;: 

= 1; 


He be 


} else 
i=90; 
nofault = saved_jb; 
return (i); 
} 


{* 
* usraccess - Check a virtual address for user accessibility. 
xf 

usraccess(virt, access) 

long virt; 

{ 

register prot; 


SEG1_1 = 1; /* user context */ 
/* SEG2_0 = 1; /* user context */ 


prot = getmmu((short *) (vtoseg{virt) | ACCLIM)) & PROTMASK; 
/* printf("usraccess at 0x%x is Ox%x\n", virt, prot); */ 
if (prot == ASRW || prot == ASRWS || (prot == ASRO && access == RO)) 
return({1); 
return(0); 
} 


/® 
* vtop - Convert virtual address to physical. 
*/ 

caddrit 

vtop(virt) 

register caddr_t virt; 

{ 

long segbase, phys; 


SEG1_1 = 1; /* user context */ 
/* SEG2_0 = 1; /* user context */ 
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} 


/* 


segbase = getmmu((short *) (vtoseg(virt) | ACCSEG)) & SEGBASE; 
phys = (segbase << VIRTSHIFT) + ((long)virt & OFFMASK); 


return ((caddr_t) (phys - ctob(segoff))); 


* fuword - Fetch word from user space. 


af 


fuword (addr) 
register caddr t addr; 


{ 


/* 
* fubyte - Fetch byte from user space. 


int val; 
jmp_buf jb; 
int *saved_jb; 


if (addr < (caddr_t)v.v_ustart || addr+3 >= (caddr_t)v.v_uend) 


return (-1); 
if ((addr = (caddr_t)vtop(addr)) == (caddr_t)-1) 
return (-1); 
saved_jb = nofault; 
if (Isetjmpi(jb)) { 
nofault =~ jb; 
val = *(int *)addr; 
} else 
val = -1; 
nofault = saved_ijb; 
return{val); 


fubyte (addr) 
register caddr t addr; 


{ 


} 


/* 
* suword - Store word into user space. 


register int val; 
jmp_buf jb; 
int *saved_ijb; 


if (addr < (caddr_t)v.v_ustart || addr >= (caddr t)v.v_uend) 


return (-1); 
if ((addr = {caddr_t)vtop(addr)) == (caddr_t)-1) 
return(-1); 
saved_jb = nofault; 
if (f{setjmp(jb)) { 
nofault = jb; 
val =» *addr & 0377; 
} else 
val = -1; 
nofault = saved_jb; 
return (val); 


suword (addr, word) 
register caddr_t addr; 
int word; 


{ 


jmp_buf jb; 
int val, *saved_jb; 


if (addr < (caddr_t)v.v_ustart || addr+3 >= (caddr_t)v.v_uend) 


return (-1); 
if ((addr = (caddr_t)vtop(addr)) == (caddr_t)-1) 
return(-1}; 
saved_jb = nofault; 
if (!setjmp(jb)) { 
nefault = jb; 
«(int *)addr = word; 
val = 0; 
} else 
val = -l; 
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nofault = saved_jb; 
return({val); 
} 


/* 
* subyte - Store byte into user space. 
xf 

subyte(addr, byte) 

register caddr_t addr; 

char byte; 

{ 

jmp buf jb; 
int val, *saved_jb; 


if (addr < (caddr_t)v.v_ustart || addr >= (caddr_t)v.v_uend) 
return {-1); 

if ({addr = (char *)vtop(addr)) == (char *)-1) 
return(~1); 

saved_jb = nofault; 

if (!setjmp(jb)) { 
nofault = jb; 
*addr = byte; 
val = 0; 

} else 
val = -1; 

nofault = saved_jb; 

return (val); 

} 


f* 
* copyout - Move bytes out of the system into user’s address space. 
xf 

copyout (from, to, nbytes) 

caddr_t from, to; 

int nbytes; 

{ 

int val; 
jmp_buf jb; 
int *saved_‘jb; 


#ifdef DGETPUT 
printf ("copyout:copying %d bytes to user space 0x%x (p=0x%x) from Ox%x\n", 
nbytes, to, vtop(to}), from); 
#endif 
if (({int)totnbytes > v.v_uend |{ usraccess{(long)to, RW) = 0 || 
{to = (char *)vtop(to)) == (char *)-1) { 
printf ("copyout failed\n"); 
return (-1); 
} 
saved_jb = nofault; 
if ('setjmp(jb)) { 
nofault = jb; 
blt{(to, from, nbytes); 
val = 0; 
} else 
val = -1; 
nofault = saved_jb; 
return (val); 
} 


/* 
* copyin - Move bytes into the system space out of user’s address space. 
*/ 

copyin(from, to, nbytes) 

caddr_t from, to; 

int nbytes; 

{ 

int val; 
jmp_buf jb; 
int *saved_jb; 


#ifdef DGETPUT 
printf ("copyin:copying td bytes from user space 0x%x (p=0x%x) to Ox%x\n", 
nbytes, from, vtop(from), ts); 
#endif 
if ((int)fremtnbytes > v.v_uend || usraccess((long)from, RO)==9 || 
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{from = (char *)vtop(from)) == (char *)-1) { 
printf(“copyin failed\n"); 
return (-1)}; 

} 

saved_jb = nofault; 

if (isetjmp(jp)) { 
nofault = 4b; 
blt(to, from, nbytes); 
val = 0; 

} else 
wal = -1; 

nhofault = saved_jb; 

return (val); 

t 


jr 
* copyseg - Copy one click’s worth of data. 
*f 
copysegifrom, to) 
int from, to; 
{ 
Af (from == to) 
return; 
b1lt512(ctob(to), ctob(from), ctob{1)>>9); 
} 


f* 

* clearseg - Clear one click’s worth of data. 
*f 
clearseg (where) 


int where; 
{ 
fx 
printf ("clearseg Oxtx (6x%x)\n", where, ctob(where)}; 
xf 
clear ({(caddr_t)ctob{where), ctob(1)}); 
} 


it 
* busaddr - Save the info from a bus or address error. 
af 

/* VARARGS */ 

busaddr (frame) 


struct { 
long regs[4]; /* d0,dl1,a0,al */ 
int baddr; /* bsr return address */ 
short fcode; /* fault code */ 
int aaddr; /* fault address */ 
short ireg; /* instruction register */ 
} frame; 


{ 
u.u_fcode = frame. fcode; 
u.u_aaddr = frame.aaddr; 
u.u_ireg = frame.ireg; 

} 


/* 
* dophys - machine dependent set up portion of the phys system call 
xf 
dophys(phnum, laddr, bcount, phaddr) 
unsigned phnum, laddr, phaddr; 
register unsigned bcount; 
{ 
register struct phys *ph; 
register struct user *up; 
register unsigned addr; 
register i; 


up = &u; 
if (phnum >= v.v_phys) 

goto bad; 
ph = g&up->u_phys[ (short) phnum] ; 
ph->u_phladdr = 0; 
ph->u_phsize = 0; 
ph->u_phpaddr = 0; 
sureg(): 


if (bcount == 6) 
return; 
/* valid logical address 2? */ 
addr = laddr; 
if (addr & (~SEGMASK)) 
goto bac; 
i = ctos(btoc(bcount)): 
while (i-~ > 0) { 
if ((getmmu( {short *) (vtoseg{addr) | ACCLIM)) & PROTMASK) != 
ASINVAL) { 


#ifdef HOWFAR 


#endif 


bad: 


out: 


} 
f* 


rintf("addr=0x%x prot-Ox%x\n", 
Soa 


addr, *({short *)vtoseg({addr)); 


goto bad; 
} 
addr t= (1<<SEGSHIFT); 
} 
Lf ((ctos(btec(v.v_uend) )-ctos (btoc(v.v_ustart) )-ctos(up->u_ptsize)- 
ctos(up->u_pdsize) -ctos (up->u_pssize)-ctos (btoc (bcount) )) < Q) 
goto bad; 
ph->u_phladdr = laddr; 
ph->u_phsize = btoc(bcount); 
ph->u_phpaddr = phaddr; 
goto out; 


up->u_error = EINVAL; 


/* cxrelse(up->u_procp->p_ context); */ 
sureg():; 


* Scan phys array for physical I/O (raw I/O) transfer verification 


xf 


chkphys (base, limit) 


{ 


} 
{* 


register struct phys *ph; 
register i; 


for (i = 0, ph = éu.u_phys[0]: i < v.v_phys: i++, pht+)} 
if (ph->u_phsize != 0 && base >= ph->u_phladdr &é& 
limit < ph->u_phladdrtctob(ph->u_phsize) ) 
return(1); 
return (0); 


* addupc - Take a profile sample. 


*/] 


addupe (pc, p, incr) 
unsigned pc; 
register struct { 


} *p; 


short *pr_base; 
unsigned pr_size; 
unsigned pr_off; 

unsigned pr_ scale; 


union { 
int w_form; /* this is 32 bits on 68000 */ 
short s form[2]; 

} word; 

register short *slot; 


slot = &p~>pr_base[((((pe - p->pr_off) * p->pr_scale) >> 16) + 1)>>1]; 
if ((caddr_t)slot >= (caddr_t)(p->pr_base) && 
(caddr_t)slot < (caddr_t) ((unsigned)p->pr_base + p->pr_size)) { 
if ((word.w_form = fuword((caddr_t)slot)) == -1) 
u.u_prof.pr_scale = 0; /* turn off */ 
else { 
word.s form[{0} += (short)incr; 
(void) suword((caddr_t)slot, word.w form); 
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ft 
* backup - Prepare for restart on a bus error. 
*f 
backup (ap) 
register int *ap; 
{ 
register caddr_ t pe; 
register ins; 
extern int tstb; 


poe = {caddr t)ap[Pc} - 2; 
ins = fuword((caddr_t)pe); 
#ifdef HOWFAR 
printf("backup: pc, ins, tstb = &x, $x, %&x. ", pe, ins, tstb); 


#endif 
if (ins & 0x8000 && (tstb & OxXFFFFG000) == (ins & OxFFFFO000)) { 
ap[PC] = (int)pe; 
return(ins | OxFFFFG000); 
} 
return (0); /* signify we could not back up */ 
j 
f* 
* sendsig - Simulate an interrupt. 
xf 


/* ARGSUSED */ 

sendsig(p, signo) 

caddr_ t p; 

{ 
register unsigned long n; 
register int *regp; 
short ps; 


regp = u.u_ard; 
n= regp{SP] - 6; 
ps = (short)regp([RPS]; 
(void) subyte({caddr_t)n, ps >> 8); /* high order byte of ps */ 
(void) subyte((caddr_t) (ntl), ps): /* low arder byte of ps */ 
(void) suword({(caddr t){nt2), regp[PC]); 
regp[SP] = n; 
regp(RPS] &= ~PS T; 
regp(PC] = (int)p: 
} 


/*ARGSUSED* / 

clkset (oldtime) 

time t oldtime; 

{ 
/* use real time clock value instead of oldtime */ 
time = rtcdoread(); 


/* 

* create a duplicate copy of a process 
*/ 

procdup (p) 

register struct proc *p; 

{ 


register al, a2, n; 


n = p->p size; 
if ((a2 = malloc(coremap, n)) == NULL) 
return(NULL): 


al = p->p addr; 
p->p_addr = a2; 
while {n--) 
copyseg(al++, a2++); 
return(1); 
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/* $#define HOWFAR */ 


/* @(#)main.c 1.7 */ 
#include “sys/param.h" 
#include “sys/mau.h" 
f#include "sys/types.h" 
#tinclude “sys/sysmacros.h" 
#include “sys/systm.h™ 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include "sys/user.h" 
finclude "sys/filsys.h" 
finclude “sys/mount.h" 
#include “sys/proc.h" 
#include “sys/inode.h" 
#include “sys/seg.h" 
#include “sys/conf.h" 
#include "sys/buf.h" 
f#include “sys/iobuf.h"™ 
#include "“sys/tty.h" 
#include “sys/var.h" 


#include <sys/file.h> 
f* 
* Initialization code. 
* Called from cold start routine as 
* soon as a stack and segmentation 
* have been established. 
* Functions: 
* clear and free user core 
7 turn on clock 
7 hand craft 0th process 
7 call all initialization routines 
* fork - process 6 to schedule 
- - process 1 execute bootstrap 
* 
* loop at low address in user mode -- /etc/init 
x cannot be executed. 
a] 
iat maxmem; 
int minmem; 
int physmem; 
int cputype; 
int *nofault; 


struct inode *rootdir; 


main {cudot) 

{ 
register struct user *up; 
register struct proc *p; 
register struct init tbl *initp; 
extern char oemmsg[], timestamp[]; 
extern int cmask, cdlimit; 


printf£("(C) Copyright 1983 ~ UniSoft Corporation\n “)? 
printf ("%d", cputype 2? cputype : 68000); 

printf (" Unix System V - August 1983\n\n"); 

printf (“Created %s\n\n", timestamp); 


printf ("%s\n", oemmsg); 


/* 
* set up system process 
a] 


up = &u; 
Pp = &proc[Q]; 

ifndef NONSCATLOAD 
p->p scat = 0; 

tendif 
p->p_addr = cudot; 
p->p_size = v.v_usize; 
p->p_stat = SRUN; 
p->p_flag |= SLOAD|SSYS; 
p->p_nice = NZERO; 


#ifdef HOWFAR 
printf ("main calling %s\n", initp->init_msg); 
#endif 
(*initp->init func) (); 
} 
$ifdef HOWFAR 
printf (about to spl0\n"); 
¢endif HOWFAR 
SPLO(); 
#ifdef HOWFAR 
printf("now at level O0\n"); 
#endif HOWFAR 
/* 
* initialize system tables at priority 0 
sf 
for (initp = sinit0 _tb1[6]; initp->init_func; initpt++) { 
#ifdef HOWFAR 
printf ("main calling %s\n", initp->init_msg); 
tendif 
(*initp->init_func) 0); 
} 
#ifdef HOWFAR 
printf("main calling iget\n"); 
#endif 
rootdir = iget{(rootdev, ROOTINO); 
rootdir->i_flag &= ~ILOCK; 
up->u_cdir = iget(rootdev, ROOTINO}); 
up->u_cdir->i_ flag &= ~ILOCK; 
up->u_rdir = NULL; 
up->u_start = time; 
{* 
* create initial processes 
* start scheduling task 
x] 
#ifdef HOWFAR 
printf("main calling newproc\n"); 
# endif 
if (newproc(0)) { 
#ifdef HOWFAR 
printf("main calling expand\n"); 
# endif , 
expand {{int)(v.v_usize + btoc(szicode))); 
#ifdef HOWFAR 
printf("main calling estabur\n"); 
# endif 
(void) estabur((unsigned)0, (unsigned) btoc(szicode), 
{unsigned)0, 0, RO); 
#ifdef HOWFAR 
printf("main calling copyout\n"); 
# endif 
(void) copyout ((caddr_t)}icode, 
(caddr_t) (v.v_ustarttv.v_doffset), szicode); 
j* 
* Return goes to loc. 6 of user init 
* code just copied out. 
*f 
#ifdef HOWFAR 
printf (“main returning to icode\n"}; 
# endif 


up->u_procp = p; 
up->u_cmask = cmask; 
up->u_limit = cdlimit; 
up->u_stack[0] = STKMAGIC; 


Startup icudot); 
f* 


* initialize system tables at priority 7 
xf 


for (initp = &init?_tb1[0]; initp->init_func; initptt) { 


return: 
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} f* 
#ifdef HOWFAR * Initialize the buffer I/O system by freeing 
printf("main calling sched\n"); * all buffers and setting all device hash buffer lists to empty. 
# endif xf 
sched (); binit {) 
} i 
register struct buf *bp; 
/* register struct buf *dp; 
* iinit is called once (from main) very early in initialization. register unsigned i; 
* It reads the root's super block and initializes the current date register long b; 
* from the last modified date. 
* dp = sbfreelist; 
* panic: ilinit -- cannot read the super block. dp->b_forw = dp; dp->b_back = dp; 
* Usually because of an IO error. dp->av_forw = dp; dp->av_back = dp; 
xf b = (({(long)buffers + (sizeof(int} - 1)) & (-sizeof(int))); 
init () for (i=6, bp=buf; i<v.v_buf; i++,bpt+) { 


a 


register struct user *up; 
register struct buf *cp; 
register struct filsys *fp; 
struct inode iinode; 


up = &u; 
(*bdevsw [bmajor (rootdev) ] .d_open) (minor (raotdev), FREAD | FWRITE):; 
(*bdevsw [bmajor (pipedev) ].d_open) (minor (pipedev), FREAD | FWRITE); 
(*bdevsw [bma jor (swapdev) ] .d_open) (minor (swapdev), FREAD | FWRITE); 
cp = geteblk(); 
fp = cp->b_un.b filsys; 
iinode.i_mode = IFBLK; 
iinode.i_rdev = rootdev; 
up~>u_offset = SUPERBOFF; 
up~>u_count = sizeof(struct filsys); 
up~>u_base = (caddr_t) fp; 
up->u_segflg = 1; 
readi (éiinode) ; 
if (ap->u_error) 
panic(“iinit"); 
mount {6].m_bufp = cp; 
mount [0].m_flags = MINUSE; 
mount [0].m_dev = brdev(rootdev); 
if {fp->s magic i= FsMAGIC) 
fp->s_type = Fslb; /* assume old file system */ 
if (fp->s_type = Fs2b) 
mount [0].m_dev |= Fs2BLK; 
#if FsTYPE == 4 
if (fp->s_ type — Fs4b) 
mount [0].m_dev |= Fs4BLK; 


fendif 
rootdev = mount [0].m_dev; 
if (brdev(pipedev) == brdev(rootdev) ) 
pipedev = rootdev; 
fp->s_ flock = 0; 
fp->s_ilock = 0; 
fp->s_ronly = 0; 
fp->s_ninode = 0; 
fp->s_inode(0] = 0; 
clkset (fp->s_ time); 
} 
{* 
* Initialize clist by freeing all character blocks. 
xf 
struct chead cfreelist; 
cinitd 


{ 
register n; 
register struct cblock *cp; 


for(n = 0, cp = écfree[0}]; n < v.v_clist; nt+, cptt) { 
cp->c_next = cfreelist.c next; 


cfreelist.c_ next = cp; 


} 
efreelist.c_ size = CLSI2E; 


bp->b_dev = NODEV; 
bp->b_un.b addr = (caddr_t)b; 
b += SBUFSIZE; 
bp->b_back = dp; 
bp->b_forw = dp->b_forw; 
dp->b_forw->b_back = bp; 
dp->b_forw = bp; 
bp->b_flags = B BUSY; 
bp->b_bcount = 0; 
brelse (bp); 
} 
pfreelist.av_forw = bp = pbuf; 
for (; bp < épbuf[( (short) (v.v_pbuf-1)]; bpt++) 
bp->av_forw = bpt+tl; 
bp->av_forw = NULL; 
for (i=0; i < v.v_hbuf; i++) 
hbuf[(short)i].b forw = hbuf[(short)i].b_back = (struct buf 


*) &hbuf [{short) i]; 
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/* @(#)malloc.c 1.1 */ } 
#include “sys/param.h" mapsize (mp) ++; 
#include "“sys/types.h" } 
#include “sys/systm.h" } else { 


finclude “"sys/map.h" 
¥inciude *sys/var.n* 
#include “sys/scat.h® 


if (atsize == bp->m_addr && bp->m_size) { 
bp->m_addr -= size; 
bp->m_size += size; 

} else if (size) { 


/* if (mapsize(mp) == 0) { 
* Allocate ‘size’ units from the given map. printf("\nDANGER: mfree map overflow at map Ox%x\n", mp); 
* Return the base of the allocated space. printf(" lost %d items starting at Ox%x\n", size, a); 
* In a map, the addresses are increasing and the return; 

* list is terminated by a 0 size. } 

* The swap map unit is 512 bytes. do { 

* Algorithm is first-fit. t = bp->m_addr; 
*f bp->m_addr = a; 

Malloc(mp, size) a=t; 

register struct map *mp; t = bp->m_size; 

{ bp->m_size = size; 

int n; bptt+; 
} while (size = t); 
if (mp != coremap) mapsize (mp) --; 
return{domallimp, size)); } 
do } 
if ({n = domallimp, size)) != 6) #ifdef NONSCATLOAD 
return (n); f* 
while (xmrelse() != 0); * Wake scheduler when freeing core 
return (0); af 

} if (mp==coremap) { 

domall(mp, size) if(runin) { 

struct map *mp; runin = 0; 

register size; wakeup({caddr_t)érunin); 

{ } 

register struct map *bp; } else 
register a; #else 
if (mp [= coremap) 
for (op = mapstart(mp); bp->m_size; bp+t+) { #endif 
if (bp->m_size >= size) { ie 
a = bp->m_addr; * wakeup anyone waiting for a map 
bp->m_addr += size; x] 


if ({bp->m_size -= size) = 6) j 
do { 
bpt+; 
{bp-1)->m_addr = bp~>m_addr; 


} while ((bp-1)->m_size = bp->m_size); 


mapsize (mp) ++; 
} 
return {a); 
} 
} 
return (6); 


if (mapwantimp)) i 
mapwant (mp) = 0; 
wakeup({caddr_t)mp); 


} 


/* 
* return the largest size in the given map structure 
*f 

mallocl (mp) 

struct map *mp; 

{ 

register struct map *bp; 
register a; 


* Free the previously allocated space aa 

* of size units into the specified map. a= 0; 

* Sort aa into map and combine on for (bp=mapstart (mp); bp->m_size; bpt+t) 
* one or both ends if possible. if (bp->m_size > a) 


af 


mfree{mp, size, a) 
struct map *mp; 
register a; 


{ 


register struct map *bp; 
register t; 


bp = mapstart (mp); 
for (; bp->m_addr<=a && bp->m_size!=0; bpt+); 
if (bp>mapstart(mp) && (op-1)->m_addrt (bp-i)->m_size == aj 
{bp-1)->m_size += size; 
if (atsize == bp->m_addr) { 
(bp-1)->m_size += bp->m_size; 
while (bp->m_size) { 
bp++; 
(bp-1)->m_addr = bp->m_addr; 
(bp-1)->m_size ~ bp->m_size: 


a = bp->m_size; 
return(a); 
} 


#ifdef NONSCATLOAD 
f* 
* malloc size clicks starting at address ‘start’ 
*/ 
mallocat(mp, size, start) 
struct map *mp; 
register start; 
{ 
register struct map *bp; 
register a; 


for (bp=mapstart (mp); bp->m_size; bp+t+) { 


if (bp->m_addr == start && bp->m_size >= size) 


a = bp->m_addr; 
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bp->m_addr t= size; 
if ((bp->m_size -= size) == 0) { 
do { 
bpt+; 
(bp-1)->m_addr = bp->m_addr; 
} while ((bp-1j)->m_size = bp->m_size}); 
mapsize (mp)++; 
} 
return (a): 
} 
} 
return(dj; 
} 
#else 


extern int nscatfree; 


i* 
* allocate size units from the memory map 
xf 

memalloc{size) 

{ 

int n; 


while (i{n = domemalloc({size)) == NULL) 
1f (xmrelse() == 0) 
break; 
return{n); 
} 


domemalloc (size) 

register size; 

{ 
register struct scatter *s; 
register short i; 
register al, a2; 


if (size <= @) { 
printf (“memalloc error: tried to allocate %d units\n", size); 
return (NULL); 
s 
if (size > nscatfree) { 
/* printf ("memalloc: less than %d free pages at present\n", 
size); */ 
return (NULL); 
} 
s = scatmap; 
al = a2 = scatfreelist.sc_ index; 
if (size > 1) { 
i= size - 2; 
do { 
al = s{al].sc_index; 
} while (--i [= -1); 
} 
scatfreelist.sc_index = s[al].sc_index; 
s[al].sc_index = SCATEND; 
nscatfree -= size; 
/* printf ("memalloc: found %d free pages starting at index %d\n", 
size, a2); */ 


return(a2); 
} 
i* 
* allocate size contiguous units from the memory map 
af 


cmemalloc (size) 


{ 
int n; 


do 
scatsort(); 
while ((n = docmemalloc(size))==NULL && xmrelse()); 
/* printf ("cmemalloc:size=%d starting address=0x%x\n", size, n); */ 
return(n); 
} 
docmemalloc (size) 


register size; 


{ 
register struct scatter *s, *ss; 
register short i; 
register al, a2, n; 


if (size <= 0) { 
printf("cmemalloc error: tried to allocate %d units\n", size); 
return (NULL) ; 
} 
if (size > nscatfree) 
return (NULL) > 
s = scatmap; 
ss = &scatfreelist; 
al = ss->sc_index; 
for (37) { 
n = memcontig(al, size); 
if (n >= size) 
break; 
if (n> 1) { 
ien- 2; 
do 
al = s[al].sc_index; 
while (--i != -1); 
} 
ss = &s[ai]; 
if (ss->sc_index == SCATEND) 
return (NULL); 
al = ss->sc_index; 
} 
a2 = al; 
if tsize > 1) { 
i = size ~- 2; 
do 
al = s[al].sc_index; 
while {--i != -1); 
} 
ss->sc_index = s[al].sc_index; 
s{al].sc_index = SCATEND; 
nscatfree -= size; 
#* printf("cmemailoc: found td free pages starting at index %d\n", 
size, a2); */ 
if (countscat{a2) != size) 
printf ("cmemalloc:improper allocation countscat=%d size-%d\n", 
countscat (a2), size); 
return (a2); 
} 


{* 
* free memory map chain 
xf 
memfree (a) 
register a; 
{ 
register struct scatter *s; 
register i, al, a2; 


if (a <= 0 || a >= v.v_nscatload) { 
printf ("memfree:illegal index %d (0x%x)\n", a, a): 
return; 
} 
1 = 1; 
s = scatmap; 
al =a; 
while ((a2 = s{al].sc_index) != SCATEND) { 
al = a2; 
itt; 


} 
/* printf ("memiree:%d units freed starting act %d\n", i, aj; */ 
s(al].sc_index = scatfreelist.sc index; 
scatfreelist.sc_index = a; 
nscatfree += ji; 
/* 
* Wake scheduler when freeing memory 
xf 
if (runin) { 
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runin = 0; 
wakeup{(caddr_t)érunin); 


} 
/* 
x find number of contiguous memory pages 
xf 
memcontig(sindex, ct) 
register sindex, ct; 
{ 
register st 
register al, n; 


if (sindex = SCATEND j| ct <= a) { 


printf ("memcontig:sindex=0x%x ct=%d\n", sindex, ct); 


return (0); 
} 
n= 1; 
Ss = scatmap; 
al = ixtoc(sindex); 
while (--ct > 0) { 
if ((sindex = s{sindex].sc_index) == SCATEND) 
break; 
if (t+tal != ixtoc(sindex) )} 
break; 
ntt; 
} 
return (n); 
} 


{* 

* sort the scatter load map 

xf 

scatsort () 

{ 
register struct scatter *s, *sf; 
register int j, k, n, *ip, *jp; 
register short i; 


fe 
* clear scatter sort array 
*f 

ip = scsortmap; 

i = ((v.v_nscatload+31) >> 5) - 1; 


do 
tipt+ = 0; 
while (--i {= -1); 
ft 
* build bit map of free pages 
xf 


s = scatmap; 
sf = &scatfreelist; 
ip = scsortmap; 


for (j = sf->sc_index; j != SCATEND; j = s[j].sc_index) 


ip[j>>5] |= 1 << (j&31); 
[* 
* rebuild freelist 
*/ 
n= G0; 
sf->sc_index = SCATEND; 
J = ((v.v_nscatload+31) >> 5) - i; 
jp = &scsortmap[j]; 
for (7 } >= 0; j--, jp--) { 
if (*jp == 0) 
continue; 
for (k=31; k>=0; k--) { 
Af (*4}pé(1<<k)) { 
nit; 
i = sf->sc_index; 
sf->sc_index = (j << 5) + k; 
s((j] << 5) + k].sc_index = i; 


} 
} 
nscatfree = n; 


} 
¥endif 
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fe mbuf.c 1.36 82/06/20 *f 


#include "sys/param.h" 
#include “sys/config.h® 
#include “sys/types.h" 
finclude "sys/mmu.h" 
#include “sys/sysmacros.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “"sys/errno.h" 
#include “sys/user.h" 
#include “sys/proc.h" 
#include “net/misc.h" 
#include “net/mbuf.h" 
#include “sys/map.h" 
#include “net/in_systm.h" #* XXX */ 


/* some random constants, ints */ 


/* THIS SHOULD BE AN EVEN CLICK NUMBER OF BYTES [!! */ 
{* 

#define IOSIZE 8192 
#define IOSIZE 0 


/* area for DMA buffers */ 
/* no space for DMA buffers for muitibus */ 


/* unsigned int miosize = IOSIZE; */ 


unsigned int miobase; /* loc of DMA area. */ 


f* 
* Initialize the buffer pool. Called from netinit/main. 
xf 

mbinit () 

{ 

register i; 
register struct mbuf *m; 
extern struct mbuf * mballoc(); 


/* allocate mbuf io area. iomalloc is machine-dependent... */ 
/* miobase = mbioalloc(btoc(miosize)j}; */ 

miobase = mbioalloc{); 

/* link the mbufs */ 

m= mballoc(); 

{* 

printf("mbufs at &x\n", m); 

x} 

mbstat.m_mbufs = NMBUFS; 


for(i=0 ; i<NMBUFS ; itt) { 
m->m_off = 0; 
m->m_free = 0; 
bzero((char *)m, MSI2ZE); 
(void) m free(m); 
mit; ~ 


/* NEED SOME WAY TO RELEASE SPACE */ 


/* 
* Space allocation routines. 
* These are also available as macros 
* for critical paths. 
af 
/* ARGSUSED */ 
struct mbuf * 
m_get (canwait) 
int canwait; 
{ 
register struct mbuf *m; 
#ifdef PRMDEF 
struct cail { 
lang lacal; 


tendif 


#ifdef 


#endif 


} 


long frmptr; 
long raddr; 
he 
int i; 
register struct call * cp = &i; 
extern dog pr; 
register olddogpr = dog pr; 


if (dog_pr) {printf("<mget from %x>",cp->raddr); dog pr = 0;} 
MGET(m, Canwait); 
PRMDEF 
if (olddogpr) 
dog _pr = i; 


return {m); 


struct mbuf * 
m_free (m) 


{ 


} 


struct mbuf *m; 
register struct mbuf *n; 


MFREE(m, 0); 
return (n); 


m_freem{m) 


{ 


} 
{* 


register struct mbuf *m; 


register struct mbuf *n; 
register int s; 


if (m — NULL) 
return; 
s = splimp(): 
do { 
MFREE(m, n); 
} while (m = nj; 
splx(s); 


* Mbuffer utility routines. 


af 


struct mbuf * 
m_copy(m, off, len) 


register struct mbuf *m; 
int off; 
register int len; 


register struct mbuf *n, **np; 
struct mbuf *top; 


if (len == 0) 
return (0); 
if (off < 0 {{ len < 0) 
panic ("m_copyl"); 
while (off > 0) { 
if (m = 06) 
panic ("m_copy2"); 
if (off < m->m_len) 
break; 
off -= m->m_len; 
m = m->m_next; 
} 
MAP SAVE (); 
np = &top; 
top = 0; 
while (len > 0) { 
if (m= 0) { 
if {len j= M_CCPYALL) 
panic("m_copy3"); 
break; 
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out: 


} 


} 
MGET(n, 1); 
snp =n; 
af (n = Q) 
gote nospace; 
->m len = MIN(len, m->m len - off}; 


{ 
n->m_off = MMINOFF; 


MBCOPY (m, of f,n,0, (unsigned)n->m_Len); 
} 
if (len != M_COPYALL) 
len -= n->m_len: 
off = 0; 
m = m->m_next; 
np = &n~->m_next; 
} 


goto out; 

nospace: 
m_freem(top) ; 
top = 0; 


MAPREST {)? 


return (top); 


m_cati(m, n) 


{ 


} 


register struct mbuf *m, *n; 


while (m->m_next) 
m = m~>m_next; 
while (n) { 
if (m->m_off >= MMAXOFF | | 
m->m_off + m->m_len + n->m_len > MMAXOFF) { 
/* just join the two chains */ 
m->m_next = n; 
return; 
} 
/* splat the data from one into the other */ 
MBCOPY(n, 0, m, m->m_len, (u_int)n->m_len); 
m->m_len += n~>m_len; 
n = m_free(n); 


m_adj(mp, len) 


struct mbuf *mp; 
register int len; 


register struct mbuf *m, *n; 


if ((m = mp) == NULL) 
return; 
if (len >= 6) { 
while (m |= NULL && len > 0) { 
if (m->m_len <= len) { 
len -= m->m_len; 
m->m_len = 0; 
m = m->m_next; 
} else { 
m->m_len -= len; 
m->m_off += len; 
break; 


} 
) else { 
/* a 2 pass algorithm might be better */ 
len = -len; 
while (len > 0 && m->m_len != 0) [ 
while (m != NULL && m->m len != 0) { 
n= nm; 7 
m =~ m->m_next; 
} 
if (n->m_len <= len) { 
len -= n->m_len; 
n->m_len = 0; 


m= mp; 

} else { 
n->m_len -= len; 
break; 


} 


struct mbuf * 
m_pullup(m0, len) 
struct mburt *md; 
int len; 


register struct mbuf *m, *n: 
int count; 


n = mG; 

if (len > MLEN) 
goto bad; 

MGET(m, 0}; 

if (m = 0) 
goto bad; 

m->m_off = MMINOFF; 

m->m_len = 0; 

do { 
count = MIN(MLEN ~- m->m_len, len); 
if (count > n->m_len) 

count = n->m_len; 
MBCOPY{n, 0, m, m->m_len, (u_int)count); 
len -= count; 
m~>m_len += count; 
n->m_off += count; 
n=>m_len -= count; 
if (n->m_len) 
break; 

n = m_free(n); 

} while (n); 

if (len) { 
(void) m_free(m); 
goto bad; 

} 

m->m_next = n; 

return (m); 

bad: 
m_freem(n); 
return (0); 


} 


#ifdef notdef 
7* 
* Allocate a contiguous buffer for DMA IO. Called from if_ubainit(). 
* TODO: fix net device drivers to handle scatter/gather to mbufs 
* on their own; thus avoiding the copy to/from this area. 
*/ 
unsigned int 
m_ioget (size) 
{ 


unsigned int base; 


size = ((size + 077) & ~077); /* round up byte size */ 
if (size > miosize) return(0); 
miosize -= size; 
base = miobase; 
miobase += size; 
return (base); 
} 
tendif 


#ifdef debug 
mbprint (m, s) 
register struct mbuf *m; 
char *s; 
{ 
extern enprint; 
register char. *ha; 
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int col,i,be; } 


if (enprint == 0) return; 


MAPSAVE (); prmfree () 
nprintf ("MB %s\n",s); { 
for i::) f int i; 
if (m == 0) break; register struct call * cp = si; 
ba = mtod(m, char *); 
col = 0; be = m->m len; if {dof _pr) printf ("([MFREE from $x]",cp->raddr) ; 
nprintf("mto nextto offto lento act%o freeto\n", } 
m, m->m_next, m->m_off, m->m_len, m->m_click, 
m->m_free); endif 


for(; be ; be--) { 
i = *batt+ & 0377; 
nprintf("%o ",1); 
Lf(t++col > 31) { 
col = 9; 
nprintf("\n “); 
} 
} 
nprintf("\n"); 
m = m->m_next; 
} 
MAPREST (); 
} 


#else 
mbprint (m, s} 
register struct mbuf *m; 
char *s; 
{ 
#ifdef lint 
mbprint(m, s); 
fendif 
} 
fendif debug 


#tifdef notdef 

mecheck(m, msg) 

struct mbuf *m; 

char * msg: 

{ 
extern char mbufbufs[]; 
extern struct mbuf * mfreep; 
register x, ret = 0; 


x = spl7(): 
if ( ((m < (struct mbuf *)émbufbufs[0]) && (m != 0)) [I 
(m > (struct mbuf *) émbufbufs[ (NMBUFS+1)*MSIZE}) || 
((mfreep < (struct mbuf *)&mbufbufs[0]) && (mfreep != 0)) {| 
(mfreep > (struct mbuf *) émbufbufs[ (NMBUFS+1)*MSIZE]) ) { 
printf (“mcheck fail; m, mfreep = %x, %x, from %s\n", 
m,mfreep,msg); 
ret = 1; 
} 
Splx (x); 
return ret; 
} 
fendif 


#ifdef PRMDEF 

struct call { 
long local; 
long frmptr; 
long raddr; 

}e 


int dog_pr; 
int dof pr; 


prmget () 
{ 
int i; 
register struct call * cp = ai; 


if (dog pr) print£("<MGET from %$x>",cp->raddr) ; 
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mem, kmem and null devices. 


mh 
bh 
e 
a 


Memory special 
minor device 0 
minor device 1 
minor device 2 


s physical memory 
S kernel memory 
s EOF/RATHOLE 


Bm OR ab 


Fls pte fue 


BL 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/mmu.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
f#include “sys/dir.h" 
#include "sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/buf.h" 
#include "sys/systm.h" 
#include “setjmp.h"“ 


jx 
* mmread ~- read mem, kmem or null. 
xf 
mmread (dev) 
{ 
if (minor(dev) != 2) 
Immove (dev, B READ); 


f* not /dev/null */ 
} 


f* 
* mmwrite - write mem, kmem or null. 
xf 
mnwrite (dev) 
{ 
if (minor{(dev) == 2) { /* /dev/null, just gobble chars */ 
u.u_count = 0; 
return; 
} 
mmmove (dev, B WRITE); 
} 


/* 
* Tmmove - common routine for mmread and mmwrite 
xf 
mmmove (dev, flag) 
dev_t dev; 
{ 
register int pageoffs, count, prot; 


jmp_buf jb; 
int *saved_jb; 
int s; 
1f (minor(dev)==1 || minor(dev)==0) { /* kmem, mem */ 
do { 
S = spl7(); 
SEG1_0 = 1; /* system context */ 


/* SEG2_0= 1; /* system context */ 
prot = getmmu(({short *) (vtoseg(u.u_offset) | ACCLIM) }) &PROTMASK; 


SEG1_1 = i; /* user context */ 
/* SEG2 0 = 1; /* user context */ 
splx(s); 


/* printf ("u_base=0x%x offset=0x$x prot=O0x%x\n", u.u_base, u.u_offset, prot); */ 
if ((unsigned)u.u_offset < (unsigned)STDIO && prot |= ASRW) 
goto bad: 
pageoffs = u.u_offset & (ctob(1)-1); 
count = min( (unsigned) (ctob(1) - pageoffs), u.u_count); 
/* printf ("pageoffs=%d count=$d u.u_count=%d\n", pageoffs, count, u.u_count); */ 
saved jb = nofault; 
if (!setjmp(jb)) { 
nofault = jb; 
u.u_segflg = 0; 
idomove((caddr_t)u.u_offset, count, flag); 
} else 
y-u_error = ENXIO; 


bad: 


u.u_segflg = 0; 
nofault = saved jb; 
} while(u.u_error == 0 && u.u_count); 
return; 
} 


u.u_error = ENXIO; 
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f/* 


* ee eb te Oe 


f 


#include 
#include 
#include 
#include 
#include 
#include 


main (arg 


char **a 
{ 


out: 


mkfspm device 


Get the size of the Priam disk “device" and make a root 
filesystem in partition 0. This makes a filesystem using the 
entire disk except for the boot and swap areas. 


The raw device is specified, but both the block and character 
devices are expected to be available (created). The filesystem 
is made on /dev/pm?a where /dev/rpm?a is the argument. 


“stdio.h" 
“sys/types.h" 
“sys/sysmacros.h" 
“sys/uioctl.h" 
“sys/stat.h" 
“sys/swapsz.h" 


Cc, argv) 
rgov: 


register fp; 

register char *device; 
register char *cp; 

int pmsize; 

char spmsize[10]; 


device = *(argvt+l); 
if ((fp = open(device, 2)) < 6) 


goto out; 
if (ioctl(fp, UIOCSIZE, (caddr_t)&pmsize) < 0) 

goto out; 
ep = (char *)strchr(device, ‘r‘); /* cp points to ‘r’ in /dev/rpm?a */ 
for ( ; *cep; cptt) /* change to /dev/pm?a */ 


kop = *(cptl); 
sprintf (spmsize, “td", pmsize-PMNSWAP-101); 
printf("%s: %s blocks\n", device, spmsize); 
execl (“/etc/mkfslb", “mkfslb", device, spmsize, 0); 


perror ("mkfspm") ; 
exit(1); 
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{* 
* (C) 1984 UniSoft Corp. of Berkeley CA 

« 

* uniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 
* or used in any manner except as authorized in 

* writing by Unisoft. 

* 

* Mouse Driver 


* 
™ 


#include “sys/param.n" 
#include “sys/config.h" 
#include “sys/types.h" 
#include “sys/systm.h*" 
#include “sys/dir.n* 
#include “sys/signal.h" 
#include “sys/user.h" 
#include "“sys/proc.h" 
#include “sys/errno.h" 
#include "sys/file.h" 
#include “sys/tty.h" 
f#include “sys/termio.h" 
#include “"sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/reg.h" 
#include “sys/buf.h" 
#include “setjmp.h" 
#include “sys/cops.h" 
f#include "sys/local.h" 
#include “sys/elog.h" 
#include “sys/ms.h" 
#include “sys/mouse.h" 
#include “sys/mmu.h" 
#include “sys/kb.h" 
#include "sys/al_iocti.h" 


#define splms spl2 


/{* flags local to ms.c */ 
char mouseopen; /* active flag */ 
char msblkd; /* flag to sleep on when blocked */ 


/* also used in ll.c (vertical retrace interrupt code) */ 
struct msparms mparm; /* place to save ioctl data */ 
struct proc *msproc; /* controlling process for mouse */ 
char msvrmsk; /* mask of low bits of retrace counter */ 


/* values set in kb.c */ 
extern char ms plg, ms_btn; /* mouse plugged-in and button state */ 
extern short ms_ row, ms_col; /* last received row and column */ 
extern time t lbolt; 


#define QUELEN 128 

typedef unsigned long mem _t; 

int mglen; 

mem_t *mqlo, *mqhi; /* high and low pointers into ... */ 
mem_t mqbuf (QUELEN] ; /* ring buffer for mouse data */ 
mem _t mtim[QUELEN]; 


msopen(dev, flag) 
dev_t dev; 


{ 


if (dev != 0) { /* minor device number is wrong */ 
u.u_error = ENXIO; 
return; 

} 

if (ms_plg) { /* mouse is net plugged in */ 
u.u_error = ENODEV; 
return; 

} 

1f£ (flag != 1) { /* open for writing {! */ 
u.u_error = EINVAL; 
return; 


} 
jk 


if ({u.u_ttyd != CONSOLE) { /* Controlling tty not bitmap */ 
u.u_error = EPERM; 
return; 

} 


if (mouseopen++ > 0) { /* already opened */ 
u.u_error = EBUSY; 
return; 

} 

splms(); 

msproc = u.u_procp; 

mghi = mglo = mgqbuf; 

mglen = 0; 

mparm.mp irate = 28; 

mparm.mp fdlay = 300; 

mparm.mp flags = MF_ BUT; 

12copscmd (MOUSEON) ; 

spl6(): 


* Reset everything since code elsewhere (in ll.c) uses it. 


*} 


/* ARGSUSED */ 
msclose{dev, flag) 


{ 


t 


if (mouseopen <= 0) 
u.u_error = EINVAL; 
else { 
SPL6(}; 
Mouseopen = 0; /* only accessed in ms.c */ 
mghi = mglo = mqbuf; 
mgqlen = @; 
mparm.mp irate = 4; 
Mparm.mp fdlay = 0; 
mparm.mp flags = 0; 
msvrmsk = 0; 
12copscemd (MOUSEOFT) ; 
SPLO(); 


msstrategy (bp) 
register struct buf *bp; 


{ 


register mem t *rp; /* reciever buffer pointer */ 
register int i; /* record count */ 


/* Make sure the mouse is plugged in and the read request is for a 
* multiple of the record size. 


x} 


if (ms_plg) { /* mouse unplugged */ 
u.u_error = ENODEV; 
goto fail; 

} 

if {bp->b_bcount «& 3) { 
u.u_error =~ EINVAL; 


/* count not multiple of record size */ 


bp->b_resid = bp->b_bcount; 
iodone (bp) ; 
return; 
} 
if (mqlo == mghi) { /* queue empty */ 
if ((int)mparm.mp irate <= 0) /* mouse shutdown */ 
u.u_error = EIO; 
splims(): 
if (mparm.mp flags & MF BLK) { /* block till record avail */ 
msblkd = 1; 
while (msblka) 
{(vold) sleep({(caddr_t)&msblkd, TTIPRI); 
goto ok; 
} 
spl10{); 
goto fail: 
} 


spims(): /* so msintr doesnt screw up que ptrs xf 
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ok: 
Af (Lbolt - mtim[mqlo-mgbuf] >= mparm.mp fdlay) { 
if (mparm.mp_ fdlay) 
msintr (M FLUSH); 
} 
rp = (mem_t *}bp->bun.b addr; /* start of receiver buffer */ 
for (i=bp->b_bcount; 1>0 && mglo != mghi; i -= 4) { 
*rpt+ = *mqlott; 
if (mqlo >= mqbuf + QUELEN) mglo = mqbuf; 
} 
bp~>b_resid = i; 
mglen -= (bp->b beount - i) >> 2; 
spl0(); 
lodone (bp) ; 
return; 
} 
struct buf rmsbuf; /* Buffer for raw input-output */ 
msread (dev) 
{ 
if ({msproc != u.u_procp) { 
u.u_error = BIO; 
return; 
} 
rmsbuf.b flags &= ~B_BUSY; 
physio(msstrategy, érmsbuf, dev, B_ READ); 
} 
msintr (kind) 


{ 


register struct msrecord *mp; 
union { 
struct msrecord mf_rec; 
unsigned long mf_long; 
} msr; 


if (imousecpen || mparm.mp_irate == 0) {/* mouse not active */ 
return; 
} 


if (ms _plg} { 
mqlo = mghi = mqbuf; 
mMqlen = 0; 


return; 

} 

msr.mf long = 0; /* clear new record */ 

mp = émsr.mf rec; /* get pointer to record structure */ 

switch (kind) { /* kind of interrupt */ 

case M FLUSH: /* auto flush (called from msintr,msstrategy) */ 
mp->mr_but = 1; 

case M PLUG: /* automatic reset (called from kbintr) */ 


mp->mr_reset = 1; 
mqlo = mqhi = mqbuf; 
mqlen = 1; 

mtim[{6] = lbolt; 
*mghit++ = msr.mf_long; 


return; 
case M BUT: /* mouse button changed (called from kbintr) */ 
if ((mparm.mp flags & MF _BUT) == 0) 
return; 
break; 
case M CTL: /* control key changed (called from kbintr) */ 
if ((mparm.mp flags & MF_CTL) == 0) 
return; 
break; 
case M SFT: /* shift key changed (called from kbintr) */ 
if ((mparm.mp_flags & MF_SFT) == 0) 
return; 
break; 
} 
if (mqlen) [{ /* check for invalid queue data */ 


if (lbolt - mtim[mqlo-mgbuf] >= mparm.mp fdlay) { 
if (mparm.mp_ fdiay) 


msintr(M FLUSH); 
} 
if (mglen >= QUELEN) 
return; 
} else { /* queue was empty */ 
{mparm.mp flags & MF SIG) 


psignal(msproc, SIGMOUS); 


He 
hh 


} 


mp->mr_but = ms btn ? 1: 0 
mp->mr_ctl = kb ctrl 21: 
mp->mr_sft = kb_shft 21: 
mp~>mr_time = lbolt & OxFFF; 
if (kind == M MOVE) { /* called from kbintr */ 
mp->mr_row = ms row; 
mp->mr_col = ms_col; 


G; 
a: 


} 
mtim[mghi - mqbuf] = lbolt; 
*mghit++ = msr.mf_long; 
mglent+; 
if (mqhi >= mqbuf + QUELEN) 
mqhi = mqbuf; 
if (msblkd) { 
msblkd = 0; 
wakeup ((caddr_t) émsblkd); 


} 


/* ARGSUSED */ 

msioctlidev, cmd, addr, flag) 

dev_t dev; 

int cmd; 

caddr t addr; 

int flag; 

{ 
register struct msparms *mp = émparm: 
int dlay, rate; 


switch (cmd) { 
case AL GMOUSE: 
if (mp->mp_qlen = mglen) { 
mp->mp_otime = lbolt - mtim[mqlo-mqbuf]; 
mp->mp_ytime = lbolt - mtim[(mghi-mqbuf-1]; 
} else { 
mp->mp_otime 
mp->mp_ytime 


va 


= 6 
= 0; 
} 
if (copyout((char *)mp, addr, sizeof({struct msparms})) 
u.u_errer = EFAULT; 
break; 
case AL SMOUSE: 
dlay = mp->mp_fdlay; 
rate = mp->mp_irate; 
if (copyin(addr, (char *)mp, sizeof{struct msparms))) 
u.u_error = EFAULT; 
else { 
if (mp->mp_fdlay) { 
if (mp->mp_fdlay < 20) { 


splms(); 

mp~>mp_fdlay = dlay; /* restore */ 
mgqlen = 0; 

mghi = mglo = mqbuf; 

spl0(); 


} else if (mp->mp_fdlay > 4095) 
mp->mp_fdlay = 4095; 
} 
if (mp->mp_irate != rate) { /* did int rate chg */ 
mp->mp irate = (mp->mp_irate + 3) & ~3; 
if (mp->mp_irate > 28) 
mp->mp_irate = 28; 
splms (); 
if (mp->mp_irate) 
12copsemd ( (char) ( (MOUSEONE~7) | (mp->mp_irate>>2))); 
else 
12copsemd (MOUSEOFF) ; 
spl0(); 
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} 
splms (); 
if (mp->mp_flags & MF _VRT) 
msvrmsk = mp->mp_flags & MF _VRATE; 

spl0(); 

} 

break; 

default: 
u.u_error = ENOTTY; 


} 
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/* @(#)}msg.c 1.3 */ 

fe 

a* Inter-Process Communication Message Facility. 
af 


#include "sys/types.h" 
#include “sys/param.h™ 
#include "sys/dir.h" 
#ifdef u3b 

#include “sys/istk.h" 
#endif 

#include “sys/signal.h" 
finclude “sys/user.h" 
#include “"sys/seg.h" 
f$include “sys/proc.h" 
#include “sys/buf.h" 
#include “sys/errno.h" 
#include “sys/map.h" 
#include “sys/ipc.h" 
#include “sys/msg.h" 
#include “sys/systm.h" 


#ifdef vax 

#include “sys/page.h" 

#endif 

#ifdef u3b 

#include "sys/macro.h" 

#else 

#include "“sys/sysmacros.h" 

#endif 

extern struct map msgmap[]; /* msg allocation map */ 

extern struct msqid_ds msgque[]; /* msg queue headers */ 

extern struct msg msgh[]; /* message headers */ 

extern struct msginfo msginfo; /* message parameters */ 

extern char msgspace[]; /* space for message buffers */ 
struct msg amsgfp; /* ptr to head of free header list */ 
paddr t msg: /* base address of message buffer */ 
extern time _t time; /* system idea of date */ 
struct ipc_ perm *ipeget (); 

struct msqid_ds *msgconv (); 


/* Convert bytes to msg segments. */ 
#define btoq(X} ((X + msginfo.msgssz - 1) / msginfo.msgssz) 


/* Choose appropriate message copy routine. */ 
#ifdef pdpll 
#define MOVE msgpimove 


#else 
#define MOVE lomove 
#endif 
/* 
ae msgcony - Convert a user supplied message queue id into a ptr toa 
ne msgid _ds structure. 
xf 
struct msgid ds * 
msgconv (id) 
register int id; 
{ 
register struct msqid_ds *qp; /* ptr to associated q slot */ 


qp = &msgque[ (short) (id % msginfo.msgmni) ]; 
if((qp->msg_perm.mode & IPC_ALLOC) == 0 || 
id / msginfo.msgmni != gp->msg_perm.seq) { 
u.u_error = EINVAL; 
return (NULL); 
} 


return (gp); 
} 
f/* 
=e msgctl - Msgctl system call. 
af 


msgctl1 () 
{ 
register struct a { 
int msgid, 
cmd; 
struct msqid_ds *buf: 
} *uap = (struct a *)u.u_ap; 
struct msqid_ds ds; /* queue work area */ 
register struct msqid ds *qp; /* ptr to associated q */ 


if(({qp = msgconv(uap->msgid)) == NULL) 
return: 
u.u_rvall = 0; 
switch (uap->cmd) { 
case IPC_RMID: 
if(u.u_uid != qp->msg_perm.uid && u.u_uid != gp->msg_perm.cuid 
&& !suser()) 
return; 
while (qp->msg_first) 
msgfree(qp, {struct msg *)NULL, qp->msg_first); 
qp->msg_cbytes = 0; 
if(uap->msgid + msginfo.msgmni < 0) 
qp->msg_perm.seg = 0; 
else 
qp->msg_perm.seqt+; 
if(qp->msg_perm.mode & MSG RWAIT) 
wakeup ({caddr_t) &éqp->msg_qnum); 
if (qp->msg_perm.mode & MSG WWAIT) 
wakeup ({caddr_t)qp): 
qp->msg_perm.mode = 0; 
return; 
case IPC_SET: 
if(u.u_uid != qp->msg_perm.uid && u.u_uid != gp->msg_perm.cuid 
&& !suser{)) 
return; 
if(copyin({caddr_t)uap->buf, (caddr_t)éds, sizeof(ds))) { 
u.u_error = EFAULT; 
return; 
} 
if(ds.msg_qbytes > qp->msg_qbytes && !suser()} 
return; 
qp->msg_perm.uid = ds.msg_perm.uid; 
qp->msg_perm.gid = ds.msg_perm.gid; 
qp->msg_perm.mode = (qp->msg_perm.mode & ~O777) | 
(ds.msg_perm.mode & 0777); 
gp->msg_gbytes = ds.msg_qbytes; 
qp->msg_ctime = time; 
return; 
case IPC_STAT: 
if (ipcaccess(&qp->msg_perm, MSG R)} 
return; 
if (copyout ((caddr_t)qp, (caddr_t)uap->buf, sizeof(*qp))) { 
u.u_error = EFAULT; 


return; 
} 
return; 
default: 
u.u_error = EINVAL; 
return; 
} 
} 
/* 
xe msgfree - Free up space and message header, relink pointers on q, 
<x and wakeup anyone waiting for resources. 
*/ 
msgfree(qp, pmp, mp) 
register struct msgid ds *qp: /* ptr to gq of mesg being freed */ 
register struct msg *ND, /* ptr to msg being freed */ 


*pmp; /* ptr te mp’s predecessor */ 
{ 
/* Unlink message from the q. */ 
if(pmp == NULL) 
qp->msg_first = mp->msg_next; 
else 
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pmp->msg_ next = mp->msg_next; 
if(mp->msg_next == NULL) 
gp->msg_last = pmp; 
qp->msg_qnum-—; 
if(qp->msg_perm.mode & MSG WWAIT) { 
qp->msg_perm.mode &= ~MSG WWAIT; 
Wakeup ((caddr_t)qp); 
} 


/* Free up message text. */ 
if (mp->msg_ts) 
mfree(msgmap, btoq(mp->msg_ ts), mp->msg_spot + 1); 


/* Free up header */ 
mp->msg_ next = msgfp; 
if(msgfp == NULL) 
wakeup({ (caddr_t)émsgfp); 


msgfp = mp; 
} 
/* 
nk msgget - Msgget system call. 
*f 
msgget (} 
{ 
register struct a { 
key t key; 
int msgflg: 
} *xuap = (struct a *)u.u_ap; 
register struct msgid_ds *qp; /* ptr to associated q */ 
int s; /* ipcget status return */ 
if((qp = (struct msqid_ds *) 
ipeget (uap->key, uap->msgflg, (struct ipc_perm *)msgque, 
msginfo.msgmni, sizeof(*qp), £S)) == NULL) 
return; 
if(s) { 
/* This is a new queue. Finish initialization. */ 
qp->msg_ first = NULL; qp->msg_last = NULL; 
qp->msg_qnum = 0; 
gp->msg_qbytes = msginfo.msgmnb; 
qp->msg_lspid = 0; qp->msg_lrpid = 0; 
gp->msg_stime = 0; qp->msg_rtime = 0; 
qp->msg_ctime = time; 
} 
u.u_rvall = qp->msg_perm.seq * msginfo.msgmni + (qp - msgque); 
} 
7* 
ae msginit - Called by main(main.c) to initialize message queues. 
xf 
msginit () 
{ 
register int is /* loop control */ 
register struct msg *mp; /* ptr to msg begin linked */ 
#ifndef mc68000 
register int bs; /* message buffer size */ 
#endif 


/* Allocate physical memory for message buffer. */ 
#ifndef mc6s000 
bs = (long)msginfo.msgseg * msginfo.msgssz; 
fendif 
#ifdef mcés8000 
msg = (paddr_t) msgspace; 
#endif 
#ifdef pdpil 
if((msg = (paddr_t)ctob( (long) (unsigned) malloc (coremap, 
bs=(int) btoc((long)msginfo.msgseg * msginfo.msgssz)}}) == 0) { 
#endif 
#ifdef vax 
if((msg = (paddr_t)sptalloc(bs=btoc(msginfo.msgseg * msginfo.msgssz}), 
PG V | PG_KW, 0)) == NULL) { 


#endif 
#ifdef u3b 
if{(msg = (paddr_t)kseg(RW, btop(msginfo.msgseg * msginfo.msgssz))) == 
NULL) { 
tendif 


#ifndef mc6s000 
printf("Can’t allocate message buffer.\n"); 
msginfo.msgseg = 0; 
} 
fendif 
mapinit (msgmap, msginfo.msgmap) ; 
mfree({msqmap, (int)}msginfo.msgseg, 1); 
for(i = 6, mp = msgfp = msgh;++i < msginfo.msgtql;mptt) 
mp->msg_next = mp + 1; 
f#ifdef vax 
Maxmem -= bs; 


Fendif 

#ifdef mc6s060 
return; 

#endif 


#ifdef pdpll 
return (bs); 

tendif 

} 


#ifdef pdpll 


/* 
ee msgpimove - PDP 11 pimove interface for possibly large copies. 
xf 
msgpimove (base, count, mode) 
paddr t base; /* base address */ 
register unsigned count; /* byte count */ 
int mode; /* transfer mode */ 
{ 
register unsigned tcount; /* current transfer count */ 


while(u.u_error == 0 && count) { 
tcount = count > 8064 ? 8064 : count; 
pimove (base, tcount, mode); 
base += tcount; 
count -= tcount; 


} 
#endif 


f* 
a% msgrcv - Msgrcv system call. 
xf 


msgrcv () 


{ 
register struct a { 


int msqid; 
struct msgbuf *msgp; 
int msgsz; 
long msgtyp; 
int msgflg; 
} *uap = (struct a *)u.u_ap; 
register struct msg amp, /* ptr to msg on q */ 
*pmp, /* ptr to mp’s predecessor */ 
*smp, /* ptr to best msg on q */ 
*spmp; /* ptr to smp’s predecessor */ 
register struct msqid ds *qp; /* ptr to associated q */ 
int = SZ; /* transfer byte count */ 


if((qp = msgconv({uap->msqid)) == NULL) 
return; 

if (ipeaccess(&qp->msg_perm, MSG R)) 
return; 

if(uap->msgsz < 6) { 
u.u_error = EINVAL; 
return; 

} 

smp = NULL; spmp = NULL; 

findmsg: 
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pmp = NULL; 
mp = qp->msg_first; 
iff(uap->msgtyp == 9) 


smp = mp; 
else 
for(;mp;pmp = mp, mp = mp->msg_next) { 
if(uap->msgtyp > 6) { 
if(uap->msgtyp != mp->msg_type) 
continue; 
smp = mp; 
spmp = pmp; 
break; 
} 
if (mp->msg_type <= -uap->msgtyp) { 
if(smp && smp->msg_type <= mp->msg_type) 
continue; 
smp = mp; 
spmp = pmp; 
} 
} 
if(smp) { 


if(uap->msgsz < smp->msg_ts) 
if(!(uap->msgflg & MSG NOERROR)) { 
u.u_error = E2BIG; 
return; 
} else 
SZ = vap->msgsz; 
else 
sz = smp->msg_ts; 
(void) copyout ((caddr_t)ésmp->msg_type, (caddr_t)uap->msgp, 
sizeof (smp->msg_type)}; 
if(u.u_error) 
return; 
ifisz) { 
u.u_base = (caddr_t)uap->msgp + sizeof(smp->msg_type); 
u.u_segflg = 0; 
MOVE ((caddr_t) (msg + msginfo.msgssz * smp->msg_spot), 
sz, B_READ); 
if (u.u_error) 
return; 
} 
u.u_rvall = sz; 
aQp->msg_cbytes -= smp->msg ts; 
qp->msg_lrpid = u.u_procp->p_ pid; 
qp->msg_rtime = time; 
curpri = PMSG; 
msgfree(qp, spp, smp); 
return; 
} 
if(uap->msgflg & IPC_NOWAIT) { 
u.u_error = ENOMSG; 
return; 
i 
qp->msg_perm.mode |= MSG RWAIT; 
if (sleep ((caddr_t) &qp->msg_qnum, PMSG | PCATCH)) { 
u.u_error = EINTR; 
return; 
} 
if (msgconv(uap->msqid) == NULL) { 
u.u_error = EIDRM; 
return; 
} 
goto findmsg; 
} 


jn 
ae msgsnd - Msgsnd system call. 
af 


msgsnd () 


{ 


register struct a { 


int msqid; 
struct msgbuf *msgp; 
int mSgsz; 


int msgflg; 


} *xuap = (struct a *)u.u_ap; 
register struct msqid_ds *qp; /* ptr to associated q */ 
register struct msg *mp; 7* ptr to allocated msg hdr */ 
register int cnt, /* byte count */ 

spot; /* msg pool allocation spot */ 
isng type: f* msg type */ 


if({qp = msgconv{uap->msqid)) == NULL) 


return; 
if (ipcaccess (&qp->msg_perm, MSG W)) 
return; 
if({eont = uap->msgsz} < 0 |}! cnt > msginfc.msgmax) { 
u.u_error = EINVAL; 
return; 


} 
(void) copyin((caddr_t)uap->msgp, (caddr_t)étype, sizeof(type)); 
if(u.u_error) 
return; 
if(type < 1) { 
u.u_error = EINVAL; 
return; 
} 
getres: 
/* Be sure that q has not been removed. */ 
if (msgconv(uap->msqid) == NULL) { 
u.u_error = EIDRM; 
return; 
} 


/* Allocate space on q, message header, & buffer space. */ 
if(ent + qp->msg_cbytes > qp->msg_qbytes) { 
if(uap->msgflg & IPC_NOWAIT) { 
u.u_error = EAGAIN; 
return; 
} 
qp->msg_perm.mode |= MSG WWAIT; 
if(sleep((caddr_t)qp, PMSG | PCATCH)) { 
u.u_error = EINTR; 
qp->msg_perm.mode &= ~MSG WWAIT; 
wakeup ((caddr_t}qp); 
return; 
} 
goto getres; 
} 
if(msgfp == NULL) { 
if(uap->msgflg & IPC_NOWAIT) { 
u.u_error = EAGAIN; 
return; 
} 
if(sleep((caddr_t)&msgfp, PMSG | PCATCH)) { 
u.u_error = EINTR; 
return; 
} 
goto getres; 
} 
if(cnt && (spot = malloc(msgmap, btoqicnt))) == NULL) { 
if{uap->msgflg & IPC_NOWAIT) { 
u.u_error = EAGAIN; 
return; 
} 
mapwant (msgmap) ++; 
if(sleep((caddr_t})msgmap, PMSG | PCATCH)) { 
u.u_error = EINTR; 
return; 
} 
goto getres; 
} 


/* Everything is available, copy in text and put msg on q. */ 
if(cent) { 
u.u_base = (caddr_t)uap->msgp + sizeof (type); 
u.u_segflg = 0; 
MOVE (({caddr_t) (msg + msginfo.msgssz * -~spot), cnt, B WRITE); 
if(u.u_error) { 
mfree(msgmap, btog(cnt), spot + 1); 
return; 
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} 
fe 


kk 
xk 


*/ 


nmsgsys() 
{ 


} 

} 

qp->msg_qnumt+; 

qp->msg_cbytes += cnt; 

qp->msg_lspid = u.u_procp->p_pid; 

qp->msgq_stime = time; 

mp = msgfp; 

msgfp = mp->msg_next; 

mp->msg_ next = NULL; 

mp->msg_type = type; 

mp->msg_ts = cnt; 

mp->msg_ spot = cnt ? spot : -l; 

if(qp->msg_last == NULL) { 
qp->msg_first = mp; qp->msg_last = mp; 

} else { 
qp->msg_last->msg_next = mp; 
qp->msg_last = mp; 

} 

if(qp->msg_perm.mode & MSG RWAIT) { 
gp->msg_perm.mode &= ~MSG RWAIT; 
curpri = PMSG; 
wakeup((caddr_t) éqp->msg_qnum); 

} 

u.u_rvall = 0; 


msgsys ~ System entry point for msgctl, msgget, msgrcev, and msgsnd 
system calls. 


int msgct1(), 
msgget(}, 
msgrcv(), 
msgsnd{); 
static int (*calls[])() = { msgget, msgctl, msgrcv, msgsnd }; 
register struct a { 
unsigned id; /* function code id */ 
int kap; /* arg pointer for recvmsg */ 
} *uap = (struct a *)u.u_ap; 


if(uap->id > 3) { 
u.u_error = EINVAL; 
return; 

} 

u.u_ap = éu.u_arg[1]; 

(*calls[uap->id]) (); 
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/* @(#)name.c 1.1 */ 
f#include "sys/utsname.h" 


#ifdef lint 


#define sys "sys" 
#define NODE “node" 
#define REL "rel" 
#define VER "ver" 


#define MACH m68000" 
#define TIMESTAMP “timestamp" 
#endif 
struct utsname utsname = { 
SYS, 
NODE, 
REL, 
VER, 
MACH, 
I: 


char timestamp[] = TIMESTAMP; 


1986 
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/* #define HOWFAR */ 


/* @(#)nami.c 1.2 */ 
#include “sys/param.h" 
#include "sys/types.h" 
#include “sys/systm.h" 
#include “sys/sysinfo.h" 
#include “sys/inode.h* 
#include “sys/mount.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h™ 
#include *sys/errno.h* 
#include “sys/buf.h®* 
#include “sys/var.h" 


/* 
Convert a pathname into a pointer to 
an inode. Note that the inode is locked. 


* 
* 
k 
* func = function called to get next char of name 
x éuchar if name is in user space 
* &schar if name is in system space 
* flag = 0 if name is sought 
* 1 if name is to be created 
* 2 if name is to be deleted 
xf 
struct inode * 
namei(func, flag) 
int (*func) ();: 
{ 
register struct user *up; 
register struct inode *dp; 
register c; 
register char *cp; 
register struct buf *bp; 
register i; 
dev_t d; 
off t eo; 


/* 
* If name starts with ‘/’ start from 

* root; otherwise start from current dir. 
xf 


up = &u; 

sysinfo.nameit+; 

¢ = (*func) (}; 

if (c == "\Or) { 
up->u_error = ENOENT; 
return (NULL) ; 


if {ec == '/") { 
if ({dp = up->u_rdir) == NULL) 
dp = rootdir; 
while(c == ‘/') 
c= (*func) (); 
lf(c == ‘\0" && flag != 0) { 
up->u_error = ENOENT; 
return (NULL); 
} 
} else 
dap = up->u_cdir; 
(void) iget(dp->i_dev, dp->i_number); 


cloop: 
/* 
* Here dp contains pointer 


* to last component matched. 
xf 


if (up->u_error) 
goto out; 

if(c == *\0") 
return(dp); 


f* 

* If there is another component, 

* gather up name into users’ dir buffer. 
xf 


cp = é&up->u_dent.d_name[0]; 
while(c != ‘/! && c l= ‘\Q" && up->u_error = 90) { 
if(cp < sup->u_dent.d_name[DIRSI2Z])} 
*cptt+ = c; 
c = (*func) (); 
} 
while(cp < éup->u_dent.d_name[DIRSI2Z]) 
eeptt = "\O'; 


#ifdef HOWFAR 


#endif 


seloop: 


printf ("nami:about to scan for ‘%s‘\n", up->u_dent.d name); 


while(c == ‘/') 
c = (*func) (); 


fr 
* dp must be a directory and 
* must have X permission. 

*/ 


#ifdef HOWFAR 


#endift 


eloop: 


/* printf("nami:directory mode = 0%o\n", dp->i_mode&OxFFFF); */ 


if ((dp->i_modesIFMT) != IFDIR || dp->i_nlink==0) 
up->u_error = ENOTDIR; 

else 
(void) access(dp, IEXEC); 

if (up->u_error) 


goto out; 
f* 
* set up to search a directory 
af: 


up->u_offset = 0; 

up->u_count = dp->i_size; 

up->u_pbsize = 6; 

eo = 0; 

bp = NULL; 

if (dp == up->u_rdir) 

if (up->u_dent.d_name[0] == ’.7) 

if (up->u_dent.d_name[i] == ’.‘) 

if (up->u_dent.d_name[2] == 7\0") 
goto cloop; 


* If at the end of the directory, 
* the search failed. Report what 
* is appropriate as per flag. 

*/ 


if (up->u_count == 0) { 
if(pp [= NULL) 
brelse (bp) ; 
if(flag=—1 && c='\0') { 
if(access(dp, IWRITE)) 
goto out; 
up->u_pdir = dp; 
if (eo) 
up->u_offset = eo ~ sizeof{struct direct); 
up->u_count = sizeof(struct direct); 
{void) bmap(dp, B_WRITE); 
if (up->u_error) 
goto out; 
return (NULL) : 
} 
up->u_error = ENOENT; 
goto out; 


nami.c Fri Sep 5 19:07:55 1986 2 


i* iput (dp); 
* If done with current block, dp = iget(d, up->u_dent.d_ine); 
* read the next directory block. if(dp == NULL) 
* Release previous if it exists. return (NULL) ; 
x} goto cloop; 
if (up->u_pbsize == 0) { out: 
daddr t bn: iput (dp); 
~ return (NULL); 
if(bp {= NULL) } 
brelse (bp); 
sysinfo.dirblkt+; fk 
bn = bmap(dp, B_READ); * Return the next character from the 
if {up->u_error) * kernel string pointed at by dirp. 
goto out; xf 
if (pn < 6) { schar ()} 
up->u_error = EIO; { 
‘oto out; 
} 5 return (*u.u_dirptt+ & 0377); 
bp = bread{dp->i_dev, bn); } 
if (up->u_error) { 
brelse (bp) ; {* 
gote out; * Return the next character from the 
} * user string pointed at by dirp. 
} xf 
uchar () 
f* { 
* Note first empty directory slot register c; 
* in eo for possible creat. 
* String compare the directory entry c = fubyte((caddr_t)u.u_dirptt+); 
* and the current component. if(c = -1) 
* If they do not match, go back to eloop. u.u_error = EFAULT; 
xf return(c); 
} 


cp = bp->b_un.b addr + up->u_pboff; 
up->u_offset t= sizeof(struct direct}; 
up->u_pboff t= sizeof{struct direct); 
up->u_pbsize -= sizeof(struct direct); 
up->u_count -= sizeof(struct direct); 
up->u_dent.d_ino = ({struct direct *)cp)->d_ino; 
if(up->u_dent.d_ino = 6) { 
if(eo = 0) 
eo = up->u_offset; 
goto eloop; 
} 
cp = &((struct direct *)cp)->d_name[0]; 
for(i=0; i<DIRSI2Z; i++) 
if(*cpt+ != up->u_dent.d_name[i]) 
goto eloop: 


/* 
* Here a component matched in a directory. 
* If there is more pathname, go back to 


* cloop, otherwise return. 
xf 


if(bp != NULL) 
brelse (bp) ; 
if (flag==2 && c=="\0") { 
if(access(dp, IWRITE))} 
goto out; 
return (dp); 
} 
d = dp->i_dev; 
if (up->u_dent.d_ino == ROOTINO) 
if (dp->i_number == ROOTINO) 
if(up->u_dent.d_name[1] ma f Jf) 
for(i=1; i<v.v_mount; i++) 
if (mount [ (short)i].m_flags == MINUSE) 
if(mount [(short)i].m_dev == d) { 
iput (dp); 
dp = mount [{(short)i].m_inodp; 
dp->i_countt++; 
plock (dp); 
goto seloop; 
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fx ipce.c 4.20 82/06/20 xf 

#include “sys/param.h" 

#include “sys/config.h" 

finclude “sys/types.h" 


#include 
#include 
#include 
#include 
#include 
#include 
tinclude 
#include 
#include 
#include 
-#include 
#include 
{* 
#include 
xf 
#include 
#include 
#include 
#include 
#include 


Socke 


These 


TODO: 


f* 


* Socke 


“sys/mmu.h" 
“sys/sysmacros.h" 
“sys/systm.h" 
“sys/signal.h" 
"“sys/errno.h" 
“sys/dir.h" 
"“syvs/user.h" 
"sys/proc.h" 
“sys/file.h" 
“sys/inode.h" 
“sys/buf.h" 
“net/misc.h" 


“net /mbuf.h* 

“net /protosw.h" 
"net /socket.h" 
"net/socketvar.h" 
"net/in.nY 
"net/in_systm.h" 


t system call interface. 


routines interface the socket routines to UNIX, 


* 
* 
x 
* isolating the system interface from the socket-protocol interface. 
* 
* 
* 


SO_INTNOTIFY 


& system call interface. Copy sa arguments 


* set up file descriptor and call internal socket 


* creat 
xf 
ssocket ( 


{ 


bad: 


ion routine. 
) 


register struct ua { 
int type; 
struct sockproto *asp; 
struct sockaddr *asa; 
int options; 
} *uap = (struct ua *)u.u ap; 
struct sockproto sp; * 
struct sockaddr sa; 
struct socket *so; 
register struct file *fp; 


lf ((fp = falloc((struct inode *)0, FSOCKET|FREAD|FWRITE)) == NULL) 
return; 
if (uap->asp && copyin((caddr_t)uap->asp, (caddr_t)ésp, sizeof (sp)) || 
uap->asa && copyin((caddr_t)uap->asa, (caddr_t)&ésa, sizeof (sa))) { 
u.U_error = EFAULT; 
fp->f_count = 0; 
fp->f_next = ffreelist; 
ffreelist = fp; 
return; 
} 
u.u_error = socreate(é&so, uap->type, 
uap->asp ? &sp : 0, uap->asa ? &sa : 0, uap->options); 
if (u.u_error) 
goto bad; 
fp~>f_socket = (off_t)so; 
return; 


u.u_ofile{u.u_rvall} = 0; 
fp->f_count = 0; 
fp~>f_next = ffreelist: 
ffreelist = fp; 


} 


f* 
* Accept system call interface. 
xf 
saccept (} 
{ 
register struct a { 
int fdes; 
struct sockaddr *asa; 
} *uap = (struct a *)u.u_ap; 
struct sockaddr sa; 
register struct file *fp; 
struct socket *so; 
int s; 


if (uap->asa &€& useracc((caddr_t)uap->asa, sizeof {sa), B_WRITE)==0) { 


u.u_error = EFAULT; 
return; 

} 

fp = getf(uap->fdes); 

if (fp = 6) 
return; 

if ((fp->f_flag & FSOCKET) == 0) { 
u.u_error = ENOTSOCK; 
return; 

} 

s = splnet(); 

so = (struct socket *)fp->f_socket; 

if ({so->so_state & SS NBIO) && 

{so->so_state & SS_CONNAWAITING) == 0) { 

u.u_error = EWOULDBLOCK; 
splxis); 
return; 

} 


while {({so->so_state & SS _CONNAWAITING) == 0 && so->so_error == 0) { 


if (so->so_state & SS_CANTRCVMORE) { 
SO->so_error = ECONNABORTED; 
break; 

} 


{vold} sleep((caddr_t})&so->so_timeo, PZERO+1}; 


} 
if (so->so_error) { 
u-U_error = so->so_ error; 
splx(s); 
return; 
} 
u.u_error = soaccept(so, &sa); 
if (u.u_error) { 
splx(s); 
return; 
} 
if (uap->asa) 


(void) copyout((caddr_t)ésa, (caddr_t)uap->asa, sizeof (sa)); 


/* deal with new file descriptor case */ 
/* a.u_r.r_vall = ... */ 
splx{s); 

} 


je 
* Connect socket to foreign peer; system call 


* interface. Copy sa arguments and call internal routine. 


*/ 
sconnect () 
{ 
register struct ua { 
int fdes; 
struct sockaddr *a; 
} *uap = (struct ua *)u.u_ap; 
struct sockaddr sa; 
register struct file *fp; 
register struct socket *so; 
int s; 


if (copyin((caddr_t)uap->a, (caddr_t)ésa, sizeof (sa))) ( 


u.u_lerror = EFAULT; 
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return; return; 
} if ((fp->f_flag & FSOCKET) =~ 6) { 
fp = getf(uap->fdes); u.U_error = ENOTSOCK; 
if (fp == 9) return; 
return; } 
Lf ((fp->f_flag & PSOCKET} == 0} { u.u_base = wap->cbuf; 
u.u_error = ENOTSOCK; u.u_count = uap->count; 
return; u.u_segflg = 0; 
} if (useracc{uap->cbuf, uap->count, B WRITE) = 0 || 
so = (struct socket *)fp->f_socket; wap->asa && copyin{(caddr_t)uap->asa, (caddr_t)&sa, sizeof ({sa))) { 
u.u_error = soconnect (so, &sa); u.u_error = EFAULT; 
if (u.u_error) return; 
“return; } 
s = splnet(); u.u_error = soreceive((struct socket *)fp->f_socket, uap->asa ? &sa : 0); 
if ((so->so_state & SS_NBIO) && if (u.u_error) 
{so->so_state & SS_ISCONNECTING)) { return; 
u.U_error = EINPROGRESS; if (uap->asa) 
splx(s); (void) copyout{(caddr_t)&sa, (caddr_t)uap->asa, sizeof (sa)); 
return; u.u_rvall = uap->count - u.u_count; 


} } 
while ((so->so_state & SS_ISCONNECTING) && so->so_error = 6) 


(void) sleep((caddr_t)&so->so_timeo, PZERO+1); /* 
u.u_error = so->so_error; * Get socket address. 
so->so_error = 0; 7 
splx(s); ssocketaddr () 
} { 
register struct a { 
{* int fdes; 
* Send data on socket. struct sockaddr *asa; 
xf } *uap = (struct a *)u.u_ap; 
ssend{) register struct file *fp; 
{ register struct socket *so; 
register struct a { struct sockaddr addr; 
int fdes; 
struct sockaddr *asa; fp = getf(uap->fdes) ; 
caddr t cbuf; if (fp = 4) 
unsigned count; return; 
} *uap = (struct a *)u.u_ap; if ((fp->f_flag & FSOCKET) = 6) { 
register struct file *fp; u.u_error = ENOTSOCK; 
struct sockaddr sa; return; 
5 
fp = getf(uap->fdes) ; so = (struct socket *)fp->f_socket; 
if (fp = 0) u.u_error = 
return; {*so->so_proto->pr_usrreq) (so, PRU_SOCKADDR, 0, {caddr_t)éaddr}; 
Af ((fp->f_flag & FSOCKET) = 6) { if (u.u_error) 
u.u_errer = ENOTSOCK; return; 
return; if (copyout({caddr_t)é&addr, (caddr_t)uap->asa, sizeof (addr))) 
} u.u_error = EFAULT; 
u.u_base = uap->cbuf; } 


u.u_count = uap->count; 

u.u_segflg = 0; 

if (useracc(uap->cbuf, uap->count, B_READ) == 0 || 

uap->asa && copyin((caddr_t)uap->asa, (caddr_t)&sa, sizeof {(sa))) { 

u.u_error = EFAULT; 
return; 

} 

u.u_error = sosend( (struct socket *)fp->f_socket, uap->asa ? &sa : 0); 

u.u_rvall = uap->count ~ u.u_count; 

} 


fr 
* Receive data on socket. 
xf 
sreceive() 
{ 
register struct a { 
int fdes; 
struct sockaddr *asa; 
caddr t cbuf; 
u_int count; 
} *uap = (struct a *)u.u_ap; 
register struct file *fp; 
struct sockaddr sa; 


fp = getf(uap->fdes) ; 
if (fp == 0) 
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/* @(#)partab.c 1.1 */ 

char partab[] = { 
0001,0201,0201,0001,6201, 6001, 0001, 6201, 
0202, 0004, 0003, 0205, 0007, 0206,0201,0001, 
0201,0001, 0001, 0201, 6001,0201,0201,0001, 
9001,0201, 0201, 0001,0261, 0091,6001,0201, 
0200, 0000, 0000, 0200, 0000,6200,0200, 0000, 
0000, 0206, 0200, 0600, 0200, 6000, 9000,0200, 
0000, 0200, 0200, 0000, 6200, 0000, 6000, 0200, 
0200, 0000, 0000, 0200, 6000, 0200,0200, 0006, 
0200, 0000, 0006, 0200, 0000, 0200, 6260, 0006, 
0000, 6200, 0200, 0000, 0200, 0000, 0600, 0200, 
0600,0200, 0200, 0000, 0200, 0000, 0600,0200, 
0200, 0000, 0000, 0200, 0000, 0200, 0206, 0000, 
0000, 6200, 0200, 0000, 0200, 0000, 6000, 02058, 
0200, 0000, 0006, 0200, 0000,0200,0200,0000, 
0200, 0000, 0000,0200,0000, 0200,6200,0000, 
0000, 0200,0200, 0006, 0200, 6000, 0000, 0201, 


0210, 0210,0210,0219,0210,0210,6216,0210, 
6210, 0210,0210,0210,0210,0210,0210,0216, 
6210,0210,0210, 0210, 0216, 0210, 0216,5210, 
6210, 0210, 0210, 0210, 0219,6210, 6210, 0216, 
0210,0210, 0210, 0210, 0210, 0210, 0210, 6210, 
6210, 02106,0210,0210,0210,0216,0210,6216, 
0210, 0216, 8210, 0210,0210,0216,0210, 0210, 
62160, 0216, 0210, 0210, 0216, 0210, 0210, 0216, 
0210,0210, 0210, 0210,9210, 0210, 6210, 0210, 
0210, 0210, 0210, 0216, 6210, 6210, 0216, 6210, 
0216, 6216, 0210, 6216, 0210, 0210, 02106,0210, 
0210,0210, 0210, 0210, 6210, 0210, 0216,90210, 
6210, 6216, 0210, 6210, 0216, 0210, 0216,6210, 
0210, 6210, 0210, 9210, 6216, 6210, 92160, 0216, 
6210, 02106, 0210, 0210, 6210, 0216, 0215,0216, 
6210,0210, 0210, 0210, 0210, 0210, 6210, 0210 
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/* @(#)pipe.c 1.4 */ 
#include “sys/param.h" 
#include “sys/types.h" 
#include "sys/systm.h® 
finclude "sys/dir.h" 
#include “sys/signal.h" 
#include "sys/buf.h" 
#include “sys/filsys.h" 
#include “sys/user.h" 
#include "sys/errno.h" 
f#include “sys/inode.h" 
#include “sys/file.h" 
#include “sys/mount.h" 
f#include “sys/var.h" 


/* 
* The sys-pipe entry. 
* Allocate an inode on the root device. 
* Allocate 2 file structures. 
* Put it all together with flags. 
xf 
pipe () 
{ 
register struct inode *ip; 
register struct file *rf, *wf; 
int r; 
register struct user *up; 


up = &u; 

ip = ialloc(getpdev(), IFIFO, 6); 

if(ip = NULL) 
return; 

rf = falloc(ip, FREAD); 

if(rf — NULL) { 
iput (ip): 
return; 

} 

r= up->u_rvali; 

wf = falloc(ip, FWRITB); 

if (wf == NULL) { 
rf->f_count = 6; 
rf->f_next = ffreelist; 
ffreelist = rf; 
up->u_ofile[r] = NULL; 
iput (ip); 
return; 

} 

up->u_rval2 = up->u_rvall; 

up->u_rvall re 

ip->i_count = 2; 

ip->i_frent = 1; 

ip->i_fwent = 1; 

prele (ip); 


i 


ii 


} 


/* 
* Open a pipe 

* Check read and write counts, delay as necessary 
*/ 


openp(ip, mode) 
register struct inode *ip; 
register mode; 
{ 
if (mode&FREAD) { 
1f (ip->i_frent++ == Q) 
wakeup ((caddr_t) éip->i_frent); 
} 
if (mode&éFWRITE) { 
if (mode&FNDELAY && ip->i_frent == 0) { 
u.u_error = ENXIO; 
return; 
} 
if (ip->i_fwent++ == 0) 
wakeup((caddr_t)éip->i fwent); 


} 


/* 
* 
* 


x] 


if {modesFREAD) { 
while (ip->i_fwent == 0) { 
if (mode&FNDELAY || ip->i_size) 
return; 
(void) sleep({caddr_t)&ip->i_fwent, PPIPE); 
¥; 
} 
if (mode&FWRITE) { 
while (ip->i_frent = 0) 
{void) sleep{(caddr_t})&ip->i_frcent, PPIPE); 


Close a pipe 
Update counts and cleanup 


closep(ip, mode) 
register struct inode *ip; 
register mode; 


{ 


/* 
* 
* 
x 
xf 

plo 


register i; 
daddr _t bn; 


if (mode&FREAD) { 
if ({--ip->i_frent == 6) && (ip->i_fflagéIFIW)) { 
ip->i_fflag é= ~IFIW; 
wakeup ((caddr_t)&ip->i_fwent); 
} 
} 
if (modesFWRITE) { 
if ({--ip->i_fwent = 0) && (ip->i_fflagéIFIR)) { 
ip->i_fflag &= ~IFIR; 
wakeup ({(caddr_t)&ip->i_frent); 
} 
} 
if ((ip->i_frent == 6) && (ip->i_fwent = 0)) { 
for {i=NFADDR-1; i>=0; i--) { 
bn = ip~>i_faddr [i]; 
if (bn == (daddr_t)9) 
continue; 
ip->i_faddr{i] = (daddr_t)0; 
free(ip->i_dev, bn); 
} 
ip->i_size = 0; 
ip->i_frptr = 0; 
ip->i_fwptr = 0; 
ip->i_flag |= IUPD|ICHG; 


Lock a pipe. 
If its already locked, 
set the WANT bit and sleep. 


ck (ip) 


register struct inode *ip; 


{ 


} 
fr 


* 
* 
* 
* 
* 


x] 


pre 


while (ip->i_flag&ILOCcK) { 
ip->i_ flag |= IWANT; 
{vold) sleep((caddr_t)ip, PINOD); 


} 
ip->i_flag |= ILOCK; 


Unlock a pipe. 

If WANT bit is on, 

wakeup. 

This routine is also used 
to unlock inodes in general. 


ie (ip) 
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register struct inode *ip; 
{ 


ip->i_flag &= ~ILOCK; 

if(ip->i_flag&IWANT) { 
ip->i_flag &= ~IWANT; 
wakeup((caddr_t)ip); 


} 


/* 
* Return the mounted pipe device 
xf 
dev_t 
getpdev () 
{ , 
register struct mount *mp; 
register dev_t dev; 


dev = pipedev; 
for (mp = émount[0]; mp < (struct mount *)}v.ve_mount; mptt) 
if (mp->m_flags != MFREE && dev == mp->m_dev && 
mp->m_bufp->b_un.b_ filsys~->s_ronly==0) 
return idev); 
return (rootdey) ; 
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/* @(#)prt.c 1.2 */ 
#include "sys/param.n" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include "sys/systm.h" 
#include “sys/buf.h" 
#include “sys/conft.h" 


{* 

* In case console is off, 

* panicstr contains argument to last call to panic. 
ef 
char *panicstr; 


* Scaled down version of C Library printf. 

* Only tc &s tu td (=-tu) to $x $D are recognized. 
* Used to print diagnostic information 

* directly on console tty. 

* Since it is not interrupt driven, 

* all system activities are pretty much suspended. 
* Printf should not be used for chit-chat. 


/* VARARGSI */ 

printf (fmt, x1) 

register char *fmt; 

unsigned xl; 

{ 
register c; 
register unsigned int *adx; 
register int b, i, any; 
char *s; 


#ifdef PRINTFSTALL 
for ({c = 0; c < PRINTFSTALL; ctt) 


#endif PRINTFSTALL 
adx = &£xl; 
loop: 
while((c = *fmtt++) [= '¢f) { 
if(e == *\ar) 
return; 
{*putchar) (c); 
} 
c= *fmttt+; 
Af(c == 'df J] c == ful {| co = fof {| c = fx) 
printn((long)*adx, c==/0'? 8: (c==/x'? 16:10)); 
else if(c == ‘of) 
(*putchar) (*adx); 
else if (c == ‘b’) { 


b = *adxt++; 

s = (char *) *adx; 
printn((long) b, *stt+); 
any = 0; 

if (b) { 


(*putchar) ('<'); 
while (i = *st+) { 
if (b @ (1 << (i - 1))) { 
if (any) 


(*putchar) (’,°); 


any = 1; 


for (; (c = *s) > 32; st+t) 


(*putchar) (c); 


else 
for (; *S > 32; stt) 


’ 


} 
if (any) 
(*putchar) (/>"); 
} 
I 
else if(c == ’s') { 
S = {char *)*adx; 
while(c = *s+t) 
(*putchar) (c): 


} else if (c == 'D*) { 
printn(*{long *)adx, 10); 
adx += (sizeof(long) / sizeof(int)) - 1; 


} 
adxtt; 
goto loop: 
} 
printn(n, b) 
long n; 
register b; 
{ 
register i, nd, c; 
int flag; 
int plimax; 
char d[12]; 
c= 1; 
flag =n < 0; 
if (flag) 
n= (-n); 
if (b==8) 
plmax = 11; 
else if (b==10) 
pimax = 10; 
else if (b==16) 
plmax = 8; 
if (flag && b-=10) { 
flag = 0; 
(*putchar) {’-"); 
} 
for (i=0;i<plmax;it+) { 
nd = nb; 
if (flag) { 
nd = (b -~ 1) - nd +c; 
if (nd >= b) { 
nd -= b; 
c=-1; 
} else 
c= 0G; 
} 
d{i] = nd; 
n = n/b; 
if ((n==0) && (flag==0)) 
break; 
} 


if (i==plmax) 
i--; 
for (;i>=0;i--) { 
(*putchar) ("0123456789ABCDEF"[d[i}]): 
} 
} 


/* 
* Panic is called on unresolvable fatal errors. 
* It syncs, prints “panic: mesg" and then loops. 
*/ 

panic(s) 

char *s; 

{ 

if (s && panicstr) 
printf("Double panic: %s\n", 8s); 


else { 
if (s) 
panicstr = s; 
update (); 
printf (“panic: $s\n", panicstr?2panicstr: 
} 
for(::) 


idle(); 
} 


{* 
* prdev prints a warning message. 
* dev is a block special device argument. 
a; 
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prdev(str, dev) 
char *str; 
dev_t dev; 
{ 
register maj; 


maj = bmajor (dev); 
if (maj >= bdevent) { 
printf("%s on bad dev %o(8)\n", str, dev); 
return; 
} 
{(*bdevsw[maj].d_print) (minor(dev), str); 
} 


f* 
* prceom prints a diagnostic from a device driver. 
* prt is device dependent print routine. 
xf 
preom(prt, bp, erl, er2) 
int (*prt) 0; 
register struct buf *bp; 
{ 
(*prt) (pp->b_dev, "\nDevice error"); 
printf("bn = $D er = to, %o\n", bp->b_blkno, erl, er2); 
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/* #define HOWFAR */ 

/* #define UNISOFT /* allow access to boot partition */ 
Priam Datatower 

(C) 1984 UnisSoft Corp. of Berkeley CA 

UniPlus Source Code. This program is proprietary 

with Unisoft Corporation and is not to be reproduced 


or used in any manner except as authorized in 
writing by Unisoft. 


ee bh 


* 
~ 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/mmu.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/dir.h* 
#include “sys/signal.h" 
#include “"sys/user.h" 
#include “sys/errno.h" 
#include “sys/utsname.h" 
#include “sys/buf.h" 
#include “sys/elog.h" 
#include "sys/erec.h" 
#include "sys/iobuf.h" 
#include "sys/systm.h" 
#include “sys/var.h" 
tinclude “sys/uioctl.h" 
#include “sys/al_ioctl.h" 
#include “sys/diskformat.h® 
#include “setjmp.h" 
#include “sys/reg.h*" 
#include “sys/altblk.h" 
#include “sys/cops.h" 
#include "sys/pport.h" 
tinclude “sys/priam.h" 
#include “sys/swapsz.h" 


#define logical (x) (minor(x) & 7) 7* eight logicals per phys */ 
#define physical (x) ((minor(x) & OxF0) >> 4)/* 10 physical devs */ 
#define splpm  spl5 

1* 

* When the disk is first opened its size is determined and pm_sizes is 

* initialized accordingly (in pmdinit). 

* 

* The first 106 blocks are reserved for the boot program and 

* are inaccessible via unix. 

*/ 


#define MAXBOOT 100 

struct pm_sizes { 
daddr t sz_offset; 
daddr_t sz_size; 

} pm_sizes[NPM] [8]; 


#define GETBUF (bp) splpm(): \ 
while (bp->b_flags & B BUSY) { \ 
bp->b_ flags |= B_WANTED; \ 
(void) sleep((caddr_t)bp, PRIBIO+1); \ 


»\ 
bp->b_ flags |= B BUSY; \ 
spl0() 

#define FREEBUF (bp) splpm(); \ 


if (bp->b_flags & B_WANTED) \ 
wakeup((caddr_t)bp); \ 
bp->b_flags = 0; \ 


spio() 
struct iostat pmstat [NPM]; 
struct iobuf pmtab = tabinit (PM3,pmstat); /* active buffer header */ 
struct buf pmebuf; /* command buffer */ 
struct buf pmrbuf; 


char pmiflag [NPM]; 


char pmresults[NPMRES]; /* result regs. for last command comp ack */ 
int pmnbiks [NPM] ; /* number of blocks on disk */ 
int pmeblkent; /* current block count */ 
struct pmfmtparms pmfmt; /* format parameters for packet-based format cmd */ 
struct pmimtstat pmfstat; /* format status from packet-based format cmd */ 
/* variables needed to share info for interrupt reutines */ 
char pmstate; /* idling or waiting for interrupt */ 
#define IDLING 6 
#define INITING 1 
#define READING1 2 /* 1st intr while reading */ 
#define READING2 3 /* 2nd intr while reading */ 
#define WRITING1 4 /* 1st intr while writing */ 
#define WRITING2 5 /* 2nd intr while writing */ 
#define FMTING1 6 /* 1st intr while formatting */ 
#define FMTING2 7 /* 2nd intr while formatting */ 
#define FMTING3 8 /* 3rd intr while formatting */ 
#define FMTING4 3 /* 4th intr while formatting */ 
caddr t pmma; /* current memory address */ 
char pmierror; /* error value from intr */ 
pmopen (dev) 
register dev; 
{ 
register punit; 
extern char slot{]; 
punit = physical (dev); 
if (punit >= NPM) { 
u.u_error = ENXIO; 
return (-1); 
} 
if (slot[punit] != PM3) { 
printf ("Unix pmopen: no Priam card in slot %d\n", punit); 
u.u_error = ENODEV; 
return (-1); 
} 
if (pmiflag[punit] = 06) { 
if (pmdinitidev)) { 
u.u_error = EIQ; 
return (~1); 
} 
pmiflag{punit]++; 
} 
return (0); 
} 
f* 
* pmdinit - initialize device (sequence up) 
*/ 
pmdinit (dev) 


register dev_t dev; 


{ 


register struct buf *bp = épmcbuf; 
register punit, i; 

register struct pm_sizes *sp; 
register daddr_t offset, size; 


punit = physical (dev); 
GETBUF (bp) ; 
bp->b_dev = dev; 
bp->b_resid = PMRDEVPMS; 
pmnblks[{punit] = 0; 
pmstrategy (bp); 
iowait (bp); 
i = bp->b_flags & B_ERROR; 
FREEBUF (bp) ; 
if (i) 

return({-1); 
sp = pm_sizes{punit]; 


offset = MAXBOOT + 1; /* avoid boot area */ 
size = pmnblks[punit] - offset; 

sp[7].sz_offset = offset; /* h = entire */ 
sp[(7].sz_size = size; 

sp{1}.sz_offset = offset; /* b= swap */ 


sp[1].sz_size = PMNSWAP; 
offset += PMNSWAP; 
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size -= PMNSWAP; 

if (size < 6) { 
printft("Unix pmdinit: disk size = %d (insufficient) \n", pmnblks[punit]); 
return(~-1); 

} 

sp[0].sz_offset = offset; 

sp[0].sz_size = size; 

for (i = 2; i < 7; itt) { 
sp[i].sz_offset = (daddr_t) (0); /* c-g =spare */ 
sp[i].sz_size = (daddr_t)Q; 


/* a = root */ 


} 
return(6); 


pnstrategy (bp) 
register struct buf *bp; 


{ 


register punit, lunit, bn; 


punit = physical (bp->b_dev); 
if (bp = é&pmcbuf) { /* Lf command */ 
pmstat[punit].io misct+; /* errlog: */ 
splpm(); 
if (pmtab.b actf = (struct buf *)NULL) /* set up links */ 
pmtab.b actf = bp; 
else 
pmtab.b actl->av_forw = bp; 
pmtab.b actl = bp; 
bp->av_forw = (struct buf *)NULL; 
} else { 
lunit = logical (bp->b_dev); 
bn = bp->b_blkno + pm_sizes[punit] [lunit].sz_offset; 


#ifdef UNISOFT 


if (bp->b_blkno < 0) { 


#else UNISOFT 


if (bp->b_blkne < @ {| bn <= MAXBOOT) { 


#endif UNISOFT 
#ifdef HOWFAR 


prdev("pmstrategy: illegal blkno", bp->b_dev); 
printf ("blkno=%d bcount=%d\n", bp->b_blkno, bp->b_bcount); 


#fendif HOWFAR 


} 


bp->b_flags |= B_ERROR; 
iodone (bp) ; 
return; 
} 
pmstat[punit].io_opst+; /* errlag: */ 
bp->b_resid = bn; /* resid for disksort */ 
splpm(); 
disksort (&pmtab, bp); 
} 
if (pmtab.b active == 0) 
pmstart(); 
SPLO(); 


pmstart {) 


{ 


loop: 


register struct buf *bp: 
register offset, bn, lunit, punit; 


if ((bp = pmtab.b_actf) == (struct buf *) NULL) 
return; 
if (pmtab.b active == 0) { 
pmtab.b active = 1; 
Lf (bp != é&pmcbuf) 
bp->b_resid = bp->b_bcount; 
} 
blkacty |= (1<<PM3); 
if (bp == é&pmcbuf) { 
if (pmemd(bp) {= 0) { /* b resid holds the command */ 
bp->b_flags |= B_ERROR; 
goto next; 


return; 


lunit = logical {(bp->b_dev); 
punit = physical (bp->b_ dev); 
offset = bp->b_bcount - bp->b_resid; 
bn = bp->b_blkno + btod(offset); /* lagical block number */ 
if (bp->b_resid < BSIZE [| bn >= pm sizes[punit][lunit].sz_size) { 
next: 
#ifdef HOWFAR 
if (bp->b_resid |= 0) 
printf("Unix pmstart: blkno=%d resid=%d bn=%d\n", 
bp->b_blkno, bp->b_resid, bn); 
#endif HOWFAR 
pmtab.b active = 0; 
pmtab.b errent = 4; 
blkacty &= ~{1<<PM3); 
pmtab.b actf = bp->av_forw; 
iodone (bp); 
goto loop; 
} 
bn t= pm _sizes[punit] [lunit].sz_offset; /* physical block number */ 
if (pmrw(punit, bn, bp->b_ flags&B READ, bp->b_un.b addr+offset) != 0) { 
bp->b_ flags |= B_ERROR; 
goto next; 


} 


/* ARGSUSED */ 
pmioctlidev, cmd, addr, flag) 
dev_t dev; 
caddr_t addr; 
{ 
register punit; 
register struct buf *bp; 


punit = physical (dev); 
if (punit >= NPM) { 
u.u_error = EINVAL; 
return; 
} 
switch (cmd) { 
case UIOCSIZE: /* get size of Priam disk */ 
if (copyout ¢(caddr_t)&pmnblks{punit], (caddr_t)addr, 4)) 
u.u_error = EFAULT; 
break; 
case UILOCFORMAT: 
if ({suser()) { 
u.u_error = EPERM; 
return; 
} 
bp = épmcbuf; 
GETBUF (bp); 
bp->b_dev = dev; 
bp->b_resid = PMPKTXFER; 
pmstrategy (bp); 
iowait (bp): 
if (bp->b_flags & B_ ERROR) 
u.u_error = EIO; 


/* stash the command in resid */ 


FREEBUF (bp); 
break; 
default: 
u.u_error = ENOTTY; 
break; 
} 
} 
pmemd (bp) 


register struct buf *bp; 
{ 
register struct pm_base *pmhwbase; 
register struct pm_base *addr; 
register punit; 
register struct pmfmtparms *fmtp = &pmfmt; 


punit = physical (bp->b_dev); 
pmierror = 0; 
switch (bp->b_resid) { 


case PMRDEVPMS: /* read device parameters (spin up if necessary) 
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pmhwhase = pmaddr(punit); /* base address for this card */ 
addr = pmBWaddr (pmhwbase) ; /* byte mode - waiting */ 
if (pmwaitrf(addr)) { 
printf (“Unix pmemd: timeout before read dev parms\n"); 
return (-1); 
} 
addr->p0 = 0; /* device always 0 */ 
addr = pmBladdr (pmhwhase) ; /* byte mode - intr enabled */ 
pmstate = INITING; 
addr->cmdreg = PMRDEVPMS; 
return (0); 


case PMPKTXFER: /* format disk (done with packet~based command} */ 
pmhwbase = pmaddr (punit); /* base address for this card */ 
addr = pmBWaddr (pmhwbase) ; /* byte mode - waiting */ 


if (pmwaitrf(addr)) { 
printf("Unix pmemd: timeout before format\n"); 
return (-1); 

} 

fmtp->pm_opcode = PMFMT;/* set up format parms packet */ 


fmtp->pm_devsel = 0; /* device select = 0 (no daisy chaining) */ 
fmtp->pm_scntl = PMFBD; /* fill byte disabled, media type = 0 */ 
fmtp->pm_fill = 0; f* £111 byte */ 

fmtp->pm_ssize = 536; /* sector size */ 

fmtp->pm_dentl = 6; /* defect mapping enabled, 0 spares/track */ 
fmtp->pm_neyl = 10; /* # cyls for alt tracks and alt sectors */ 
fmtp->pm_cif = 6; /* cyl interleave factor */ 

fmtp->pm_hif = 1; /* head interleave factor */ 

fmtp->pm_sif = 1; /* sector interleave factor */ 
fmtp->pm_sitl = 0; /* sector interleave table length */ 
addr->p0 = 6; /* device always 0 */ 

addr->p2 = 0; /* MSB of packet length */ 

addr->p3 = sizeof(struct pmfmtparms) ; /* LSB of packet length */ 
addr = pmBladdr (pmhwhbase) ; /* byte mode - intr enabled */ 


pmstate = FMTING1; 
addr->cmdreg = PMPKTXFER; 
return (0); 
default: 
return(-1); 
} 
} 


pmrw(unit, bn, rflag, addr) 

register unit; 

register bn; 

register rflag; 

register caddr_t addr; 

{ 
register struct pm_base *pmhwbase; 
register struct pm_base *hwaddr; 
register tmp; 


pmhwbase = pmaddr (unit); /* base address for this card */ 
hwaddr = pmBWaddr (pmhwhbase) ; /* byte mode - waiting */ 
if (pmwaitrf(hwaddr)) { 
printf ("pmrw: timeout before setting %s parameters ", 
rflag2?"read":"write"); 
printf("card $d, bn %d, addr Oxtx\n", unit, bn, addr); 
return(-1); 
} 


hwaddr->p0 = 0; /* device always 0 */ 

tmp = bn; 

hwaddr->p3 = tmp & OxFF; /* most sig. byte */ 

tmp = tmp >> 8; 

hwaddr->p2 = tmp & OxFF; /* middle byte */ 

tmp = tmp >> 8; 

hwaddr->pl = tmp & OxFF; /* least sig. byte */ 

hwaddr->p4 = 1; /* operation count = 1 sector */ 


pmeblkent = 1; 

hwaddr = pmBladdr (pmhwbase) ; /* byte mode - intr enabled */ 
pmma = addr; 

pmierror = 0; 

pmstate = rflag ? READING] : WRITINGI; 

hwaddr->cmdreg = rflag ? PMREAD : PMWRITE; 7* start r/w */ 
return (0); 


pmintr (ap) 

struct args *ap; 

{ 
register struct pm_base *pmhwbase; 
register struct pm_base *addr; 
register struct buf *bp; 
register char status; 
dev_t punit; 


(void) splpm(); 
punit = ap->a_dev; 
pmhwhase = pmaddr(punit): /* base address for this card */ 
addr = pmBWaddr (pmhwbase) ; 7* byte mode - waiting * 
if (pmtab.b active — 6) { 
#ifdef HOWFAR 
printf ("Unix pmintr: b active = 0\n"); 
#endif HOWFAR 
spurious: 
addr->cmdreg = 0; /* clear spurious intr (clrb) */ 
return; 
} 
if ((bp = pmtab.b actf) == (struct buf *)NULL) { 
$ifdef HOWFAR 
printf ("Unix pmintr: b actf == NULL\n"); 
#endif HOWFAR 
goto spurious; 
} 
if (bp == &pmcbuf) { /* if command */ 
switch (bp->b_resid) { 
case PMRDEVPMS: /* read device parameters (spin up if necessary) */ 
if (pmstate != INITING) 
goto spurious; 
if (pmierror = pmackcc(addr)) { 
printf£(“error on read dev parms: /dev/pm%d%c “, 
punit, ‘a’+logical (bp->b_dev)); 
printf{"status Ox%x\n", pmierror); 
bp~>b_flags |= B_ERROR; 
} else { 
register nheads, ncyls, nsecs; 
nheads = PMNH({(pmresults[1]); 
neylis = PMNC(pmresults{1], pmresults[2]}; 
nsecs = PMNS{pmresults[3]); 
pmnblks[punit] = nheads * ncyls * nsecs; 
} 
break; 
case PMPKTXFER: /* format disk (done with packet-based command) */ 
switch (pmstate) { 


case FMTING1: /* intr to transfer packet */ 
if ((addr->status & DTREQ) == 0} 
goto ackcc; /* if not waiting for data */ 
{ /* send packet */ 


register char *cp = (char *) &pmfmt; 
register i = sizeof(struct pmfmtparms); 
do { 
addr->pdata = *cptt; 
} while ( --i ); 
} 


(void) pmackdt (addr); /* Apple’s code doesn’t check */ 
wait: pmstate++; /* not done yet - wait for next intr */ 
return; 
case FMTING2: /* intr after packet complete */ 


(void) pmackcc (addr); 

(void) pmwaitrf (addr); 

addr->pOQ = 0; /* packet ID = 0 */ 

addr = pmBlIaddr (pmhwhase) ; 

addr->cmdreg = PMPKTRST;/* read packet status */ 
goto wait; 


case FMTING3: /* intr when status can be read */ 
4f (faddr->status & DTREQ) == 0) 
goto ackcc; /* if not waiting for data */ 
{ /* read packet status */ 


register char *cp = (char *)é&pmfstat; 
register i = sizeof(struct pmfmtstat); 
do { 

*cpt+ = addr->pdata; 
} while ( --i ); 
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} 


{void} pmackdt (addr); /* Apple’s code doesn’t check */ 
goto wait; 
case FMTING4: /* intr after read packet status */ 
ackee: (void) pmackcc (addr) ; 


if ((pmfstat.pm pstate != PMPKTCOMP) 
il pmfstat.pm_pristat) { 
pmierror = pmfstat.pm_pristat; 
bp->b flags |= B_ERROR; 


} 
break; 
1 


goto out; 
} 
if ({addr->status & CMD DONE) = 0) { /* block transfer interrupt */ 
1f (fpmeblkent) { f#* 2nd interrupt */ 
if ({(pmstate==READING2) || (pmstate=-WRITING2)) 
goto done; 
printf("Unix pmintr: state=td, expecting 2nd\n", pmstate); 
bp->b_flags |= B ERROR; 
goto out; 
} 
f/* ist interrupt */ 
if ((pmstate!=READING]) && (pmstate!=WRITING1)) { 
printf("Unix pmintr: state=%d, expecting ist\n", pmstate); 
bp->b flags |= B_ERROR; 
goto out; 
} 
pmcblkcnt-~; 
if (pmstate == READING1) 
pmrsect (punit); /* sets pmierror for parity */ 


else 

pmwsect (punit); 
pmstatet+; /* set to READING2 or WRITING2 */ 
addr->cmdreg = PMCBTI; /* clear block transfer intr */ 
addr = pmBWladdr (pmhwbase) ; /*® setup for next intr */ 
status = addr->status; 
return; 

} else { /* cmd completed (error) */ 


if ({pmstate!=READING2) && (pmstate!=WRITING2) ) 
printf("Unix pmintr: command complete, state=%d\n", pmstate); 


if (status = pmackcc(addr)) { /* ack intr */ 
if ((pmstate==READING2) && (pmresults[0] == PMECCERR)) 
/* ECC err requiring scavenger write */ 
status = PMECCERR; 
else if (pmresults[{0] == PMDTIMOUT) 
/* dev timeout - they reissue read/write */ 
status = PMDTIMOUT; 
} 
if (pmierror |= status) 
bp->b_ flags |= B_ERROR; 
} 


/* 
* because a single buffer can take several io operations, 
* we leave it to pmstart() to figure out when it’s done 
*f 

if (bp->b_flags&B ERROR || bp == épmcbuf) { 

if {(bp->b_flags & B ERROR) { 
{ 
register bn = 0; 
struct deverreg pmreg[2]; 


printf("Unix: HARD I/O ERROR on /dev/pmtd%c ", 
punit, logical(bp->b dev)+/a’); 
if (pmierror) { 7 
if (pmierror & PMPERROR) 
printf("parity error "); 
if (status = (pmierror & ~PMPERROR) ) 
printf("error code Ox%x ", status); 
} 
if (pp != &pmebuf) { 
bn = bp->b_bikno + btod(bp->b_bcount - bp->b resid) 
+ pm_sizes[punit] [logical (bp->b dev)].sz_offset: 


} 
{* 


printf("bn d\n", bn); 
} else printf("\n"); 
/* error logging */ 
pmtab.io_stp = épmstat [punit]; 
pmreg[0].draddr = (long)0; 
pmreg[0Q].drvalue = pmierror; 
pmreg(0]-.drname = "pmierror"; 
pmreg[{0].drbits = "Priam disk status code"; 
pmreg[1]-draddr = (long) 0; 
pmreg[1].drvalue = pmstate; 
pmreg[1].drname = “pmstate"; 
pmreg[1].drbits = “Priam driver state"; 


fmtberr (&pmtab, 
(unsigned) punit, 
(unsigned) 0, /* cylinder */ 
(unsigned) 6, #* track */ 
(unsigned) bn, /* sector */ 


(long) (sizeof (pmreg) /sizeof(pmreg[0]}), /* regent */ 
épmreg[0], épmreg[1]); 
} 
logberr (&pmtab, 1}; /* log hard (unrecovered) error */ 
} 
blkacty &= ~{1<<PM3); 
pmtab.b_ active = 0; 
pmtab.b errent = 6; 
pmtab.b actf = bp->av_forw; 
iodone (bp) ; 
} else 
bp->b_ resid -= 512; 
pmstate = IDLING; 
pmstart{); 


* read block to memory at pmma 
* from PRIAMASM.TEXT - READ SECT 


ze 


pmrsect (punit) 
register punit; 


{ 


} 


/* 


register struct pm_base *pmhwbase; 
register struct pm base *hwaddr; 
register short *waddr; 

register i; 


pmhwbase = pmaddr(punit); /* base address for this card */ 
hwaddr = pmBWaddr (pmhwbase) ; /* byte mode - waiting */ 
while ((hwaddr->status & DTREQ) == 0) i 


hwaddr = pmPaddr (pmhwhase) ; /* parity checking enabled */ 

waddr = (short *) pmma; 

ewaddr = hwaddr->data; /* start read of first word */ 

i= 12; 

do { /* read and throw away header */ 
*waddr = hwaddr->data: 

} while ( --i ); /* read 24-byte header */ 

waddr = (short *)pmma; 

i = 255; 

do { 
*waddrt++ = hwaddr->data; 

} while ( --i ); /* read 510 bytes */ 

hwaddr = pmNaddr (hwaddr); /* read last 2 avoiding device cycle */ 


*waddr = hwaddr->data; 
hwaddr = pmpaddr (punit); /* parity in lo select space */ 
pmierror |= (hwaddr->parity & PMPERROR); 


* write block from memory at pmma 
* from PRIAMASM.TEXT - WRITE SECT 


wf 


pmwsect (punit) 
register punit; 


{ 


register struct pm_base *pmhwbase; 
register struct pm_base *hwaddr; 
register short *waddr; 


el lism mm i, nn 
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register i; register struct pm_base *addr; /* pmBWaddr */ 
register short tmp = 0; { 

register i; 
pmhwbhase = pmaddr(punit); /* base address for this card */ 
hwaddr = pmBWaddr (pmhwbase) : /* byte mode - waiting */ 
while ((hwaddr->status & DTREQ) == 0) : 
hwaddr = pmhwhbase; 


addr->cmdreg = PMCBTI; /* clear block transfer intr */ 
i = TIMELIMIT: 


while {(addr->status & BTR_INT) != 0) { 


i= 12; if {--i) 
do { /* write dummy header */ continue; 
hwaddr->data = tmp; printf ("Unix pmackdt: timeout\n"); 
} while { --i ); /* write 24 bytes */ return (-1); 
waddr = (short *)pmma; } 
i = 256; addr = pmladdr (addr); /* pmBWladdr */ 
do { i = addr->status & BIR_INT; /* setup for next intr */ 
hwaddr->data = *waddr++; return (0); 
} while ( --i ); /* write 512 bytes */ } 
} 
/* 
i* * pmcinit - initialize controller (turn on motor) 
* wait for register file not busy * called from oem7init (config.c) 
* from PRIAMASM.TEXT and PRIAMCARDASM.TEXT ~- WAITRF xf 
xf pmcinit (unit) 
pmwaitrf (addr) register unit; 


register struct pm_base *addr; 


{ 


i 
/* 


register i; 


i = TIMELIMIT; 
while ({addr->status & ISR_BUSY) != 6) { 
if (--4i) 
continue; 
return (-1); 
} 
return (0); 


* acknowledge command completion 
* from PRIAMASM.TEXT and PRIAMCARDASM.TEXT - ACKCC 


*f 


pmackcc (addr) 
register struct pm base *addr; /* pmBWaddr */ 


{ 


*; 


register i; 


i = TIMELIMIT; 
while ({addr->status & CMD DONE} == 0) { 
if (--i) 
continue; 
printf ("pmackcc: timeout waiting for CMD _DONE\n"); 
return (-1); 


/* wait for cmd done */ 


} 
pmresults[{G] = addr->ro; 
pmresults[{1] = addr->ril; 
pmresults[2] = addr->r2; 
pmresults([3] = addr->r3; 
pmresults[4]} = addr->r4; 
pmresults(5] = addr->r5; 
addr->cmdreg = 0; 
i = TIMELIMIT; 
while ((addr->status & CMD DONE) != 0) { 
if (--i) 
continue; 
printf ("pmackcc: timeout waiting for CMD_DONE reset\n"); 
return(-1); 


/* transaction status */ 


/* send command acknowledge (clrb) */ 


/* wait ‘til reset */ 


} 
return(pmresults[0] & PMCTYPE); /* error completion type */ 


acknowledge data transfer 

from PRIAMASM.TEXT - ACKDT 

Their code does not check the return value, so who knows what’1l happen 
if it times out? 


pmackdt (addr) 


{ 


register struct pm_base *addr; 
register i; 


addr = pmaddr (unit); /* hwbase */ 
addr = pmBWaddr{addr); /* byte mode - waiting */ 
if ({addr->status & CMD DONE) != 0) { /* cmd complete must be false */ 
if (pmwaitrf{addr)) { 
printf("timeout with status CMD_DONE\n"); 
goto err; 
} 
addr->cmdreg = 0; 
i = TIMELIMIT; 
while ((addr->status & CMD_DONE) == 0) { 
if (--i) 
continue; 
printf("timeout waiting for power up\n"); 
goto err; 


/* command ack power up (clrb) */ 


} 
} 
if (pmwaitrf(addr)) { 
printf("timeout before software reset\n"); 
goto err; 
} 
addr->cmdreg = PMRESET; /* issue software reset */ 
if ((i=pmackcc{addr)) != PMICOMP) { 
printf ("software reset error 0x%x\n", i); 
goto err; 
} 
if (pmwaitrf(addr)) { 
printf("timeout before read mode\n"); 
goto err; 
} 
addr->p0 = 0; /* (clrb) */ 
addr->cmdreg = PMRMODE; 
if (pmackcc(addr)) { 
printf ("read mode cmd ack failed\n"); 
goto err; 
} 
if (pmwaitrf(addr)) { 
printf ("timeout after read mode\n"); 
goto err; 
} 
addr->p0 = 0; /* (clrb) */ 
if (pmresults[3] == 2) { 
printf("Smart © controller not implemented\n") ; 
goto err; 
} 
addr->pl = PMLOGSECT; /* set mode “logical sector mode" */ 
addr->p2 = 0; /* (clrb) */ 
addr->cmdreg = PMSMODE; 
Af (pmackcec(addr)) { 
printf("set mode cmd ack failed\n"): 
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goto err; 

} 

if (pmwaitrf(addr)) { 
printf("timeout after set mode\n"); 
goto err; 

} 

addr=>pS = 0x46; 

addr->pl = PMPSEL1; 

addr->p2 = PM1PARMS; 

addr->cmdreg = PMSETP; 

if (pmackee(addr)) { 
printf ("set parms 1 cmd ack failed\n"); 
goto err; 

} 

if (pmwaitrf(addr)) { 
printf ("timeout after set parms 1\n"); 
goto err; 

} 

addr->p0 = 9x40; 

addr->pl = PMPSELO; 

addr->p2 = PMOPARMS; 

addr->cmdreg = PMSETP; 

if (pmackec{addr)) { 

: printf("set parms 0 omd ack failed\n"); 
goto err; 


} 


return 4; 

err: printf("Unix pmcinit: can’t initialize controller\n"); 
return (=1); 

} 


pmread (dev) 
dev_t dev; 
{ 
physio(pmstrategy, &pmrbuf, dev, B_READ); 
} 


pnwrite (dev) 
dev_t dev; 
{ 
physio{pmstrategy, épmrbuf, dev, B_WRITE); 
} 


pmprint (dev, str) 
char *str; 
{ 
printf("%s on priam drive td, slice %d\n", str, (dev>>4)&0xF, dev&7); 
} 
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/*#define NOERROR */ 
#define MOREASM 

/* 

* S¥6522 disk driver 

*f 

#Finclude “sys/param.h" 
#include “sys/config.h" 
#include “sys/mmu.h" 
#include “sys/types.h" 
#include “"sys/sysmacros.h" 
#include "sys/dir.h" 
#include "sys/signal.h" 
#include “sys/user.h" 
finclude “sys/errno.h" 
#include “"sys/utsname.h" 
#include “sys/buf.h" 
#include “sys/elog-h" 
#include “"sys/erec.h" 
#include “sys/iobuf.h" 
#include “sys/systm.h" 
#include “sys/var.h® 
#include “sys/ttold.h" 
#include “setijmp.h" 
¥include "sys/profile.h" 
#include “sys/pport.h" 
#include “sys/d_profile.h" 
#include “sys/cops.h" 
#include “sys/swapsz.h" 


#ifdef notdef /* these are in d_profile.h */ 

#define logical (x) (minor(x) & 7) #* eight logicals per phys */ 
#define interleave (x) (minor{x) & 0x8) /* interleave bit for swaping */ 
#define physical (x) ({minor (x) & OxF0) >> 4)/* 10 physical devs */ 

fendif 


char pro_secmap[NSEC] = { 
/*11*/ QO, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1 
}3 


/* Logical Units */ 
/* The first 100 blocks are reserved for the beot program and 
are inaccessible via unix. 
xf 

#define MAXBOOT 100 
struct primap { 

daddr_t pm _beg; /* Base address in blocks */ 

daddr_t pm_len; /* Number of blocks in logical device */ 
} primap[] = { 


/* a */f {PRNSWAP+101, 16955}, /* root filesystem on 10 Meg. disk */ 
/* b */f {101, PRNSWAP }, /* swap area (2400 blocks) */ 

/* c¢ */ {PRNSWAP+101, 7227}, %/* root filesystem on 5 Meg. disk */ 
/* a *f {9728, 9728}, /* 2nd filesystem on 10 Meg. disk */ 
f* e */ {0, 0}, /* unused */ 

/* £ *f {0, 7168}, /* old root filesystem (old a) */ 

/* g *f (7168, 2496}, /* old swap (old b) */ 

7* h *f {101, 19355}, /* £.s. using entire 10 Meg. disk */ 
‘es 

/* THESE MAY REPLACE f AND g ABOVE */ 

ce £ {4101, 15355}, /* alternate root f.s. on 10 Meg. disk */ 
/* gq {101, 4000}, /* alternate swap */ 


struct lostat prostat [NPPDEVS]; 

struct lobuf protab = tabinit(PRO,prostat); /* active buffer header */ 
struct buf rprobuf; /* Raw input-output buffer */ 
struct proheader rphbuf; 

struct proheader phbuf; 


#ifindef NOERROR 

#define ERROR (x) printf (*"HARD DISK ERROR "); printf x 
char *pro_lefmt = “ASSERTION (%s) FAILED IN PROC %s "; 
#tdefine ASSERT(e, p, m, x) if (i (e)} {\ 

printf (pro _lefmt,"e","p");\ 

printf m:\ 

printf ("\n");\ 

xi}7 

#else 


#define ERROR (x) 
#define ASSERT(e, p, m, x} 
#endif 


/* 


* 


* 


xf 


Contrast change ok flag. Maintained by the disk driver. When 9 the 
parallel port is not in use and may be switched to allow console contrast 
changes. If the contrast is waiting for the disk then ’12 rceflag’ is one. 
When convenient and this is set the disk will call l2ramp. 


int ppinuse; 
extern char 12 rceflag; 


/* 


& 


xf 


proopen - check for existence of controller 


proopen (dev) 


{ 


} 
{* 


x 


xf 


int i: 

register struct device_d *devp; 
int prointr(); 

extern char slot[{]; 


i = physical (dev); 
if (i) { /* for expansion slot check slot number and type */ 
if ('PPOK(i) || (slot (PPSLOT(i)] [= PRO)) { 
u.u_error = ENXIO; 
return 1; 
} 
} 
devp = pro_da[i]; 
u.u_error = 0; 
if (locheck(&devp->d_ifr)) { 
{ asm{" nop "); } 
if (prodata[i].pd_da != devp) { /* not already setup */ 
if (setppint ((prodata{i].pd_da = devp),prointr}) 
goto fail; 
if (proinit (&prodata[i])) { 
freeppin (devp): 
goto fail; 


} 
} else { 
fail: 
u.u_error = ENXIO; 
prodata[i].pd_da = (struct device _d *)0; 
return 1; 
} 


return 0; 


prostrategy - set up to start the transfer 


prostrategy (bp) 
register struct buf *bp; 


{ 


int pun = physical ({bp->b_dev); 
register struct prodata *p = &prodata[pun]; 
register struct buf *up; 


if (!p->pd_da) { 
printf ("Attempt to read/write unopened profile device\n"); 
printf ("bp=%x dev=tx (Unit %d)\n",bp,bp->b_ dev,pun); 
p->pd_err = "device not open"; 
goto haderr; 

} 

if (pp->b_blkno >= 0 && 

{bp->b_blkno < primap [logical (bp->b_dev) ] .pm_len)) { 

bp->av_forw = (struct buf *)NULL; /* last of all bufs and */ 
bp->ul_forw = (struct buf *)NULL; /* last of units bufs */ 


SPL6(); /* must be highest of all ints for this code*/ 
if (protab.b actf == NULL) 

protab.b_actf = bp; /* empty - put on front */ 
else 


protab.b actl->av_forw = bp; /* else put at end */ 
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protab.b actl = bp; 


Lf (p->pd_actv == 0) { /#* controller inactive */ 
p->pd_actv = bp; /* start of unit blk list */ 


/* Since we might fail before ever getting an interrupt 
* we must be prepared to do the buffer cleanup here also. 
*/ 
while (prostart(p)) { /* start up the transfer */ 
bp->b_resid = bp->b_bcount; 
bp->b_flags |= B_ERROR; 
prorelse(p, bp}; 
} 

} else { /* link onto unit list */ 
for (up=p->pd_actv; up->ul_forw; up=up->ul_forw) 
up->ul_forw = bp; 

} 


SPLO(); 

return; 
} 
p->pd_err = “invalid blkno"; 

haderr: 

bp->b_resid = bp->b_bcount; 
bp->b flags |= B_ERROR; 
iLodone (bp) ; 
return; 


Release finished buffer and unlink from list. Two lists are maintained. 
The av_forw pointers are used to link all the buffers in use by the driver 
onto the protab iobuf header. The av_back pointers {dubbed ul_forw) are 
used to link together the buffers into unit lists (headed by the prodata 
entry for that unit). 


+ ££ be 


*f 
prorelse {p, bp) 
register struct prodata *p; 
register struct buf *bp; 
{ 
register struct buf *up; 


if (protab.b actf == bp) { /* first buffer */ 
if ((protab.b actf = bp->av_forw) == (struct buf *) 6} 
protab.b actl == (struct buf *)0; 
} else { /* middle or last buffer */ 
for (up=protab.b actf; up->av_forw != bp; up=up->av_forw) 
if (fup->av_forw) panic("prorelse: buf list error"); 
up->av_forw = bp->av_forw; 
if (lup->av_forw && (protab.b actl — bp)) 
protab.b actl = up; 
} 


p->pd_actv = bp->ul_forw; /* next buf for this unit */ 
iodone (bp); 
} 


/* 
* proinit - initialize drive first time or after severe error 
af 

proinit (p) 

struct prodata *p; 
{ 
register char zero = 0; 
register struct device_d *devp = p->pd_da; 


int pl; 

pl = splé(); 

devp~>d_acr = zero; 

devp->d_pcr = 0x6B; /* set controller CA2 pulse mode strobe */ 
devp->d_ddra = zero; /* set port A bits to input **/ 


if (devp == PPADDR) 

devp->d_ddrb ¢= 0x5C; /* set BSY and OCD te input */ 
else — 

devp->d_ddrb &= OxFC; /* two or four port cards */ 


devp->d_ddrb |= 0x1c; /* set port B bits 2,3,4 to out */ 
devp->d_irb &é= ~DEN; /* set enable = true */ 
devp->d_irb |= CMDIDRW; /* set command = false set direction = in */ 
devp->d_t2cl = zero; 
devp->d_t2ch = zero; 
devp->d_ier = FIRQ{FCAI; 
zero = devp->d_irb; 
if (zero & OCD) { 

p->pd_state = SERR; 

splx (pl); 

return 1; 
} 


p->pd_state = SCMD; 


splx(pl); 
return 0; 
} 
fF 
* proread - process read from disk 
xf 
proread (dev) 
dev_t dev; 
{ 
physio(prostrategy, &rprobuf, dev, B_READ); 
} 
f* 
* prowrite - process write to disk 
xf 
prowrite (dev) 
dev_t dev; 
{ 
physic{prostrategy, &rprobuf, dev, B WRITE); 
} 
fe 
* prostart - initiate the next logical io operation 
*/ 
prostart (p) 


register struct prodata *p; 
{ 
register struct buf *bp = p->pd_actv; 


if (!bp) 
return 0; 
ASSERT (bp&&p, prostart, {("bp=x%x p=x&x", bp, p), while (1) ) 


p->pd_limit = primap[logical (bp->b_dev)].pm_beg:/* logical offset */ 


p->pd_blkno = bp->b_blkno + p->pd_limit; /#* starting blk # */ 
#ifndef UNISOFT 
if (p->pd_blkno <= MAXBOOT) /* don’t allow access to boot */ 


return (~1); 
#endif UNISOFT 
p->pd_limit += primap[logical(bp->b_dev)].pm_len; /* max blk # + 1*/ 
p->pd_bcount = bp->b_bcount; 
p->pd_addr = bp->b_un.b addr; 
return procmd(bp->b flags, bp->b_dev, p->pd_blkno, (unsigned) p->pd_bcount) ; 
} 


/* 
* Procmd - initiate next physical io operation 
af 

procmd({func, dev, bn, ct) 

register daddr_t bn; 
unsigned ct; 


register int pun = physical (dev); 
register struct prodata *p = éprodata([pun]; 
register struct cmd *pc; 


ASSERT (ct !=0, Procmd, ("ct=%d",ct),while(1}) 


#ifndef UNISOFT 
if (bn <= MAXBOOT) /* check again to be sure */ 
return(-1); 
#endif UNISOFT 
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if (p->pd_state == SERR) { if (p->pd_state == SCMD) { 
if (proinit {p)) devp->d_irb &= ~DRW; 
return -1; devp->d_ddra = OxFF; 


} /* Now send command */ 


/* initialize drive */ /* set dir=out */ 


/* Send command */ 


/* set port A bits to output */ 


/* controller should not be busy now */ cp 
ft 


/* Build Command {ok to 
pc = &p->pd_cmdb; 


pe->p_cmd = (func & B READ) ? PROREAD : 


pce->p_high = bn >> 163 
pe->p_mid = bn >> 8; 
if (interleave(dev) == 0) 
pe->p_low = bn; 
else 
pe->p_low = (bn & OxF0) 
pe->p_retry = 10; 
pe->p thold = 3; 
p->pd_state = SCMD; 
p->pd_nxtst = SCMD; 


if (prochk(p,SCMD)) { 
if (!prochk(p, SCMD)) 
return 0; 
p->pd_err = “cant force 
p->pd_state = SERR; 
return -1; 


send extra bytes on write cmd) */ 


PROWRITE; 


| pro_secmap[bné0xF]; 


/* syne controller to cmd state */ 
/* if it failed it should work now */ 


disk into CMD state"; 


= {char *) {&p->pd_cmdb) ; 
{*cpn == PROREAD} 
p->pd_nxtst = SRDBLK; 


p->pd_nxtst = SWRID; 


devp->d_ira = *cpt+; devp->d_ira = *cptt; devp->d_ira = *cpt+; 
devp->d_ira = *cpt+; devp->d_ira = *eptt+; devp->d_ira = *cp; 


devp->d_irb |= DRW; 
devp->d_ddra = zero; 
if (prochk(p,p->pd_nxtst)) { 


p->pd_err = “failed to issue cmd to disk"; 


goto haderr; 
} 
return; 


devp->d_irb |= DRW; 
devp->d_ddra = zero; 
p->pd_sbuf = 0; 


/* will send data or get status next */ 


if (p->pd_state == SRDBLK || p->pd_state == SFINI) {/* Read status word */ 


} cp = (char *) (&p->pd_sbuf); 


return 0; *cptt+ = devp->d_ira; 
} *cptt+ = devp->d_ira; 
*cptt+ = devp->d_ira; 
prointr (pun) *cp = devp->d_ira; 
int pun; p->pd_sbuf &= ~STATMSK; /* mask off redund stat bits */ 


{ 


#ifdef lint 


if (p->pd_sbuf) { 


register struct device _d *devp; /* a5 */ ERROR (("dev %d: state=td status=x%x\n", p-prodata, p->pd_state,p->pd_sbuf)); 


register char *cp; {* a4 */ p->pd_err = “bad status"; 
register char csum; fe a? */ /*NOTUSED* / goto haderr; 
register char zero = 0G; {* dé */ } 


register struct buf *bp; 

register struct prodata *p = &prodata[pun]; 
register short i; 

struct proheader *ph; i = sizeof(rphbuf) - 1; 
devp = p->pd_da; cp = (char *) (érphbuf); 
do *cpt++ = devp->d_ira; 
while (--1 != -1); 


if (p->pd_state == SRDBLK) { /* Read successful so pickup data*/ 
ASSERT (p->pd_bcount>6, prointr, (""),goto haderr) 


f* sizeof header */ 


(void) spl6(); /* added April 4/84 to prevent panic in prorelse */ 
/* changed from spl5 August 30/84 to fix multi-user bug on 2/10 */ 
/* ASSERT ((stats&éBSY)==BSY, prointr, ("disk %d busy: state=%d, irb=x%x", pun, p->pd_state, stats), return(devp->d_ifr = devp->depfr) p-3pd_addr; 
i = min(SECSIZE, (unsigned) p->pd_bcount); 
#ifdef MOREASM 


csum = 0; if ((i & 3) == 0) { 
i = csum; i= (1 >> 2) - 1; 
#endif do { 

if ((bp = p->pd_actv) = 0) { /* spurious interrupt */ asm (" movb a5@(9),a4@+ "); 
/* printf ("Spurious INT on profile dev %d [at %x]\n",pun,devp)}; */ asm (" movb a5@(9),a4@+ "); 
devp->d_ddrb |= 0x80; =/* setup for a reset */ asm {(" movb a5@(9),a4@+ "); 
devp->d_irb |= 0x80; asm (" movb a5@(9),a4@+ "); 
devp->d_ddrb &= Ox7F; /* asm (" movb a5@(9),d6 "); */ 
devp->d_ifr = devp->d_ifr; /* reset interrupt trap */ /* asm (" movb d6,a4@+ "); */ 
/* proinit(p); */ /* asm (" eorb d6,d7 "); */ 
return; /* asm (" movb a5@(9),d6 "); */ 

} /* asm (" movb d6,a4@+ ");  */ 


/* asm (" eorb d6,d7 "); */ 
/* ASSERT (bp!=0,prointr, ("dsk=%d ier=x%x ifr=x%tx state=%d", pun, devp->d_leré255,devp->d_ifré255,p->pd_state), return devp->d_ifr=0x7F) */ /* asm (" movb a5@(9),d6 “); */ 


ASSERT ( (p->pd_state!=SERR&&p->pd_state!=SSTOP),prointr, ("b flags=0xtx",bp->b_flags),while(1)) /* asm (“ movb d6,a4@+ ");  */ 
ASSERT (physical (bp->b_dev)==pun, prointr, ("dev=x%x unit=%d",bp->b_dev, pun) ,while(1)) /* asm (“ eorb d6,d7 "); */ 

/* asm (" movbh a5@(9),d6 "); */ 

devp->d_ifr = devp->d_ifr; /* reset interrupt trap */ /* asm (" movb d6,a4@+ ");  */ 
/* /* asm (" eorb d6,d7 "jy; */ 


* Note that IO operations fail when OCD. } while (--i != -1); /* optimizes to DBRA */ 


* This may result in a ‘panic’. Allowing it to } else / 

* block and be restarted has it problems also. #endif 

xf i-=; 
if (devp->d_irb & OCD) { /* cable disconnected ? */ do { 


p->pd_err = "Open Cable Disconnect"; asm (" movb a5@(9),a4@+ "); 
goto haderr: /* asm (" movb a5@(9),d6 "); */ 
} /* asm (" movb d6,a4@t+ "jy; */ 
#* asm (" eorb d6,d7 "); */ 
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} while (--i [= -1); 


} 


/* Determine if IO operation is completed or spans another block. */ 


} 


if (p->pd_state == SWRTD) { 


#ifdef MOREASM 


tendif 


#ifdef MOREASM 


#endif 


p->pd_beount -= min(SECSIZE, (unsigned) p->pd_bcount) ; 

if (p->pd_beount <= 6 [| ++p->pd_blkno >= p->pd_ limit) { 
bp->b_resid = p->pd_bcount; 
prorelse ip, bp) ; 
if (p-prodata = 0) ppinuse = 0; /* contrast */ 

if (prostart(p)) { /* startup next buf in chain */ 
p->pd_err = “prostart failed on next blk"; 
goto haderr; 

I 

return; /* next op started or no next op */ 

} 

p->pd_addr += SECSIZE; /* setup for next block of io trans */ 

if (procmd (bp->b_flags, bp->b_dev, p->pd_bl kno, (unsigned) p->pd_bcount) ) { 
p->pd_err = "Procmd failed to continue operation"; 
goto haderr; 

} 


return; /* end of i/o or beg of next blk */ 


/* send data */ 

p->pd_nxtst = SFINI; 

ASSERT (p->pd_bcount>6, prointr, (""),while(1)) 
devp->d_irb &= ~DRH; /* set dir=out */ 

devp->d_ddra = OxFF; #* set port A bits to output */ 


ph = éphbuf; 

ph->ph_fileid = p->pd_bikno 70 :0xAAAA; 
i = sizeof(phbuf) - 1; 
cp = (char *) (ph); 

do devp->d_ira = *cpt+; 
while (--i != -1); 

ep = {char *)p->pd_addr; /* place to get data from */ 
i = min(SECSIZE, (unsigned) p->pd_bcount) ; 


if ((i & 3) = 0) { 
i= (1 >> 2) - 1; 
do { 
asm (" movb a4@+,a5@(9) ™); 
asm (" movb a4@+,a5@(9) "); 
asm (" movb a4@+,a5@(9) "); 
asm (" movb a4@+,a5@(9) “); 


/* asm (" movb a4@+,d6 ")j; xf 
/* asm (" eorb d6é,d7? "); xf 
/* asm (" movb d6,a5@(9) ™); xf 
/* asm (“ movb a4@+,dé6 ™); xf 
/* asm (" eorb d6,a7 “); xf 
/* asm {" movb d6,a5@(9) "); *f 
/* asm (" movb a4@+,d6 "); xf 
/* asm (" eorb d6é,da7 "); */ 
/* asm (" movb d6,a5@(9) “); *f 
/* asm (" movb a4@+,d6 "); xf 
/* asm (" eorb d6,d7 "); xf 


/* asm (" movb d6,a5@(9) "); xf 
} while (--i != -1); /* optimizes to DBRA */ 
} else { 


asm ("“ movb a4@+,a5@(9) "); 

/* asm (" movb a4@+,d6 "jp; */ 

/* asm (" eorb d6,d7 "); */ 

/* asm (" movb d6,a5@(9) "jp; */ 
} while (--i != -1); 


} 


if (prochk(p,SPERFORM)) { 


haderr: 


p->pd_err = “didn’t get to perfrom state"; 


goto haderr; 


} 
return; {x 


} 
p->pd_err = “invalid state"; 


do { 


bp->b_resid = p->pd_bcount; 


bp->b_flags |= B_ ERROR; 


will pick up status next intr */ 


ERROR ( ("dev $d: %s\n", p-prodata, p->pd_err)); 


prorelse(p,bp): 
p->pd_state = SERR; 
} while (prostart(p)); 


Get in syne with disk. 
(subroutine FINDD2 & CHKRSP from ’profrom.text’ document) 


If disk response is ‘state’ then returns 0 (success) 


x 
x 
* Expects enable==true and Direction==in at start. 
* 
x 


otherwise fails {returns -1 if timeout and cur state if bad state). 


xf 


prochk(p, state) 


{ 


register struct prodata *p; 


register struct device_d *devp = p->pd_da; 


register zero = 6; 
register i; 
int resp; 


/* while ({devp->d_irbéBSY)=—=0); */ 
ASSERT ( (devp->d_irb&BSY)==BSY, prochk, ("state=%d [waiting]",state),goto err) 


err: 


} 


/* while ((devp->d_irb&BSy)==0); */ 


if (state = SCMD && (p-prodata = 
if (12_reflag) i* 
l2ramp (2); /* 
ppinuse = 1; 
} 
devp->d_irb |= DRW; i* 
devp->d_ddra = zero; /* 
devp->d_irb &= ~CMD; {* 


i = RSPTIME; {* 
while (devp->d_irbséBSy && i--); /* 


resp = PIDL; /* 
if (i > 6) { {* 


i = devp->d_ira; {* 
if (i == state) i* 
resp = PGO; /* 


devp->d_irb &= ~(DRW|CMD); 
devp->d_ddra = OxFF; 
devp->d_ira = resp; 
devp->d_ier = FIRQIFCAI1; 
devp->d_irb |= CMD; 
p->pd_state = p->pd_nxtst; 
return (i == state) 20 :i; 
} 


if (p-prodata == 0) ppinuse = 0; 
p->pd_state = SERR; 


6)) {/* PP inuse */ 
ramp in progress */ 
so help it along */ 


set input mode */ 
set port A bits to input */ 
set cmd and enable bufs */ 


about lms */ 
wait sig that resp byte is ready*/ 


reply to use if resp byte wrong */ 
didn’t timeout */ 
get response from disk */ 
got correct state */ 
reply to use if resp byte correct*/ 
/* set dir=out cmd=true */ 
/* set port A bits to output */ 
/* send reply (GO or RESET) */ 
/* enable interrupts */ 
/* sig disk to read resp */ 
/* setup next state */ 


/* reset ppinuse flag */ 


p->pd_err = “EXCESSIVE DISK DELAY -- (is the drive plugged in??)"; 
ERROR ( ("dev td: $s\n",p-prodata,p->pd_err)); 


devp->d_ddra = zero; /* 
devp->d_irb |= CMD|DRW; i* 
devp->d_ier = ~FIRQ; /* 
return {-1); 


/* ARGSUSED */ 
proioctl{dev, cmd, addr, flag) 
dev_t dev; 


int cmd; 
caddr_ t 


int flag; 


addr; 
/*NOTUSED* / 


set port A bits to input */ 
set dir=in, disable buffers */ 
disable all interrupts */ 
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struct prodata *p = &prodata[physical (dev) ]; 
switch (cmd) { 


case TIOCGETP: 
if {copyout((caddr_t)&p->pd_flags, addr, sizeof (p->pd_flags))) 
u.u_error = EFAULT; 
break; 
case TIOCSETP: 
if (copyin(addr, (caddr_t)&p->pd_flags, sizeof (p->pd_flags)}) 
u.u_error = EFAULT; 
break; 
default: 
u.u_error = ENOTTY; 
} 
} 
proprint (dev, str) 
char *str; 
{ 
printf("%s on pro drive %d, slice td\n", str, (dev>>4)&OxF, devé7); 
} 
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#include “sys/param.h" 
#include “sys/config.h" 
#include “"sys/types.h" 
#include “sys/moau.h" 
#include “sys/sysmacros.h" 
#include “net/misc.h" 
f#include "net/socket.h" 
#include “net/protosw.h" 
#include "net/in.h" 
#include “net/in_systm.h" 


82/06/20 


*f 


* Protocol configuration table and routines to search it. 


* SHOULD INCLUDE A HEADER FILE GIVING DESIRED PROTOCOLS 


*f 
ft 
* Local protocol handler. 
xf 
j* 
* TCP/IP protocol family: IP, ICMP, UDP, TCP. 
af 
int ip_output (); 
int ip init(),ip_slowtimo(),ip drain(); 
int icmp_input (}; 
int udp input (),udp_ctlinput (); 
int udp usrreq({); 
int udp init(); 
int tep_input (),tep_ctlinput (); 
int tep_usrreq{); 
int tep_init(),tep_fasttimo(),tep_slowtimo{),tcp _drain():; 
int rip_input(),rip output (); 
{* 


* IMP protocol family: raw interface. 
x Using the raw interface entry to get the timer routine 
* in is a kludge. 


xf 


#include “"net/imp.h" 


#if NIMP > 6 


aint rimp_output(), hostslowtimo(); 


#endif 


/*® 


* PUP-I protocol family: raw interface 


xf 


ftinclude “"net/pup.h" 


#if NPUP > 0 


int rpup_ output (); 

fendif 

fe 

* Sundries. 

*} 

int raw_init(),raw_usrreq(),raw_input(),raw_ctlinput(); 


struct protosw protosw[] = { 


{ 0, 
0, 
0, 
ip_init, 

be 

{ 0, 
icmp_input, 
Qo, 
Q, 

ly 

{ SOCK_DGRAM, 
udp input, 
udp _usrreq, 
udp_init, 

i 


o, 
ip_output, 


0, 


PF_INET, 
0, 


o, 


PF_INET, 
Q, 


Oo, 


Qo, 
Q, 


ip_slowtimo, 


IPPROTO_ICMP, 
o, 


0, 


IPPROTO_UDP, 
udp_ctlinput, 


0, 


0, 
0, 


ip_drain, 


PR_ATOMIC/PR_ADDR, 
a, 


Q, 


{ SOCK_STREAM, 
tep_input, 
tcp_usrreq, 
tep_init, 

he 

{ 0, 
raw_input, 
raw_usrreq, 
raw_init, 

}, 

#ifdef SRI 

{ SOCK_RAW, 
rip_input, 
Yaw_usrreq, 
oO, 

h, 

#endif 

{ SOCK_RAW, 
rip_input, 
raw_usrreq, 
o, 

} 

#if NIMP > 0 

r 

{ SOCK_RAW, 
9, 
raw_usrreq, 
Qo, 

} 

#endif 

#if NPUP > 0 

fr 

{ SOCK_RAW, 
Q, 
raw_usrreq, 
6, 

} 

fendif 

hs 


#define NPROTOSW 


PF_INET, 
8, 


tep_fasttimo, 


Q, 
6, 


o, 

PF_INET, 
rip_output, 
0, 

PF_INET, 
rip_output, 


Qo, 


PF_IMPLINK, 
rimp_output, 


G, 


PF_PUP, 
rpup_ output, 


8, 


IPPROTO TCP, 
tep_ctlinput, 


tep_slowtimo, 


0, 
raw_ctlinput, 


o, 

15, 

o, 9, 
Oo, 
IPPROTO_RAW, 
Qo, 0, 


8, 


o, 
0, 


hostslowtimo, 


PR_CONNREQUIRED|PR_WANTRCVD, 
o, 


tep_drain, 


PR_ATOMIC|PR_ADDR, 


o, 


PR_ATOMIC|PR_ADDR, 


0, 


PR_ATOMIC|PR_ADDR, 
8, 


8, 


PR_ATOMIC{PR ADDR, 
9, 


a, 


(sizeof{(protosw) / sizeof {protosw[0])) 


struct protosw *protoswLAST = &protosw[NPROTOSW-1]; 


fk 


* Operations on protocol table and protocol families. 


xf 


ft 


* Initialize all protocols. 


xf 
pfinit () 
{ 


register struct protosw *pr; 


for (pr = protoswLAST; pr >= protosw; pr--) 


} 
/* 


* Find a standard protocol in a protocol family 


if (pr->pr_init) 


(*pr->pr_init) ()? 


* of a specific type. 


my, 


struct protosw * 


pffindtype (family, type) 
int family, type; 


{ 


register struct protosw *pr; 


if (family = 0) 


for (pr 


return (06); 


= protosw; pr <= protoswLAST; prt+t+) 
if (pr->pr_family == family && pr->pr_type == type) 
return (pr); 


return (0); 
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} 


/* 
* Find a specified protocol in a specified protocol family. 
xf 
struct protosw * 
pffindproto(family, protocol) 
int family, protocol; 
{ 
register struct protosw *pr; 


if (family == 0) 
return (9); 
for (pr = protosw; pr <= protoswLAST; prt+t) 
if (pr->pr_family == family && pr->pr_protocol == protocol) 
return (pr); 
return (0); 
} 


#ifdef notdef 

pfctlinput{emd, arg) 
int cmd; 
caddr_t arg; 


register struct protosw *pr; 


for (pr = protosw; pr <= protoswLAST; prt++) 
if (pr->pr_ctlinput) 
(*pr->pr_ctlinput} (cmd, arg); 
} 
tendif 


{* 
* Slow timeout on all protocels. 
*f 
pfslowtimo() 
{ 
register struct protosw *pr; 


for (pr = protoswLAST; pr >= protosw; pr--) 
if (pr->pr_slowtimo) 
(*pr->pr_slowtimo) (); 
} 


pffasttimo() 
{ 
register struct protosw *pr; 


for (pr = protoswLAST; pr >= protosw; pr--) 
if (pr->pr_fasttimo) 
(*pr->pr_fasttimo) (); 
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/* pty.c 4.21 82/03/23 xf 


i* 

* Pseudo-teletype Driver 

* (Actually two drivers, requiring two entries in ‘cdevsw’) 
xf 


/* 

* billn -- 12/15/82. Mercilessly hacked for system 3. To do 
Remote input editing, etc, need to rework it again 

* from the original. 

*/ 


#include "net/pty.h" 


#if NPTY > 0 

#include “sys/param.h" 
finclude "sys/config.h" 
#include "sys/types.h" 
f#include “sys/mmu.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/tty.h" 
#include “sys/ttold.h" 
#include “sys/termio.h" 
#include “sys/ioctl.n" 
#include "sys/dir.h" 
#include “sys/signal.h" 
#include “sys/errno.h" 
f#include “sys/user.h" 
#include “sys/conf.h" 
#include “sys/buf.h" 
#include “sys/file.h" 
#include “sys/proc.h" 
#include “sys/var.h" 
#include “net/misc.h" 


#define BUFSI2Z 100 /* Chunk size iomoved from user */ 


{* 
* pts == /dev/tty[pP]? 

* ptc = /dev/pty[pP]? 
af 

struct tty pt_tty[NPTY]; 
struct pt_ioctl { 


int pt_flags; 

int pt_gensym; 

struct proc *pt_selr, *pt_selw; 
int pt_send; 


} pt_ioctl[NPTY); 


#define PF_RCOLL 0x61 
#define PF_WCOLL 0x02 
#define PF_NBIO 0x04 
#define PF_PKT 0x08 /* packet mode */ 
#define PF_STOPPED 0x10 /* user told stopped */ 
#define PF_REMOTE 0x20 /* remote and flow controlled input */ 
#define PF_NOSTOP 0x40 
#define PF_WTIMER 6x80 /* waiting for timer to flush */ 
/* billn -- kludge */ 
#define PF_PTSOPEN 0x100 /* pts side is open */ 
#define PF_PTCOPEN 0x200 /* pte side is open */ 
/*ARGSUSED*/ 
ptsopen(dev, flag) 
dev_t dev; 


{ 
register struct tty *tp; 
register struct pt_loctl *pti = &pt ioctl [minor (dev) }; 


if (dev >= NPTY) { 
u.u_error = ENXIO; 
return; 
} 
tp =~ épt_tty[dev]; 
if ((tp->t_state & ISOPEN) == 6) { 


/* No features (nor raw mode) */ 
tp->t_cflag = 0; tp->t_oflag = 0; 
tp->t_iflag = 0; tp->t_lflag = 0; 
ttinit (tp); /* Set up default chars */ 
} 
if itp->t_proc} /* Ctrlr still around. */ 
tp->t_state |= CARR_ON; 
while ((tp->t_state & CARR_ON) == 6) { 
tp->t_state |= WOPEN; 
(void) sleep((caddr_t)&tp->t_rawq, TTIPRI); 
} 
{(*linesw[tp->t_line] .1_open) (tp); 
pti->pt_flags |= PF_PTSOPEN; 
} 


ptsclose (dev) 
dev_t dev; 
{ 
register struct tty *tp; 
register struct pt_ioctl *pti = épt_ioctl[minor (dev) ]; 


tp = épt_tty[dev]; 
(*linesw[tp->t_line] .1_close) (tp); 
pti->pt_flags &= ~PF_PTSOPEN; 
if ((pti->pt_flags & PF_PTCOPEN) = 0) /* other end already gone? */ 
tp->t_proc = 0; 
} 


ptsread (dev) 
dev_t dev; 
f 
register struct tty *tp = épt_tty[dev]; 
register struct pt_ioctl *pti = &pt_ioctl [minor (dev) ]; 


if (tp->t_proc) 
(*lLinesw[tp->t_line] .1_read) (tp); 
wakeup ({caddr_t)&tp->t_rawq.c_ cf); 
if (pti->pt_selw) { 
selwakeup(pti->pt_selw, pti->pt_flags & PF_WCOLL); 
pti->pt_selw = 0; 
pti->pt_flags &é= ~PF_WCOLL; 


* Write to pseudo-tty. 
* Wakeups of controlling tty will happen 
* indirectly, when tty driver calls ptsstart. 


x} 
ptswrite (dev) 
dev_t dev; 
{ 
register struct tty *tp; 
tp = épt_tty[dev]; 
if (tp->t_proc) 
(*linesw[tp->t_line].1_ write) (tp); 
} 
ptcwakeup (tp) 


struct tty *tp; 
{ 
struct pt_ioctl *pti = spt_ioctl[tp - &pt_tty[0]]; 
int s = spl5{); /* any NZ spl will lockout ptctimer */ 


if (pti->pt_selr) { 
selwakeup(pti->pt_selr, pti->pt_flags & PF_RCOLL); 
pti->pt_selr = 0; 
pti->pt_flags &= ~PF_RCOLL; 

} 

if (pti->pt_selw) { 
selwakeup(pti->pt_selw, pti->pt_flags & PF_WCOLL); 
pti->pt_selw = 0; 
pti->pt_flags &= ~PF_WCOLL; 
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wakeup((caddr_t)&tp->t_outgq.c_cf); 
splx(s); 
} 


ptctimer ()} 

{ 
register struct tty *tp = épt_tty[0]; 
register struct pt_ioctl *pti = apt_ioctl[0]; 
register i; 


timeout (ptctimer, (caddr_t)0, v.v_hz >> 2); 
for (i=0; i<NPTY; i++, ptit+, tptt) { 
if ((pti->pt_flags & PF_WTIMER) == 0) 
continue; 
pti->pt_flags &= ~PF _WTIMER; 
if (tp->t_proc = 0) 
continue; 
ptcwakeup (tp); 


} 


/ *ARGSUSED* / 

ptcopenidev, flag) 

dev_t dev; 

int flag; 

{ 
register struct tty *tp; 
struct pt_ioctl *pti; 
static first; 
extern int ptsstart(j; 


if (first — 0) { 
first++; 
pictimer {); 
} 
if (dev >= NPTY) { 
u.u_error = ENXIO; 
return; 
} 
tp = épt_tty[dev]; 
if (tp->t_proc) { 
u.u_error = BIO; 
return; 
} 
tp->t_iflag = ICRNL|ISTRIP|IGNPAR; 
tp->t_oflag = OPOST|ONLCR|TAB3; 
tp->t_lflag = ISIG|ICANON; /* no echo */ 
tp->t_proc = ptsstart; 
if (tp->t_state & WOPEN) 
wakeup ((caddr_t) &tp->t_rawq); 
tp->t_state |= CARR_ON; 
pti = &pt_ioctl{dev]; 
pti->pt_flags = 0; 
pti->pt_send = 0; 
pti->pt_flags {= PF_PTCOPEN: 


} 


ptcclose (dev) 
dev_t dev; 
{ 
register struct tty *tp; 
register struct pt_ioctl *pti = &pt_ioctl [minor (dev) ]; 


tp = é&pt_tty[dev]; 
if (tp->t_state & ISOPEN) 
signal (tp->t_pgrp, SIGHUP); 


tp->t_state &= ~CARR_ON; /* virtual carrier gone */ 


ttyflush(tp, FREAD|FWRITE); 
pti->pt_flags &= ~PF_PTCOPEN: 


if ((pti->pt_flags & PF_PTSOPEN) == 0) /* other end already gone? */ 


tp->t_proc = 0; /* mark closed */ 
} 


ptcread (dev) 
dev_t dev; 
{ 


i*® 


register struct tty *tp; 
register struct pt_ioctl *pt 
register c; 


Joe 


tp = &pt_tty[dev]; 
3£. ((tp->t_stateé (CARR_ON| ISOPEN) ) == §) 
return; 
pti = épt_ioctl [dev]; 
if (pti->pt_flags & PF_PKT) { 
if (pti->pt_send) { 
(void) passe{pti->pt_send); 
pti->pt_send = 4; 
return; 
} 
(void) passc(0); 
} 
while (tp->t_outgq.c_cc == 0 [| (tp->t_statesTTSTOP)) { 
if (pti->pt_flagséPF NBIO) { 
u.u_error = EWOULDBLOCK; 
return; 
} 
(void) sleep((caddr_t)&tp->t_outq.c cf, TTIPRI); 
} 
while (tp->t_outgq.c_cc && {c = getc(&tp->t_outq)) >= 6) 
if (passcic) < 9) 
break; 
tp->t_state &= ~BUSY; 
if {tp->t_statesOASLP) { 
tp->t_state &= ~OASLP; 
wakeup ( (caddr_t)&tp->t_outq);: 
} 
if (tp->t_state&TTIOW && tp->t_outq.c_cc==@) { 
tp->t_state &= ~TTIOW; 
wakeup ((caddr_t)&tp->t_oflag); 


* System 5 does not have nbio normally 


*f 


/* #define IF_NBIO */ 


ptcwrite (dev) 


{ 


dev_t dev; 


register struct tty *tp; 
register char *cp, *ce; 
register int cc, c, ctmp; 
char locbuf[BUFSI2Z]; 


#ifdef IF_NBIO 


#endif 


again: 


4ifdef 


tendif 


int cnt = 0; 


tp = &pt_tty[dev]; 
if ({(tp->t_stateé&(CARR_ON|ISOPEN)) == 0) 
return; 
do { 
cc = MIN({u.u_count, BUFSI2Z); 
cp = locbuf; 
iomeve(cp, cc, B_WRITE); 
if (u.u_error) 
break; 
ce = cp + cc; 
while (cp < ce) { 
while (tp->t_delct && tp->t_rawq.c_cc >= TTYHOG - 2) { 
wakeup ((caddr_t)&tp->t_rawq); 
IF_NBIO 


if (tp->t_state & TS_NBIO) { 
u.u_count += ce - cp; 
if (cnt == 0) 
u.u_error = EWOULDBLOCK; 
return; 
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/* Better than just flushing it! */ 
/* Wait for something to be read */ 
{void) sleep ((caddr_t)&tp->t_rawgq.c_cf, TTOPRI); 
goto again; 
} 
c= *eptt:; 
if (tp->t_iflag & IXON) { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 
if (c == CSTART |{ tp->t_iflag & IXANY) 
(*tp->t_proc) (tp, T_RESUME); 
} else 
if {c — CSTOP) 
(*tp->t_proc) (tp, T_SUSPEND); 
if (c == CSTART || c = CSTOP) 
continue; 
} 
if (tp->t_rbuf.c_ptr != NULL) { 
if (tp->t_iflagsISTRIP) 
c &= 6177; 
*tp->t_rbuf.c ptr = c; 
tp->t_rbuf.c_count--; 
(*linesw[tp->t_line].1_ input) (tp); 


enttt+; 


} 
(u.u_count); 


ptcioctl{dev, cmd, addr, flag) 


caddr_t addr; 
dev_t dev; 
{ 


register struct tty *tp = &pt_tty(minor(dev)]; 
register struct pt_ioct] *pti = apt_ioctl[dev]; 


if (cmd == TICCPKT) { 


if (cmd 


} 


int packet; 
if {copyin{((caddr_t)addr, (caddr_t)épacket, sizeof (packet))) { 
u.u_error = EFAULT; 
return; 
} 
if (packet) 
pti->pt_flags |= PF_PKT; 
else 
pti->pt flags é= ~PF PKT; 
return; ~ ~ 


== FIONBIO) { 
int nbio; 
if (copyin((caddr_ tjaddr, (caddr_t)&énbio, sizeof (nbio))) { 
u.u_error = EFAULT; 
return; 
} 
if (nbio) 
pti->pt_flags |= PF_NBIO; 
else 
pti->pt_flags &é= ~PF_NBIO; 
return; 


/* IF CONTROLLER STTY THEN MUST FLUSH TO PREVENT A HANG 222 */ 
if ((cmd==TIOCSETP) || (cmd==TCSETAW)) { 


} 


while (getc(&tp->t_outq) >= 0); 
tp->t_state &= ~BUSY; 


ptsioctl{dev, cmd, addr, flag); 


/ *ARGSUSED*/ 


ptsioctl(dev, cmd, addr, flag) 
register caddr t addr: 
register dev_t dev; 


{ 


register struct tty *tp = épt_tty(dev]; 


} 


register struct pt_ioctl *pti = épt_ioctl [dev]; 
register int stop; 

if (ttiocom(tp, cmd, (int)addr, dev) = 4) 

/* else...22 */ 

stop = tp->t_iflagsIXON; 


if (pti->pt_flags & PF_NOSTOP) { 


} else { 


if (stop) { 
pti->pt_send &= TIOCPKT_NOSTOP; 
pti->pt_send |= TIOCPKT_DOSTOP; 
pti->pt_flags &= ~PF_NOSTOP; 
ptcwakeupi(tp): 

} 


if (stop = 0) { 
pti->pt_send &= ~TIOCPKT_DOSTOP; 
pti->pt_send |= TIOCPKT_NOSTOP; 
pti->pt_flags |= PF_NOSTOP; 
ptcwakeup (tp); 


ptsstart(tp, cmd) 
register struct tty *tp; 


{ 


start: 


register struct pt_ioctl *pti = épt_ioctl[tp - ept_tty[0]]; 
extern ttrstrt(); 


switch(cmd) { 
case T_TIME: 


tp->t_state é&= ~TIMEOUT; 
goto start; 


case T_WFLUSH: 


1f (tp->t_outq.c_ce) { 
while (getc(&tp->t_outq) >= 0) 


tp->t_state é&= ~BUSY; 


} 
/* fall through */ 


case T_RESUME: 


tp->t_state &= ~TTSTOP; 
wakeup{ (caddr_t)étp->t_outq.c_ cf); 
/* fall through */ 


case T_OUTPUT: 


if (tp->t_states (TIMEOUT | TTSTOP | BUSY) ) 
break; 

if (tp->t_statesTTIOW s& tp->t_outgq.c_cc==0) { 
tp->t_state &= ~TTIOW; 
wakeup({ (caddr_t) &tp->t_oflag); 


if (pti->pt_flags & PF_STOPPED) { 
pti->pt_flags &= ~PF_STOPPED; 
pti->pt_send = TIOCPKT_START; 


if (tp->t_outq.c_cc < 200) { 
pti->pt_flags |= PF_WTIMER; 
return; 

} 

pti->pt_flags &= ~PF_WTIMER; 

tp->t_state |= BUSY; 

ptcwakeup (tp) ; 

if (tp->t_stateéOASLP && 

tp->t_outq.c_cc <= ttlowat {tp->t_cflag&CBAUD!) 

tp->t_state &= ~OASLP; 
wakeup((caddr_t) &tp->t_outq): 

} 

break; 


case T_SUSPEND: 


tp->t_state |= TISTOP; 


{ 
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pti->pt_flags |= PF_STOPPED; 
pti->pt_send |= TIOCPKT_STOP; 
break; 


case T BLOCK: 
tp->t_state |= TBLOCK: 
tp~->t_state &= ~TTXON; 
if(tp->t_outq.c_cc > @) 
wakeup((caddr_t)&tp->t_outq.c_cf); 
break; 


case T_RFLUSH: 
if (1 (tp->t_state&TBLOCK) ) 
break; 


case T_UNBLOCK: 
tp->t_state &= ~(TTXOFF|TBLOCK) ; 
if (tp->t_outq.c_cc > 0) 
wakeup ((caddr_t)&tp~->t_outq.c_ cf); 
break; 


case T_BREAK: 
tp->t_state |= TIMEOUT; 
timeout (ttrstrt, (caddr_t)tp, v.v_hz/4); 
break; 


} 


ptcselect (dev, rw) 
dev_t dev; 
int rw; 


register struct tty *tp = spt_tty[minor (dev) ]; 
struct pt_ioctl *pti = épt_ ioctl [minor (dev) ]; 
struct proc *p; 

int s; 


if ((tp->t_states (CARR_ON|ISOPEN)) == 0) 


return (1); /* 222? bilin */ 
s = spl7(); 
switch (rw) { 
case FREAD: 
if (tp->t_outq.c_ cc && (tp->t_state&TTSTOP) == 0) { 


Splx(s); 
return (1); 
} 
if ((p = pti->pt_selr) && p->p_wchan == (caddr_t)éselwait) 
pti->pt_flags |= PF_RCOLL; 
else 
pti->pt_selr = u.u_procp; 
break; 


case FWRITE: 
splx(s); 
return 1; 
#ifdef notdef 
/* 
* only do this if using "PF_REMOTE" ala 4.1a . So why keep 
* it? <-- history... 
x] 
if (tp->t_rawq.c_cc == 0) { 
splx{s); 
return (1); 
} 
if ((p = pti->pt_selw) && p->p_wchan == (caddr_t) &selwait) 
pti->pt_flags |= PF_WCOLL; 
else 
pti->pt_selw = u.u_procp; 
#endif 
break; 
i 
splx(s); 
return (0); 
} 
#endif 
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i* pup.c 4.2 82/06/20 xf 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/errno.h" 
#include “sys/types.h" 
#include “sys/systm.h" 
f#include “net/misc.h" 
#include “net/mbuf.h" 
#include “net/protosw.h" 
#include “net/socket.h" 
#include “net/socketvar.h" 
#include “net/in.h" 
#include "net/in systm.h" 
#include “net/af.h" 
f#include “net/pup.h" 


#ifdef PUP 

pup_hash{spup, hp) 
struct sockaddr pup *spup; 
struct afhash *hp; 


hp->afh_nethash = spup->spup_addr.pp net; 
hp->afh_hosthash = spup->spup_addr.pp host; 
if (hp->afh_hosthash < 6) 
hp->afh_hosthash = ~hp->afh_hosthash; 
} 


pup_netmatch({spupl, spup2) 
struct sockaddr pup *spupl, *spup2; 
{ 


return (spupl->spup_addr.pp net == spup2->spup_addr 


} 
#endif 


«-pp_net); 
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fe raw_cb.c 4.16 83/02/10 af 
finclude “sys/param.h" 
#include “sys/config.h" 
#include “sys/errno.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.h"™ 
#include “sys/sysmacros.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “net/misc.h" 
#include “net/socket.h" 
#include “net/socketvar.h" 
f#include “net/mbuf.h" 
#include “net/protosw.h" 


#include "net/if.h" 
#include “net/raw_cb.h" 


Routines to manage the raw protocol control blocks. 


TODO: 
hash lookups by protocol family/protocol + address family 
take care of unique address problems per AF? 
redo address binding to allow wildcards 


f* 
* Allocate a control block and a nominal amount 
* of buffer space for the socket. 
ef 
raw_attach (so} 
register struct socket *so; 
{ 
struct mbuf *m; 
register struct rawcb *rp; 


/* billn, meld w/ old note don’t gtclr -- will it work? 
m = m_getclr({M DONTWAIT, MT_PCB); 


*f 
m = m_get(M_DONTWAIT); 
if (m = 0) 


return (ENOBUFS); 

if (sbreserve{&so->so_snd, RAWSNDQ} == 0) 
goto bad; 

lf (sbreserve(&so->so rev, RAWRCVQ) == 0) 
goto bad2; 

rp = mtod(m, struct rawcb *); 

rp->reb_ socket = so; 

insque(rp, &rawcb); 

so~>so_pceb = (caddr_t)rp; 

rp->reb pcb = 0; 

return (0); 


bad2: 
sbrelease(&so->so_snd); 
bad: 
(void) m_free(m); 
return (ENOBUFS); 
} 
/* 


* Detach the raw connection block and discard 
* socket resources. 
*/ 
raw_detach (rp) 
register struct rawcb *rp; 
{ 
struct socket *so = rp->rcb_ socket; 


so->so_ pcb = 0; 
sofree(so); 

remque (rp); 
m_freem(dtom(rp)}; 


/* 
* Disconnect and possibly release resources. 
x] 
raw_disconnect (rp) 
struct rawch *rp; 


{ 


rp->reb_flags &= ~RAW_FADDR; 
/* billn -- meld with old... 
if (rp->rcb_socket->so_state & SS NOFDREF) 
xf 
if (rp->rceb_socket->so_state & SS_USERGONE) 
raw_detach(rp); 
} 


#ifdef notdef 

raw_bind(so, nam) 
register struct socket *so; 
struct mbuf *nam; 


struct sockaddr *addr = mtod(nam, struct sockaddr *); 
register struct rawcb *rp; 


if (ifmet — 0) 
return ({EADDRNOTAVAIL); 
{ 
/* 
#include "../h/domain.h" 
xf 
#include “"net/in.h" 
#include “net/in_systm.h" 
/* BEGIN DUBIOUS */ 
f* 
* Should we verify address not already in use? 
* Some say yes, others no. 
xf 
switch (addr->sa_family) { 


case AF_IMPLINK: 
case AF INET: 
if (((struct sockaddr_in *)addr)~>sin_addr.s addr && 
if_ifwithaddr(addr) == 0) 
return (EADDRNOTAVAIL) ; 
break; 


#ifdef PUP 
/* 

* Curious, we convert PUP address format to internet 
to allow us to verify we’re asking for an Ethernet 
interface. This is wrong, but things are heavily 
oriented towards the internet addressing scheme, and 
converting internet to PUP would be very expensive. 


+ ee 


*f 
case AF_PUP: { 
#include "../netpup/pup.h" 
struct sockaddr pup *spup = (struct sockaddr pup *)addr: 
struct sockaddr_in inpup; 


bzero((caddr_t)&inpup, (unsigned) sizeof (inpup)); 

inpup.sin_family = AF_INET; 

inpup.sin_addr.s net = spup->sp net; 

inpup.sin_addr.s impno = spup->sp_host; 

if (inpup.sin_addr.s addr && 
if_ifwithaddr((struct sockaddr *)&inpup) == 6) 

return (EADDRNOTAVAIL) ; 
break; 


fendif 


default: 
return (EAFNOSUPPORT); 


} 
} 


/* END DUBIOUS */ 
rp = sotorawcb(so); 


raw_cb.c Fri Sep 5 19:09:34 1986 


beopy((caddr_t)addr, (caddr_t)érp->rcb_laddr, sizeof (*addr)); 
rp->reb_flags |= RAW_LADDR; 
return (0); 

} 

#endif 


{* 
* Associate a peer’s address with a 
* raw connection block. 
x] 
raw_connaddr(rp, nam) 
struct rawcb *rp; 
struct mbuf *nam; 


struct sockaddr *addr = mtod(nam, struct sockaddr *); 


beopy ((caddr_t)addr, (caddr_t)&rp->rcb_faddr, sizeof(*addr)}); 
rp->reb_ flags |= RAW _FADDR; 
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/* 


#include 
#include 
#include 


raw_ip.c 4.13 82/06/20 xf 


“sys/param.h" 
"“sys/config.h" 
"sys/errno.h" 


#include "“sys/types.h" 
f#include “sys/systm.h" 
#include “net/misc.h" 
#include “net/mbuf.h" 
#include “net/socket.h" 
finclude "net/protosw.h" 
#include “"net/socketvar.h" 
#include “net/if.n" 
#include "net/in.h" 
#include “net/in_systm.h" 
#include “net/ip.h" 


#include 
#include 


"net/ip_var.h" 
“net/raw_cb.h" 


#include "net/route.h" 
#include “errno.h" 


/* 
* Raw interface to IP protocol. 


static struct sockaddr_in ripdst = { AF_INET }; 
static struct sockaddr_in ripsre = { AF_INET }; 
static struct sockproto ripprote = { PF_INET }; 


{* 

* Setup generic address and protocol structures 

* for raw_input routine, then pass them along with 
* mbuf chain. 


rip_input (m) 


{ 


} 


{* 
* Generate IP header and pass packet to ip output. 
* Tack on options user may have setup with control call. 


struct mbuf *m; 


register struct ip *ip = mtod(m, struct ip *); 
register int hlen = ip->ip hl << 2; 


ripprote.sp_ protocol = ip->ip_p; 

ripdst.sin_addr = ip->ip dst; 

ripsre.sin_addr = ip->ip sre; 

m_adj(m, hlen); 

raw_input(m, &ripproto, (struct sockaddr *)éripsrce, 
(struct sockaddr *)éripdst); 


rip_output{m0, so) 


struct mbuf *m0; 
struct socket *so; 


register struct mbuf *m; 

register struct ip *ip; 

int len = 0, error; 

struct rawcb *rp = sotorawch(so); 
struct sockaddr_in *sin; 


/* 
* Calculate data length and get an mbuf 
* for IP header. 

*/ 

for (m =~ m0; m:; m = m->m_next) 

len += m->m_len; 

mM = m_get(M_ DONTWAIT) ; 

if (m == 0) { 

error = ENOBUFS; 
goto bad; 
} 


je 
* Fill in IP header as needed. 
xf 


bad: 


m->m_off = MMAXOFF - sizeof(struct ip); 
m->m_len = sizeof(struct ip); 
m->m_next = m0; 
ip = mtod(m, struct ip *); 
ip->ip_p = so->so_proto->pr_protocol; 
ip->ip len = sizeof(struct ip) + len; 
if (rp->reb_flags & RAW_LADDR) { 
sin = (struct sockaddr_in *)&rp->rceb_laddr; 
if (sin->sin_family != AF_INET) { 
error = EAFNOSUPPORT; 
goto bad; 


} 
ip->ip_src.s addr = sin->sin_addr.s addr; 
} else 
ip->ip_sre.s addr = 0; 
ip->ip_dst = ((struct sockaddr_in *)&rp->rcb_faddr)->sin_addr; 
ip->ip ttl = MAXTTL:; 
return (ip_output(m, (struct mbuf *)0, (struct route *)0, 1)); 


m_freem(m); 
return (error); 
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{* raw_usrreq.c 4.25 83/02/10 af 
#include “sys/param.h®" 
f#include “sys/config.h® 
#include "sys/errno.h" 
#include “sys/types.h" 


ft 


* Raw protocol input reutine. Process packets entered 


* into the queue at interrupt time. Find the socket 


#include "sys/sysmacros.h" * associated with the packet{s) and move them over. If 
#include “sys/systm.h" * nothing exists for this packet, drop it. 
#include “sys/sysmacros.h" xf 
#include “sys/dir.h" rawintr () 
#include “sys/signal.h" { 
#include "sys/user.h" int s; 
#include “net/misc.h" struct mbuf *m; 
#include “net/mbuf.h" register struct rawcb *rp; 
#include "“net/socket.h" register struct protosw *lproto; 
#include "net/socketvar.h" register struct raw_header *rh; 
#include "net/protosw.h" struct socket *last; 
#include "net/in.h" 
#include "net/in_systm.h" next: 
finclude “net/if.h" s = splimp()}; 
#include “"net/af.h" IF_DEQUEVE(&rawintrgq, m); 
#include "errno.h" splx{s); 
#include “net/raw_cb.h" if (m— 0) 
return; 
/* rh = mtod(m, struct raw header *); 
* Initialize raw connection block q. last = 0; 
xf for (rp = rawcb.rcb next; rp [= érawcb; rp = rp->rcb_next) { 
raw_init() lproto = rp->rcb_socket->so_proto; 
{ if (lproto->pr_family != rh->raw_proto.sp family) 
continue; 
taweb.rcb next = rawcb.rcb prev = érawcb; if (lproto->pr_protocol && 
rawintrg.ifq_maxlen = IFQ_MAXLEN; lproto->pr_protocol != rh->raw_proto.sp protocol) 
} continue; 
{* 
/* * We assume the lower level routines have 
* Raw protocol interface. * placed the address in a canonical format 
xf * suitable for a structure comparison. 
raw_input(m0, proto, sre, dst) xf 
struct mbuf *m0; #define equal(al, a2) \ 
struct sockproto *prota; (bemp({caddr_t)é&(al), (caddr_t)&(a2), sizeof (struct sockaddr)) == 0} 
struct sockaddr *sre, *dst; if ((rp->reb_flags & RAW_LADDR) é&& 
{ fequal{rp->reb_laddr, rh->raw_dst)) 
register struct mbuf *m; continue; 
struct raw_header *rh; if ((rp->reb_flags & RAW_FADDR} é& 
int s; lequal(rp->rcb_faddr, rh->raw_src)) 
continue; 
hl if (last) { 
* Rip off an mbuf for a generic header. struct mbuf *n; 
xf if ((n = m_copy(m->m_next, 6, (int)M_COPYALL)) == 0) 
/* billn -- meld with old goto nospace; 
m = m_get(M_DONTWAIT, MT HEADER); if {sbappendaddr(élast->so_ rev, érh->raw_src, n)==0) { 
*/ /* should notify about lost packet */ 
m = m_get(M DONTWAIT); m_freem(n); 
if (m = 0) { goto nospace; 
m_freem(mO); } 
return; sorwakeup(last); 
} } 
m->m_next = m0; nospace: 
m->m_len = sizeof(struct raw_header); last = rp->rcb_socket; 
rh = mtod(m, struct raw header *); } * 
rh->raw_dst = *dst; if (last) { 
rh->raw_sre = *src; m = m_free(m); /* header */ 
rh->raw_proto = *proto; if (sbappendaddr (élast->so_ rcv, &rh->raw_src, m) == 0) 
goto drop; 
i* sorwakeup (last); 
* Header now contains enough info to decide goto next; 
* which socket to place packet in (if any). } 
* Queue it up for the raw protocol process drop: 
* running at software interrupt level. m freem(m); 
x] goto next; 
S = splimp():; } 
if (IF_QFULL(&rawintrq) ) 
m_freem(m); /*ARGSUSED* / 
else raw_ctlinput (cmd, arg) 
IF_ENQUEUE(érawintrq, m); int cmd; 
splx(s); caddr_ t arg; 


schednetisr (NETISR_RAW); { 
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if (cmd < 6 || cmd > PRC_NCMDS) 
return; 
/* INCOMPLETE */ 
} 


/*ARGSUSED*/ 

raw_usrreq(so, req, m, nam) 
struct socket *so; 
int req; 
struct mbuf *m, *nam; 


register struct rawcb *rp = sotorawcb(so); 
int error = 0; 


if (rp = 0 && req != PRU_ATTACH) 
return (EINVAL); 


switch (req) { 


/* 
* Allocate a raw control block and fill in the 
* necessary info to allow packets to be routed to 
* the appropriate raw interface routine. 
xf 
case PRU_ATTACH: 
if ((so->so_state & SS _PRIV) = 6) 
return (EACCES); 
if (rp) 
return (EINVAL); 
error = raw_attach(so); 
break; 


/* 
* Destroy state just before socket deallocation. 
* Flush data or not depending on the options. 


*f 
case PRU_DETACH: 
if (rp = 0) 
return (ENOTCONN) ; 
raw_detach(rp); 
break; 
/* 


* If a socket isn’t bound to a single address, 
* the raw input routine will hand it anything 
* within that protocol family {assuming there’s 
* nothing else around it should go to). 
xf 
case PRU_CONNECT: 
if (rp->reb_flags & RAW _FADDR) 
return (EISCONN); 

raw_connaddr(rp, nam); 

soisconnected (so); 

break; 


case PRU_DISCONNECT: 
if ((rp->reb_flags & RAW_FADDR) == 0) 
return (ENOTCONN) ; 
raw_disconnect (rp); 
soisdisconnected (so); 


break; 
fe 
* Mark the connection as being incapable of further input. 
*/ 


case PRU_SHUTDOWN: 
socantsendmore (so); 
break; 


jr 
* Ship a packet out. The appropriate raw output 
* routine handles any massaging necessary. 
*/ 
case PRU_SEND: 
Lf (mam) { 


case 


f*® 


if (rp->rcb_flags & RAW_FADDR) 
return (EISCONN); 
raw_connaddr(rp, nam); 
} else if ({rp->rcb_flags & RAW_FADDR) == 0) 
return (ENOTCONN);: 
error = {*so->so_proto->pr_output) (m, so): 
if (nam) 
rp->reb flags &= ~RAW_FADDR; 
break; 


PRU_ABORT: 
raw_disconnect (rp); 
sofree{so); 
soisdisconnected (so); 
break; 


* Not supported. 


*f 
case 
case 
case 
case 
case 
case 


case 


PRU_ACCEPT: 
PRU_RCVD: 
PRU_CONTROL: 
PRU_SENSE: 
PRU_RCVOOB: 
PRU_SENDOOB: 
error = EOPNOTSUPP; 
break; 


PRU_SOCKADDR: 
beopy ((caddr_t)&rp->rcb_laddr, mtod(nam, caddr _t), 
sizeof (struct sockaddr}); 
nam->m_len = sizeof (struct sockaddr); 
break; 


default: 


} 


panic {"raw_usrreq") ; 


return (error); 
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/* @(#)rdwri.c 1.4 */ break; 

#include “sys/param.h" on = up->u_pboff; 

#include “sys/types.h" if ((n = up->u_pbsize) == 0) 
#include “sys/sysmacros.h" break; 

#include “sys/inode.h" dev = up->u_pbdev; 

#include "sys/dir.h" if ({long)bn<O) { 

#include “sys/signal.h" if (type {= IFREG) 
#include “sys/user.h" break; 
#include “sys/proc.h®" bp = geteblk{); 
#include “sys/errno.h" clrbuf (bp) ; 

#include “sys/buf.h" } else if (up~>u_rablock) 
#include "sys/conf.h" bp = breada{dev, bn, up->u_rablock); 


#include 
#include 


“sys/file.h" 
"sys/systm.h" 


else 
bp = breadidev, bn); 


#include “sys/tty.h" if (bp->b_resid) { 
n= 0; 
i* } 
Read the file corresponding to if (n!=0) 


the inode pointed at by the argument. iomove (bp->b_un.b addrton, (int)n, B_READ); 
The actual read arguments are found if (type = IFIFO) { 


ip->i_size -= n; 


* 
x 
* 
* in the variables: 
* 
* 
x 
*x 


u_base core address for destination 
u_offset byte offset in file 
u_count number of bytes to read 


if (up->u_offset >= PIPSI2) 
up->u_offset = 0; 


if ({ontn) == FsBSIZE(dev) && ip->i_size < (PIPSI2-FsBSIZE (dev) )) 


u_segflg read to kernel/user/user I bp->b_flags &= ~B_DELWRI; 
*f } 
readi (ip) brelse (bp); 
register struct inode *ip; ip->i_flag |= IACC; 


{ 


register struct user *up; 
register struct buf *bp; 
register dev_t dev; 
register daddr_t bn; 
register unsigned on, n; 
register type; 

register struct tty *tp; 
struct cdevsw *cdevp; 


} while (up->u_error==0 && up->u_count!=0 && n!=0); 


if (type == IFIFO) { 
if (ip->i_size) 


ip->i_frptr = up->u_offset; 


else { 
ip->i_frptr = 0; 
ip->i_fwptr = 0; 
} 
if (ip->i_fflag&IFIW) { 


ip->i_fflag &= ~IFI#; 


up = &u; curpri = PPIPE; 

Lf (up->u_count == 0) wakeup ( (caddr_t)&ip->i_fwent); 
return; } 

if (up->u_offset < 4) { } 
up->u_error = EINVAL; break; 
return; 

} default: 


type = ip->i_modeéIFMT; 
switch(type) { 
case IFCHR: 

dev = (dev_t)ip->i_rdev; 


up->u_error = ENODEV; 
} 
} 


ip->i_flag |= IACC; {* 
cdevp = écdevsw[ (short)major (dev) J; * Write the file corresponding to 
if (tp = cdevp->d_ttys) { * the inode pointed at by the argument. 
tp += (short) (minor (dev) £077); * The actual write arguments are found 
(*linesw[ (short) tp->t_line].1_ read) (tp); * in the variables: 
} else x 4 * u_base core address for source 
{(*cdevp->d_read) (minor (dev) ); * u_offset byte offset in file 
break; * u_count number of bytes to write 
* u_segflg write to kernel/user/user 
case IFIFO: x} r 


while (ip->i_size = @) { 
if (ip->i_fwent == 0) 


writei (ip) 
register struct inode *ip; 


return; { 
if (up->u_fmode&FNDELAY) register struct user *up; 
return; register struct buf *bp; 
ip->i_fflag |= IFIR; register dev_t dev; 
prele(ip): register daddr_t bn; 


(void) sleep((caddr_ t)éip->i_frent, PPIPE); 


plock (ip); 
} 


up~>u_offset = ip->i_frptr; 


register unsigned n, on; 
register type; 

unsigned int usave; 
register struct tty *tp; 


case IFBLK: struct cdevsw *cdevp; 
case IFREG: 

case IFDIR: up = &u; 

do { 


bn = bmap(ip, B_READ); 
if (up->u_error) 


if (up->u_offset < 0) { 
up->u_error = EINVAL; 
return; 
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type = ip->i_modeéIFrMrT; 
switch (type) { 
case IFCHR: 


dev = (dev_t)ip->i_rdev; 
ip-pi_flag {= TUPD!IICHG; 
cdevp = &écdevsw[ (short)major (dev) ]; 
if (tp = cdevp->d_ttys) { 
tp t= (short) (minor (dev) &077); 
(*Linesw[ (short) tp->t_line].1_ write) (tp); 
} else 
(*cdevp->d_write) (minor (dev}): 
break; 


case IFIFO: 


floop: 


usave = 0; 
while ({up->u_count+ip->i_size) > PIPSI2) { 
if (ip->i_frent — 0) 
break; 


if ((up->u_count > PIPSIZ) && (ip->i_size < PIPSI2Z)) { 


usave = up->u_count; 
up~>u_count = PIPSIZ - ip->i_size; 
usave -= up->u_count; 
break; 
} 
if (up->u_fmodeéFNDELAY) 
return; 
ip->i_fflag |= IFIW; 
prele({ip):; 
(void) sleep((caddr_t)&ip->i_fwent, PPIPE); 
plock (ip); 
} 
if (ip->i_frent == 0) { 
up->u_error = EPIPE; 
psignal(up->u_procp, SIGPIPE); 
break; 
} 
up~->u_offset = ip->i_fwptr; 


case IFBLK: 
case IFREG: 
case IFDIR: 
while (up->u_error==6 && up->u_count!=0) { 


bn = bmap(ip, B_WRITE); 
if (up->u_error) 
break; 
on = up->u_pboff; 
n = up->u_pbsize; 
dev = up->u_pbdev; 
if (n == FsBSI2E (dev) ) 
bp = getblk(dev, bn); 


else if (type==IFIFO && on==0 && ip->i_size < (PIPSIZ-FsBSIZE (dev) )} 


bp = getblk(dev, bn); 
else 
bp = bread(dev, bn); 


iomove (bp->b_un.b addrton, (int)n, B_WRITE); 
if (up->u_error)} 
brelse (bp); 
else if (up->u_fmode&FSYNC) 
bwrite (bp); 
else if (type == IFBLK) { 
/* IFBLK not delayed for tapes */ 
bp->b_flags |= B_AGE; 
bawrite (bp); 
} else 
bdwrite (bp); 
if (type == IFREG || type == IFDIR) { 
if (up->u_offset > ip->1_size) 
ip->i_size = up->u_offset; 
} else if (type == IFIFO) { 
ip->i_size += n; 
if (up->u_offset == PIPSI2Z) 
up->u_offset = 0; 
} 
ip->i_flag |= LUPD|ICHG; 


7* 


Ce 


*/ 


if (type — IFIFO) { 
ip->i_fwptr = up->u_offset; 
if (ip->i_fflagéIFIR) { 
ip->i_fflag 4&= ~IFIR; 
curpri = PPIPE: 
wakeup ((caddr_t)&éip->i_frent); 
} 
if (up->u_error==0 && usave!=0) { 
up->u_count = usave; 
goto floop; 


} 
break; 


default: 
up~->u_error = ENODEV; 


Move n bytes at byte location 

&bp->b_un.b addr[o] to/from (flag) the 
user/kernel (u.segflg) area starting at u.base. 
Update all the arguments by the number 

of bytes moved. 


iomovei(cp, n, flag) 
register caddr_t cp; 
register n; 


{ 


register struct user *up; 
register t; 


if (n==0) 
return; 
up = &u; 
if (up->u_segflg != 1) { 
if (flag==B_WRITE) 
t = copyin(up->u_base, (caddr_t)cp, n); 


else 

t = copyout{(caddr_t)cp, up->u_base, n); 
if (t) i 

up->u_error = EFAULT; 

return; 


else 
if (flag = B_WRITE) 
beopy (up->u_base, (caddr_t)cp,n); 
else 
beopy { (caddr_t)cp, up~>u_base, n) ; 
up->u_base += n; 
up->u_offset += n; 
up->u_count -= n; 
return; 
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char Version [] = "(C) Copyright 1984 UniSoft Corp., Version V.1.0"; 
char Origin [] = "UniSoft Systems of Berkeley"; 
f* 
* reboot rootdev 
* Change rootdev, pipedev, dumpdev, swapdev and nswap 
* in the incore copy of unix and then restart unix. 
- This is used during installation after a minimal 
- filesystem has been set up on the hard disk. It 
7 results in the first boot of unix from the hard disk. 
xf 
f#include “stdio.h" 
#include “nmaddrs.h" 
#include “sys/types.h" 
#include “sys/config.h" 
#include “sys/sysmacros.h" 
#include “sys/swapsz.h" 
#include “sys/reboot.h" 
#define USAGE “usage: reboot rootdev" 
main(arge, argv) 
char **argv; 


{ 


register fp, cfp; 
short rootdev; 
long nswap; 


int i; 


if (arge [= 2) 

perr (USAGE) ; 
rootdev = (short)strtol(*(argvt1), (char **)NULL, 16); 
if ((fp = open("/dev/mem", 2)) < 0) 

perr("cannot open /dev/mem") ; 


if (lseek(fp, ROOTDEV, 6) < 0) 

perr("lseek to rootdey %x failed", ROOTDEV); 
if (write(fp, a&rootdev, 2) {= 2) 

perr("write of rootdev 0x%x at %x failed", rootdev, ROOTDEV); 
printf ("rootdev = O0xéx\n", rootdev); 


if (lseek(fp, PIPEDEV, 0) < 0) 

perr("lseek to pipedev %x failed", PIPEDEV); 
if (write(fp, g&rootdev, 2) != 2) 

perr("write of pipedev O0x%x at %x failed", rootdev, PIPEDEV); 
printf ("pipedev = Ox%x\n", rootdev); 


if (lseek(fp, DUMPDEV, 0) < 0) 

perr(“lseek to dumpdev %x failed", DUMPDEV); 
if (write(fp, arootdev, 2) != 2) 

perr("write of dumpdev Ox%x at &x failed", rootdev, DUMPDEV); 
printf ("dumpdev = Ox$x\n", rootdev); 


rootdevt+; /* now it’s swapdev */ 
if (lseek(fp, SWAPDEV, 0) < 0) 
perr("lseek to swapdev %x failed", SWAPDEV); 
if (write(fp, &rootdev, 2) != 2) 
perr("write of swapdev 0x%x at %x failed", rootdev, SWAPDEV); 
printf ("“swapdev = Oxtx\n", rootdev); 


if (lseek(fp, NSWAP, 0) < 0) 

perr("lseek to nswap x failed", NSWAP); 
if (major (rootdev) == PRO) 

nswap = PRNSWAP; 
else if (major(rootdev) == CV2) 

nswap = CVNSWAP; 
else 1f (major{rootdev) == PM3) 

nswap = PMNSWAP; 
else 

perr("cannot determine size of swapdev"); 
if (write(fp, &nswap, 4) != 4) 

perr(“write of nswap $d at %x failed", nswap, NSWAP); 
printf ("nswap = td\n", nswap); 
for (i=0; 1<200000; i++) ; 


} 


if ((cfp = open("/dev/console", 2)) < 9) 
perr(“cannet open /dev/console") 

ioctli(cfp, RESTART, (caddr_t)0); 

perr (“restart failed"); 


perr(mes, par) 
char *mes, *par; 


{ 


fprintf(stderr, mes, par); 
fprintf(stderr, “"\n"); 
perror ("reboot"); 

exit(1); 


, 


#* Jump to start of unix */ 
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/* 

* (C) 1984 UniSoft Corp. of Berkeley CA retabinit (tab, dev, stat) 

* register struct iobuf *tab; 

* UniPlus Source Code. This program is proprietary struct iostat stat[]; 

* with Unisoft Corporation and is not to be reproduced { 

* or used in any manner except as authorized in tab->b flags = 0; 

* writing by Unisoft. tab->b forw = 0; 

* tab->b_back = 0; 

* reinit.c - reinitialize parts of data segment for restarting unix tab->b_actf = 0; 

xf tab->b_actl = 0; 

tab->b dev = makedev(dev, 9); 

#include “sys/param.h" tab->b_ active = 9; 
#include “sys/config.h" tab->b errent = 0; 
#include “"sys/types.h" tab->io _erec = 0; 
#include “sys/systm.h" tab->io_nreg = 0; 
#include “sys/dir.h" tab->io_addr = 0; 
#tinclude “sys/signal.h" tab->io stp = stat; 
#include "sys/user.h" tab->ic_ start = 4; 
#include “sys/errno.h" tab->io sl = 4: 
#include “sys/file.n" tab->io s2 = 0; 
$include "sys/tty.h" } 
#include "sys/termic.h" 

#include “sys/conf.h®" remapinit(map, szmap) 

#include “sys/sysinfo.h" struct map *map; 

#include “sys/var.h" { 
#include “sys/reg.h" map->m_size = szmap - 2; 
#include "“setjmp.h" map->m_addr = 0; 
#include “sys/kb.h" for (mapt+, szmap--; szmap > 0; maptt, szmap--) { 
#include "sys/sysmacros.h" map->m_size = 0; 
#include "sys/iobuf.h" map->m_addr = 0; 
#include “sys/map.h" } 
tdefine CMAPSI2Z 56 /* also in conf.c */ } 
#define SMAPSIZ 56 /* also in conf.c */ 
extern mpid; /* used by newproc to decide whether first “init®™ or not */ 
extern struct iostat prostat[]; 
extern struct iobuf protab; 
extern struct iostat snstat{]; 
extern struct iobuf sntab; 
extern struct iostat cvstat[]; 
extern struct iobuf cvtab; 
extern char *kb_keytab; 
extern char ToLA[]; 
extern char kb altkp; 
extern int (*te_putc) (); 
extern int vt_putc(); 
extern char vt_tabset[]; 

f* 

* reinit - called from RESTART console ioctl call in sunix 

xf 

reinit () 


{ 


extern int teslotsused; 
register i; 


mpid = 0; 


retabinit (&protab, PRO, prostat}; 
retabinit (ésntab, SN1, snstat); 
retabinit (écvtab, CV2, cvstat); 


kb keytab = ToLA; 

kb shft = kb lock = kb altkp = 0; 

te_putc = vt_putce; 

for (L= 0; i < 88 ; it+ ) 
vt_tabset[i] = 0; 


remapinit (acoremap[0], CMAPSI2); 
remapinit (&éswapmap[0], SMAPSIZ); 
{* 
* reset tecmar four port card 
xf 


teslotsused = 0; 
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{C) 1984 UniSeft Corp. of Berkeley CA 


UniPlus Source Code. This program is proprietary 
with Unisoft Corporation and is not to be reproduced 
or used in any manner except as authorized in 
writing by Unisoft. 


“rom mon" is used by the software power off feature (see kb.c) 
and the reboot system call (see config.c, doboot) to return to 
the ROM monitor in "Customer Mode". 


OO 


* 
~ 


#include “sys/mmu.h" 
typedef int (*pfri)(); 
#define ROMADDR ((pfri) (OxFE0084)) 


rom_mon (} 

{ 
asm(" = movil #0,d0"); /* no error code */ 
asm(" subl a2,a2"); /* no icon */ 
asm("  — subl a3,a3"); /* no message */ 
asm(" movil 0x1000, sp"); 


ROMADDR (); 
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fe 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 
#include 


int 
f* 
* Packe 
af 
rtallac( 


{ 


found: 


} 


rtfree(z 


route.c 4.16 83/02/10 ef 
“net /misc.h" 
“sys/param.h" 
“sys/config.h" 
“sys/errno.h* 
“svs/types.h" 
“sys/systm.h" 
“net /mbuf.h" 
"net /socket.h" 
"net /protosw.h" 
“sys/ioctl.n" 
“net /in.h" 
"net /in_systm.h" 
“net /if.h" 
“net/af.h" 


"net /route.h" 
"errno.h" 


rttrash; /* routes not in table but not freed */ 
t routing routines. 


ro) 
register struct route *ro; 


register struct rtentry *rt, *rtmin; 
register struct mbuf *m; 

register unsigned hash; 

register int {*match) (}: 

struct afhash h; 

struct sockaddr *dst = éro->ro_ dst; 
int af = dst->sa_family; 


if (ro->ro_rt && ro->ro_rt~->rt_ifp) f* Xxx */ 
return; 
if (af >= AF_MAX) 
return; 
(*afswitch[af].af_hash) (dst, é&h); 
rtmin = 6, hash = h.afh_hosthash; 
for (m = rthost[hash % RTHASHSIZ]; m; m = m->m_next) { 
rt = mtod(m, struct rtentry *); 
if (rt->rt_hash != hash) 
continue; 
if ((rt->rt_flags & RTF_UP) = 0 || 
(rt->rt_ifp->if_flags & IFF_UP) = 0) 


continue; 

if (bemp((caddr_t)ért->rt_dst, (caddr_t)dst, sizeof (*dst)))} 
continue; 

if (rtmin = 0 || rt->rt_use < rtmin->rt_use) 


rtmin = rt; 
} 
if (rtmin) 
goto found; 


hash = h.afh_nethash; 
match = afswitch[af].af_netmatch; 
for (m = rtnet[hash % RTHASHSI2]; m; m = m->m_next) { 
rt = mtod(m, struct rtentry *); 
if (rt->rt_hash != hash) 
continue; 
if ((rt->rt_flags & RTF_UP) == 0 || 
(rt->rt_ifp->if_flags & IFF_UP) = 0) 


continue; 

if (rt->rt_dst.sa_family != af || !(*match) (art~->rt_dst, dst)) 
continue; 

if (rtmin = 0 || rt->rt_use < rtmin->rt_use) 
rtmin = rt; 


} 


ro->ro_rt = rtmin; 
if (rtmin) 
rtmin->rt_refcnt++; 


t) 


register struct rtentry *rt; 


if (rt = 0) 
panic("rtfree") ; 

rt->rt_refcnt--; 

if (rt->rt_refent = 0 && (rt->rt_flagséRTF_UP) == 0) { 
rttrash-~; 
(void) m_free(dtom(rt)); 


* Carry out a request to change the routing table. Called by 
* interfaces at boot time to make their ‘*local routes’’ known 
* and for iocti‘s. 


rtrequest (req, entry) 


int req; 
register struct rtentry *entry; 


register struct mbuf *m, **mprev; 
register struct rtentry *rt; 
struct afhash h; 

unsigned hash; 

int af, s, error = 0, (*match) (); 
struct ifnet *ifp; 


af = entry->rt_dst.sa_family; 
if (af >= AF_MAX) 

return (BAFNOSUPPORT); 
(*afswitch[af].af_hash) (sentry->rt_dst, &h); 
if (entry->rt_flags & RTF_HOST) { 

hash = h.afh_hosthash; 

Mprevy = érthost {hash % RTHASHSI2]; 
} else { 

hash = h.afh_nethash; 

mprey = &rtnet{hash % RTHASHSIZ]; 
} 
match = afswitch[af].af_netmatch; 
s = splimp({); 
for (; m= *mprev: mprev = ém->m_next) { 

rt = mtod(m, struct rtentry *); 

if (rt->rt_hash != hash) 

continue; 
if (entry->rt_flags & RTF_HOST) { 


#define equal(al, a2) \ 


(bemp((caddr_t) (al), (caddr_t) (a2), sizeof (struct sockaddr)) == 0) 
if (fequal{art->rt_dst, sentry~>rt_dst)) 
continue; 
} else { 
if (rt->rt_dst.sa_family != entry->rt_dst.sa_family || 
(*match) (&rt->rt_dst, éentry->rt_dst) == 0) 
continue; 
} 
1f (equal (ért->rt_gateway, é&entry->rt_gateway) ) 
break; 
} 
switch (req) { 


case SICCDELRT: 

if (m = 0) { 
error = ESRCH; 
goto bad; 

} 

*mprev = m->m_next; 

if (rt->rt_refcnt > 0) { 
rt->rt_flags &= ~RTF_UP; 
rttrash++; 
m->m_next = 0; 

} else 
(void) m_free(m); 

break; 


case SIOCADDRT: 
if (m) { 
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error = EEXIST; 
goto bad; 
} 
ifp = if_ifwithaddr (sentry->rt_gateway) ; 
if (ifp == 0) { 
ifp = if _ifwithnet (éentry->rt_qateway); 
if (ifp — 0) { 
error = ENETUNREACH; 
goto bad; 
} 
} 
/* billn -- meld with old 
m = m_get(M DONTWAIT,MT RTABLE) ; 
*f 
m = m_get(M DONTWAIT) ; 
if (m= 0) { 
error = ENOBUFS; 
goto bad; 
} 
*mprey = m; 
m~>m_off = MMINOFF; 
m->m_len =~ sizeof {struct rtentry); 
rt = mtod(m, struct rtentry *); 
rt->rt_hash = hash; 
rt~>rt_dst = entry->rt_dst; 
rt->rt_gateway = entry->rt_gateway; 
rt->rt_flags = 
RTF_UP | (entry->rt_flags & (RTF_HOST|RTF_GATEWAY) ); 
rt->rt_refcnt = 0; 
rt->rt_use = &; 
rt->rt_ifp = ifp; 
break; 
} 
bad: 
splxi(s); 
return (error); 
} 


{* 
* Set up a routing table entry, normally 
* for an interface. 

*f 
rtinit(dst, gateway, flags) 
struct sockaddr *dst, *gateway; 
int flags; 


struct rtentry route; 


bzero((caddr_t)&route, sizeof (route)); 
route.rt_ dst = *dst; 

route.rt gateway = *gateway; 

route.rt flags = flags; 

(void) rtrequest ({int)SIOCADDRT, &route); 
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/* #define HOWFAR */ 


~ 
* 


Real time clock driver 
{C) 1984 UniSoft Corp. of Berkeley CA 


UniPlus Source Code. This program is proprietary 
with Unisoft Corporation and is not to be reproduced 
or used in any Manner except as authorized in 
writing by Unisoft. 


Only reads and writes of 4 bytes (sizeof time t, the standard unix 
representation of time) are allowed for the real time clock. 
The rtime structure contains the time most recently read or written. 


MOO OOOO OOOOH 


struct rtime { See page 35 LHRM 

time_t rt_tod; Seconds since the Epoch (unix time) 
long rt_alrn; Seconds remaining to trigger alarm (unused) 
short rt_year; year (0 - 15) 
short rt_day; julian day (1 - 366) 
short rt_hour; hour (0 = 23) 
short rt_min; minute (0 - 59) 
short rt_sec; second (0 - 59) 
short rt_tenth; tenths of a second {0 - 9) 

oe 


#include "sys/param.h" 
#include “sys/config.h" 
#include “sys/mmu.h" 
finclude “sys/types.h" 
f#include “sys/sysmacros.h" 
finclude “sys/dir.h" 
#include “sys/signal.h" 
finclude “sys/user.h" 
#include “sys/errno.h* 
#include “sys/utsname.h" 
#include "sys/buf.h" 
finclude “sys/elog.h" 
#include “sys/erec.h" 
#include “sys/iobuf.h" 
finclude “sys/systm.h" 
#include “sys/var.h" 
#include “setjmp.h" 
#include "sys/reg.h" 
#include “sys/tty.h" 
#include "sys/local.h" 


struct rtime rtime; 
int rtcrwait; /* flag to sleep on waiting for read to complete */ 


/* 

Read the real time clock. The command to do this is issued through 
the COPS. In response, the keyboard gets 6 special interrupts with 
the data. kbintr stores this data in rtime and calls rtcsettod when 
the sixth one has been handled. rtcsettod calculates the time as 

* unix likes to think of it, which is as it is returned. 


*~* * 


*/ 
/* ARGSUSED */ 
rtcread (dev) 
dev_t dev; 
{ 
time_t rt; 
if (u.u_count != sizeof(time_t)) { 
u.u_error = ENXIO; 
return; 
} 
rt = rtcdoread(); 
lomove(({caddr_t)ért, sizeof(time_t), B READ); 
} 
{* 


* This routine is normally called from rtcread. However the kernel 
* reads the clock by calling rtcdoread directly from clkset. 
Ry 

rtcedoread() 


12copsamd (READCLOCK) ; 
rtcrwait = 1; 
while (rtcrwait) 
(void) sleep((caddr_t)&rtcrwait, TTIPRI); 
return (rtime.rt_tod): 


f* 
* Set rt tod (real time in seconds since epoch) given the real 
* time clock time currently in the rest of the rtime structure. 
* Those values (rt_year, rt_day, rt_hour, rt_min, rt_sec) are 
* set in response to l2copscmd{READCLOCK), and are returned through 
* special keyboard interrupts (kbintr). 
sf 
#define dsize(x} (x%4-—0 2366 :365) 
#define YEAR 70 
ttcsettod () 
{ 
register struct rtime *p = «rtime; 
register short i, j; 


i=-1; 
for (j=YEAR; j-YEAR<p->rt_year; j++) 
i += dsize(j); 
po>rt_tod = i + p->rt_day; /* Days since epoch */ 
p->rt_tod *= 24; 
p->rt_tod t= p->rt_hour; 
prort_tod *= 60; 
p->rt_tod += p->rt_min; 
pr>rt_tod *= 60; 
p->rt_tod += p->rt_sec; 
#ifdef HOWFAR 
printf("DATE: $d.%d %d:$d.$d\n", p->rt_year, p->rt_day, 
p->rt_hour, p->rt_min, p->rt_sec); 
#endif HOWFAR 
if (rtcrwait) { 
rtcrwait = 0; 
wakeup({(caddr_t)&rtcrwait); 


} 


7* 
* Set the real time clock to the time indicated. Note that nt is in 
* seconds since midnight 1/1/1970 GMT. The timezone has already been 
* corrected for. 
ay 
/* ARGSUSED */ 
rtcwrite (dev) 
dev_t dev; 
{ 
register struct rtime *p = értime; 
register long nt; 


register long i, j; 


if (u.u_count != sizeof(time_t)) { 
u.u_error = ENXIO; 
return; 
} 
iomove ((caddr_t)értime.rt_tod, sizeof(time_t), B_WRITE); 
nt = p->rt_tod; 
i = nt %& 86400; /* 86400 = 24*60*60 = number secs./day */ 
j = nt / 86400; 
if (i < 0) { 
i += 86400; 
j-= 1; 
} 
nt = j; 
p->rt_sec = 1 & 60; 
i /= 60; 
p->rt_min = i % 60; 
i /= 60; 
p->rt_hour = i & 24; 
j = YEAR; 
for (j=YEAR; i=dsize(j): j++) { 
if (nt < i) 
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break; 

nt -= i; 
} 
p->rt_year = j - YEAR; 
if (p->rt_year < 10) { 

#ifdef HOWFAR 
printf ("can’t remember dates before 1980\n"); 
#endif HOWFAR 

u.u_error = EINVAL; 

return; 
} 
pe>rt_ day = ++nt; 
12copsemd (SETCLOCK) ; /* stop clock, start setup mode */ 
for (i=0; i<5; i++) 

12copsemd (CLKNIBBLE) ; /* no alarm implemented yet */ 
1l2copscmd(CLKNIBBLE | (p->rt_year - 10)); 
i = p->rt_day / 10; 
j=if/ 1a; 
12copsemd( (char) (CLKNIBBLE | j)); 
l2copsemd( (char) (CLKNIBBLE | {i % 10))); 


12copsemd(CLKENIBBLE { (p->rt_day % 16)); 
12copsemd(CLKNIBBLE {| (p->rt_hour / 10)); 
l2copscmd{CLKNIBBLE | (p->rt_hour % 10)); 
l2copscmd(CLKNIBBLE | (p->rt_min / 10)); 
l2copsemd (CLKENIBBLE | (p->rt_min % 10)); 
12copsemd (CLKNIBBLE | (p->rt_sec / 10)); 
1l2copscmd(CLKNIBBLE | (p->rt_sec % 10)); 


12copscmd (STRTCLOCK); /* start clock, leave timer disabled */ 
{* i2copsemd (READCLOCK) ; /* Now read it back */ 
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* ee em OF 


* 
~™ 


finclude “sys/param.h" 
#include “sys/config.h" 
#include “sys/types.h" 
f#include “sys/systm.h" 
#include “sys/dir.h* 
#include "sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/file.h" 
#include “sys/tty.h" 
#include "sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/reg.h" 
#include “setjmp.h" 
#include “sys/ioctl.h" 
#include “sys/kb.h" 
finclude “sys/al_ioctl.h" 
#ifdef SUNIX 

#include "sys/reboot.h" 
f#fendif SUNIX 

#include "sys/mmu.h" 
#include “sys/cops.h" 
#include “sys/12.h" 


int coproc(); 

extern int co_ent; 

extern struct tty co_tty[]; 
extern struct ttyptr co_ttptr[]; 


extern char bmbck, bmnormal; 


extern char *bmscrn; /* pointer to screen -- initialized in bminit */ 


/* calls to the putc routine are made indirectly through 
the te putc pointer which is used to 
keep track of the current state for escape character 
processing, ie, although initialized to point to 
the normal putc, an escape character causes other 
* functions to process the next character(s) 
xf 
extern int vt_putc(); 
int (*te_putc) ()=vt_pute; 
/*#ifdef SUNIX 
extern caddr_t start; 
#endif SUNIX 
*f 


+ + * 


struct device { 


char csr; /* Command status register */ 
char idum[2]; /* fillers */ 
char dbut; /* data buffer */ 


}s 


/* ARGSUSED */ 
coopen(dev, flag) 
register dev; 
{ 
register struct tty *tp; 


if (dev >= co_cnt) { 
u.u_error =~ ENXIO; 
return; 


co.c - “conscle" (ie, bitmap screen and keyboard) driver for the lisa. 


} 
tp = co_ttptr{dev].tt_tty; 
tp->t_index = dev; 
SPLE(); 
Af ((tp->t_stateé (ISOPEN|WOPEN)) == 0) { 
tp->t_proc = coproc: 
ttinit (tp): 
tp->t_state = WOPEN | CARR_ON; 
if (dev == CONSOLE) 
tp->t_iflag ICRNL | ISTRIP; 
tp->t_oflag = OPOST | ONLCR | TAB3; 
tp->t_1lflag 


on 


ISIG | ICANON | ECHO | ECHOK; 


tp->t_cflag = sspeed [| CS8 | CREAD | HUPCL; 


} 

SPLO(); 

(*linesw[tp->t_line].1_open) (tp); 
} 


/* ARGSUSED */ 
coclose(dev, flag) 
{ 
register struct tty *tp; 


tp = co _ttptr[dev].tt_tty; 
(*lLinesw[tp->t_line] .1_close) (tp); 
} 


coread (dev) 


{ 
struct tty *tp; 


tp = co_ttptr[dev] .tt_tty; 
{*linesw[tp->t_line] .1_read) (tp); 
} 


cowrite (dev) 


{ 
struct tty *tp; 


tp = co _ttptr{[dev].tt_tty; 
(*linesw[tp->t_line].1_write) (tp); 
} 


/* ARGSUSED */ 
coioctlidev, cmd, arg, mode) 
{ 


int i; 
switch (cmd) { 


case AL SBVOL: 
12_bvol = arg & 7; 
break; 
case AL SBPITCH: 
12_bpitch = arg & Ox1FFF; 
break; 
case AL SBTIME: 
if (arg <= 0) 
arg = 1; 
if (arg > 10 * v.v_hz) /* limit to 10 
arg = 10 * v.v_hz; 
12_btime = arg: 
break; 
case Al, SDIMTIME: 
12_dtime = arg; 
12_dtrap = lbolt + 12_dtime; 
break; 
case AL SDIMCONT: 
12_dimcont = (~arg) & OxFF; 
break; 
case AL SDIMRATE: 
12_crate = arg; 
break; 
case AL_SCONTRAST: 
12_defcont = (~arg) & OXxFF; 


seconds */ 


s_co.c 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


case 


#ifdef SUNIX 
case 


tendif SUNIX 
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12_ desired = 12 defcont; 
l2ramp (0); 
break; 
AL_SREPWAIT: 
kb repwait = arg; 
AL SREPDELAY: 
kb repdlay = arg; 
break; 
AL_GBVOL: 
i = 12 bvol; 
if (copyout((caddr t)éi, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
AL _GBPITCH: 
if (copyout((caddr_t)&é12 bpitch, (caddr_tjarg, 4)) 
u.u_error = EFAULT; 
break; 
AL_GBTIME: 
if (copyont ({caddr_t)&12_btime, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
AL GDIMTIME: 
if (copyout ({caddr_t)&12_dtime, (caddr_t)arg, 4))} 
u.u_error = EFAULT; 
break; 
AL_GDIMCONT: 
i = (~12_dimcont) & OxFF; 
lf (copyout ({caddr_t)&i, (caddr_t)arg, 4)} 
u.u_error = EFAULT; 
break; : 
AL_GDIMRATE: 
Lf (copyout ((caddr_t)&12 crate, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
AL_GCONTRAST: 
i = (~12_defcont) & OxFF; 
if (copyout({caddr_t)&i, (caddr_t)arg, 4)) 
u.U_error = EFAULT; 
break; 
AL GREPWAIT: . 
i = kb _repwait & OXxFFFF; 
if (copyout ((caddr_ t)éi, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
AL _GREPDELAY: 
i= kb repdlay & OxFFFF; 
if (copyout((caddr_t)éi, (caddr_t)arg, 4)) 
u.u_error = EFAULT; 
break; 
AL _GBMADDR: 
if (copyout((caddr_t)sbmsern, (caddr_t)arg, 4)) 
u.U_error = EFAULT; 
break; 
AL_REVVIDEO: 
if (arg > 0) 
i= 0; 
else if (arg == 0) 
i-=-1; 
else 
i = (pmbck)? 0 : -1; 
Lf (bmbck != i) { 


bmswitch(); 
bmsinv(); 
} 
bmbck = i; 
bmnormal = bmbck; 
break; 
RESTART: /* jump to the start of unix */ 
reinit(); 
((int (*)())0xc000) (); 
break; 


default: 


(void) ttiocom(co_ttptr[0].tt_tty, cmd, arg, mode}; 


} 


break; 


coprocitp, cmd) 
reqister struct tty eto: 


Leg Vor Stru 


{ 


start: 


} 


register struct ccblock *tbuf; 
extern ttrstrt{); 


switch (cmd) { 

case T_ TIME: 
tp->t_state &= ~TIMEOUT; 
goto start; 


case T_WFLUSH: 
tbuf = &tp->t_tbuf; 
tbuf->c_size -= tbuf->c_count; 
tbuf->c_count = 0; 
/* fall through */ 

case T_ RESUME: 
tp->t_state &= ~TISTOP; 
goto start; 


case T OUTPUT: 


if (tp->t_state & (TTSTOP|TIMEOUT| BUSY) ) 
break; 
tbuf = &tp->t_tbuf; 
if ((tbuf->c_ptr == 0) || (tbuf->c_count == 0)) { 
if (tbuf->c_ptr) 
thuf->c_ptr -= tbuf->c_size; 


Lf (1 (CPRES & (*linesw[tp->t_line].1_output) (tp))) 


break; 
} 
(*te_putc) ((*tbuf->c_ptr++) &0x7f); 
tbuf->c_count~-; 
sysinfo.xmtint++; 
splx{spll()); 
goto start; 


case T_SUSPEND: 
tp->t_state |= TTSTOP; 
break; 


case T BLOCK: 
break; 


case T_RFLUSH: 
if (! (tp->t_state&éTBLOCK) ) 
break; 
/* fall through */ 


case T_ UNBLOCK: 
break; 


case T_ BREAK: 
break; 


cointr (dev) 


{ 


register struct ccblock *cbp; 
register int c, lent, flg; 
struct tty *tp; 

register char ctmp; 

char libuf[3]; 


sysinfo.rcvintt+t+; 

c = kb chrbuf; 

tp = co ttptr[dev].tt_tty; 

if (tp->t_rbuf.c_ptr == NULL) 
return; 


#undef NULLDEBUG 
#ifdef NULLDEBUG 


/* this is the xmit interrupt */ 
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if( c = 0x00) { 
sccdebug(}; 


return; 
} 
#endif 
if (tp->t_iflag & IKON) { 
ctmp = c & 0177; 
1f (tp->t_state & TTSTOP) { 
if (ctmp == CSTART || tp->t_iflag & IXANY) 
(*tp->t_proc) (tp, T_RESUME) ; 
} else { 
if (ctmp == CSTOP) 
{*tp->t_proc) (tp, T_SUSPEND); 
} 
if (ctmp == CSTART || ctmp == CSTOP) 
return; 
} 
fe 
* Check for errors 
xf 
icnt = 1; 
flg = tp->t_iflag; 
if (flgéISTRIP) 
c & 0177; 
else { 
if (c == 6377 && f1lg&PARMRK) { 
lbuf[{1] = 0377; 
lent = 2; 
} 
} 
/* 
* Stash character in r_buf 
af 
cbp = é&tp->t_rbuf; 
if (lent $= 1) { 
libuf[0] = c; 
while (lent) { 
kebp->c_ptrt+t+ = lbuf{--lent]; 
if (--cbp->c_count = 0) { 
cbp->c_ptr -= cbp->c_size; 
i*linesw[tp->t_line].1_ input) (tp); 
} 
} 
if (cbp->c_size != chp->c_count) { 
cbhp->c_ptr -= cbp->c_size - cbp->c_count; 
(*linesw[tp->t_line].1_input) (tp); 
} 
} else { 
*cbp~>c_ptr = c; 
cbhp->c_count--; 
{*linesw[tp->t_line].1 input) (tp); 
} 
} 
/* 


* This version of putchar writes directly to the bitmap display 
* for those last-ditch situations when you just have to get stuff to the CRT. 
*/ 
coputchar (c) 
register c; 
{ 
(*te_putc) (c & OXx7F); 
if (c = ’\n‘) 
(*te_putc) (‘\r"); 
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{* 
* Configuration information extern nodev(), nulldev(); 
xf extern proopen(), proread({), prowrite(), prostrategy(), proprint(), proioctl1(); 
extern snbopen{t), sncopen(), snbclese{), sncclose(), snread(), snwrite{), snstrategy(), snprint(), sni 
/* $#define DISK_O0 1 */ extern cvopen(), cvread(), cvwrite(), cvstrategy(), cvprint(); 
extern pmopen(), pmread(), pmwrite(), pmstrategy(), pmprint(), pmiocti(); 
#define NBUF 30 extern coopen(), coclose(), coread(), cowrite(), coioctl(); 
#define NINODE 50 extern syopen(), syread(), sywrite(), syloctl(); 
#define NFILE 60 extern mmread({), mmwrite(); 
#define NMOUNT 8 extern scopen(}, scclose({), scread(), scwrite(), scioctl(); 
#define CMAPSIZ 50 /* also in reinit.c */ extern erropen(}), errclose{), errread{); 
#define SMAPSIZ 50 /* also in reinit.c */ extern proread(), prowrite(), proioctl(); 
#define CXMAPSI2 50 extern ejioct1(); 
$define NCALL 15 extern msopen(), msclose(), msread(), msioctl{); 
#define NPROC 36 extern lpopen(), lpclose(), lpwrite(), Ipioctl(): 
#define NTEXT 20 extern skopen(), skclose(), skwrite(); 


#define NSVTEXT 20 
#define NCLIST 100 
#define STACKGAP 8 
#define NSABUF 5 

#define POWER 0 

#define MAXUP 25 
#define NHBUF 64 
#define NPBUF 4 

#define NFLOCK 200 
#define X25LINKS 1 


extern rtcread(), rtcwrite(); 


extern teopen(), teclose(), teread(), tewrite(), teioctl(); 


#ifdef UCB_NET 

extern int ptsopen(), ptsclose(}), ptsread{), ptswrite(); 
extern int ptcopen(), ptcclose(), ptcread(), ptcwrite(); 
extern int ptsioctl{), ptcioctl(); 

#endif 


struct bdevsw bdevsw[{] = { 


#define X25BUFS 256 proopen, nulldev, prostrategy, proprint, /* 0 *f 
#define X25MAPS 30 snbeopen, snbclose, snstrategy, snprint, 7® 1 *f 
#define X25BYTES (16*1024) cvopen, nulldev, cvstrategy, cvprint, f* 2 *f 
#define CSIBNUM 206 pmopen, nulldev, pmstrategy, pmprint, fe 3 *f 
#define VPMBSZ 8192 Ie 
#define MESG 1 
#define MSGMAP 100 struct cdevsw cdevsw[] = { 
#define MSGMAX 8192 coopen, coclose, coread, cowrite, coicctl, 46, f* 9 */ 
#define MSGMNB 16384 syopen, nulldev, syread, sywrite, syioctl, 4, /* 1 *f 
#define MSGMNI 50 nulldev, nulldevy, mmread, mmwrite, nodev, 6, /* 2 */ 
#define MSGSSZ 8 erropen, errclose, errread, nodev, nedev, 6, /* 3 *f 
#define MSGTOL 46 scopen, scclose, scread, scwrite, scioctl, 6, {* 4 *f 
#define MSGSEG 1024 proopen, nulldev, proread, prowrite, proicctl, 4, 7* 5 xf 
#define SEMA 1 sncopen, sncclose, snread, snwrite, snioctl, 4, /* 6 *f 
#define SEMMAP 106 nuildev, nullidev, nodev, nodev, ejioctl, a, /* 7 *f 
#define SEMMNI 10 lpepen, lpclose, nodev, lpwrite, lpioctl, 4, /® 8 xf 
#define SEMMNS 60 msopen, msclose, msread, nodev, msioctl, 90, /* 9 */ 
#define SEMMNU 36 skopen, skclose, nodev, skwrite, nodev, 0, /* 10 */ 
#define SEMMSL 25 cvopen, nulldev, cvread, cvwrite, nulldev, 4, /* 11 */ 
#define SEMOPM 16 pmopen, nuildev, pmread, pmwrite, pmicctl, 4, /* 12 *f 
#define SEMUME 10 nulldev, nulldev, srtcread, rtcwrite, nulldev, 40, f* 13 */ 
#define SEMVMX 32767 teopen, teclose, teread, tewrite, teioctl, 6, /* 14 *f 
#define SEMAEM 16384 #ifdef UCB NET 
#define SHMEM 1 nodev, nodev, nodev, nodev, nodev, a, f* 15 */ 
#define SHMMAX (128*1024) nodev, nodev, nodev, nodev, nodev, 0, /* 16 */ 
#define SHMMIN 1 nodev, nodev, nodev, nodev, nodev, 0, /* 17 */ 
#define SHMMNI 100 nodev, nodev, nodev, nodev, nodev, 0, /* 18 */ 
#define SHMBRK 16 nhodev, nodev, nodev, nodev, nodev, 0, f® 19 */ 
#define SHMALL 512 ptcopen, ptcclose, ptcread, ptcwrite, ptcioctl, 0, /* pte 20 */ 
#define STIHBUF (ST_0*4) ptsopen, ptsclose, ptsread, ptswrite, ptsioctl, 0, /* pts 21 */ 
#define STOHBUF (ST_0*4) #endif 
#define STNPRNT (ST_0>>2) }e 
#define STIBSZ 8192 
#define STOBS2 8192 int bdevent = sizeof (bdevsw) /sizeof (bdevsw[0]); 
int edevent = sizeof (cdevsw) /sizeof (cdevsw[0]); 

#include pavey paca #ifdef SUNIX /* Sony (installation) root filesystem */ 
#include "sys/config.h" dev t rootdev = makedev(1, 0); 
#include “sys/mmnu.h" dev _t pipedev = makedev(1, 0); 
#include “sys/types.h" dev_t dumpdev = makedev(l, 0); 
#include “eys/sysmacros.h" /* nswap and swapdev are set in lisainit in config.c */ 

4 u u P 
#include sys/conf.h dev t swapdev = makedev(0, 1); 
tinclude “sys/cpuld.h® daddr t swplo = 0; 
#include “sys/space.h" int nswap = PRNSWAP; 
#include “sys/io.h" 
#include coved bermicehe #else SUNIX /* ProFile root filesystem */ 
tinclude se yel msgs #define ROOTBASE 0 /* (port * 16) for port=0,1,2,4,5,7, or 8 */ 
#include sys/scc.h dev_t rootdev = makedev(0, ROOTBASE);: 
tinclude “sys/pport.h"* dev_t pipedev = makedev(0, ROOTBASE) ; 
#include “sys/swapsz.h" dev_t dumpdev = makedev(0, ROOTBASE); 
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dev _t swapdev = makedev(0, ROOTBASE + 1); 


daddr_t swplo = 0; 
int nswap = PRNSWAP ; 
fendif SUNIX 


ine (*dump} {} = nulldev; 
int dump _addr = 0x0000; 
int (*pwr_eclr[})Q = { 


(int (*)())6 


int (dev_initt])Q = 


(int (*)())6 


#ifdef SCC_CONSOLE 


int scputchar (); 

int (*putchar) (}) = scputchar; 
#else 

int coputchar ()}; 

int {*putchar) () = coputchar; 
#endif 


#ifdef UCB_NET 
#define PTC_DEV 20 
int ptc_dev = PTC _DEV; 
#endif 


int co_cnt = 1; 
struct tty co_tty[1]; 


struct ttyptr co_ttptr[] = { 
1, &co_tty[0], 
o, 

he 

int sc_cnt = NSC; 

struct tty sc_tty[NSC]; 

char sc_modem[NSC]; 


struct ttyptr sc_ttptr[] = { 


OxFCD246, ésc tty[1], 
OxFCD242, ésc tty[0], 
a, 


he 


struct scline sc_line[] = { 
WOBRESET, (4000000/16), 
W9ARESET, (4000000/16), 
he 


#if NTE != 0 

int te_cnt = NTE; 
struct tty te_tty([NTE]; 
char te_dparam[NTE]; 
char te_modem[NTE]; 


struct ttyptr te ttptr[NTE+1]; /* +1 for pstat */ 


* pointers to ttyptr structures for terminal monitoring programs 


fendif 

/* 

*f 

struct ttyptr *tty stat[] = { 
co ttptr, 
sc _ttptr, 

#if NTE '= 0 
te_ttptr, 

fendif 
0 

}; 

f* 


* tty output low and high water marks 


/* tt_addr field not used */ 


/* clock frequency b */ 
/* clock frequency a */ 


*} 

#define TTHIGH 

#ifdef TTLOW 

#define M 1 

#define N 1 

fondif 

#ifdef TTHIGH 

#define M 3 

#define N 1 

#endif 

int tthiwat[16] = { 
OxM, 60*M, 60*M, 60*M, 
120*M, 180*M, 180*M, 240*M, 


int ttlowat(16] = { 
O*N, 20*N, 20*N, 20*N, 
40*N, 60*N, 60*N, 8O*N, 


{* 
* Default terminal characteristics 
xf 
char ttechar[{NCC] = { 
CINTR, 
cQUIT, 
CERASE, 
CKILL, 
CEOF, 
o, 
0, 
3 
hs 


#ifdef lint 

/* LINTLIBRARY */ 

forlint () 

{ 
bminit (); 
nmikey (); 
llintr({struct args *)0); 
kbintr(); 
scintr( {struct args *)0); 
pmintr({struct args *)0); 
ebintr (0); 
netintr(); 

} 

#endif 


#ifdef UCB_NET 
#include <net/misc.h> 
#include <net/ubavar.h> 
extern struct uba_driver ebdriver; 
struct uba_device ubdinit[] = { 
/* driver, unit, addr, 


{ &ebdriver, Qo, (caddr_t)5, 


0 
}3 


int iff_noarp = 0; /* 0 -> do ARP; 
#endif 


60*M, 
240*M, 


20*N, 
SO*N, 


flags*/ 
0x59062908 }, 


60*M, 
240*M, 


20*N, 
80*N, 


60*M, 
1060*M, 


20*N, 
5O*N, 


120*M, 
100*M, 


40*N, 
SO*N, 


/* net 89 */ 


not 9 —> no ARP */ 
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fr 

* This file contains 

* 1. oem modifiable configuration personality parameters 

* 2. oem modifiable system specific kernel personality code 
af 


f#include "sys/param.h" 
#include "sys/config.h" 
#include "sys/mmu.h" 
f#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.n" 
#include “sys/map.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
f#include "sys/errno.h" 
#include “sys/proc.h" 
#include “sys/buf.h" 
#include “sys/iobuf.nh" 
#include “sys/reg.h" 
#include "sys/file.h" 
#include “sys/inode.h" 
f#include “sys/seg.h" 
#include “sys/acct.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/ipc.h" 
#include “sys/shm.h" 
#include “sys/termio.h" 


#include “sys/conf.h" 
#include “sys/cops.h" 
#include “sys/pport.h" 
#include “sys/local.h" 
finclude “sys/12.h" 
#include “sys/kb.h" 
#include “sys/swapsz.h" 


/*char oemmsg{] = “UniSoft Systems distribution system release 1.5";*/ 
char cemmsg[] = “UniSoft Systems pre-distribution system (release 1.5+)4; 


int sspeed = B9600; /* default console speed */ 

int parityno = 28; /* parity interrupt vector */ 

int cmask = CMASK; /* default file creation mask */ 

int cdlimit = CDLIMIT; /* default file size limit */ 

char slot [NSLOTS] ; /* card ID numbers for expansion cards */ 
fk 


* Kernel initialization functions. 
* Called from main.c while at spl? in the kernel. 
xf 
oem7init () /* alias (formerly) “lisainit™ */ 
{ 
#ifdef SUNIX 
int dev; 
extern dev_t swapdev; 
extern int nswap; 
#tendif SUNIX 
extern struct rtime rtime; 
extern int pmvect{]; 
extern int tevect(]: 
register short *sidp; /* slot ID pointer */ 
register slotid, i; 
register long *ip; 


12init(); /* setup the COPS ports */ 
/* This mess disables the verticle retrace interrupt, for new. 
*} 
do { 
VRON = 1; 
} while ((STATUS & S_VR) != 6); 
do { 
VROFF = 1; 


} while ((STATUS & S_VR) == 0); 


/* Some of the initialization requires that interrupts be enabled to 

* pick up coded sequences from the keyboard cops. If interrupts were 
* masked out then the time returned by READCLOCK would fill the 

* buffer and KBENABLE, which also returns a value, would have trouble. 


ef 

SPL1{); /* ok, do it to me */ 

12copscmd (MOUSEOFF) ; /* shut off mouse interrupts */ 
12copscmd {READCLOCK) ; /* get time of day */ 

12copsemd {KBENABLE) ; #* enable keyboard */ 

sninit(): /* Sony initialization */ 


/* Wait ‘til the clock data (from READCLOCK) and keyboard ID (from 
KBENABLE) have come in, and the keyboard is back in NORMALWAIT */ 

while (kb state); 

time = rtime.rt_tod; 


SPL7(): /* it should be at level 7 for the rest (2) */ 
/* Find out what’s in each of the expansion slots. 
*/ 
for (i = 6, sidp = SLOTIDS; i < NSLOTS; i++, sidpt+) { 
slot[i] = OxFF; /* not supported */ 
slotid = *sidp & SLOTMASK; 
if (!slotid) { 
if (iocheck((caddr_t) (STDIO+i*0x4000+1))) { 
printf({"Expansion slot %d: quad serial card\n", 
itl); 
1f (teinit(i) == 0) { 
{* 
* point to interrupt vector, 
* set tecmar quad serial board inter loc, 
* and initialize hdwr 
xf 
ip = &{((long *) 6) [EXPIVECT+devtoslot (i) ]; 
*ip = (long)tevect + (long) (devtoslot {i)<<2); 
} 
} 
continue; 
} 
printf ("Expansion slot $d: ", it+1); 
switch {slotid) { 
case ID_APLNET: 
printf (“applenet card\n"); 
break; 
case ID PRO: 
printf ("ProFile card\n"); 
break; 
case ID_2PORT: 
printf ("two port card\n"); 
slot[i] = PRO; /* valid */ 
break; 
case ID_PRIAM: 
printf ("Priam card\n"); 
ip = &((long *) 6) [EXPIVECT+devtoslot (i)]; /* point to int vector */ 
*ip = (long)pmvect + (long) (devtoslot (i) <<2); /* set to Priam intr */ 
if (pmcinit(i) == 0) /* initialize controller */ 
slot[i] = PM3; /* valid */ 
break; 
default: 
printf("card ID Ox%x\n", slotid); 
} 
} 
scinit (); /* SCC serial initialization */ 
#ifdef UCB_NET 
netinit(); 
#endif 
/{/* Now enable the verticle retrace interrupt, used for the system clock. 
xf 
do { 


VRON = 1; 
} while ((STATUS & S VR} '= 0); 
#ifdef SUNIX 
SPLO(); 
/* This is the first unix booted during installation so find swapdev. */ 
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if (rootdev == makedev(SN1, 0)) { 
while (chkdev(dev = getdevnam()})) 
printf ("Unable to use that device\nTry again: \n"); 
printf ("\n\nswapdev = Ox%x\n\n", dev); 
swapdev = dev; 
if (major{dev) = PRO) nswap = PRNSWAP; 
else if (major(dev) == PM3) nswap = PMNSWAP; 
else if (major(dev) == CV2) nswap = CVNSWAP; 
else panic("cannot determine size of swapdev") ; 
} 
f#fendif SUNIX 
} 


{* 
* Kernel initialization functions. 
* Called from main.c while at spl0 in the kernel. 


af 
oemOinit () 
{ 
} 
/* 
* parityerror () 
* Called from trap for parity error traps via 
* interrupt level “parityno" (conf.c). 
7 Should return non-zero for fatal errors. 
* Should return zero for a transient warning error. 
x} 


parityerror () 

{ 
printf("parity error\n"); 
return({-1); 

} 


{* 
* reboot the system 
* called from reboot function 


xf 
doboot () 
{ 
kb_state = SHUTDOWN; /* SHUTDOWN (see kb.c)*/ 
SPL7(); /* extreme priority */ 
rom_mon(); /* return to the ROM monitor */ 
/ *NOTREACHED* / 
} 
[* 
* OEM supplied subroutine called on process exit 
*f 


{* ARGSUSED */ 

oemexit (p) 

register struct proc *p; 

{ 

#ifdef lint 
/* for lint use p */ 
p->p_flagt++; 


f#endif 

} 

struct device_d *pro da[NPPDEVS] = { /* DEV Description */ 
PPADDR, /* 0x00 parallel port */ 
(struct device_d *) (STDIO+0x2000), /* Qx10 FPC port 0 slot 1 */ 
(struct device d *) (STDIO+0x2800), /* 0x20 FPC port 1 slot 1 */ 
(struct device_d *) (STDIO+0x3000), /* 0x30 FPC port 2 slot 1 !!!*/ 
(struct device_d *) (STDIO+0x6000), /* 0x40 FPC port 0 slot 2 */ 
(struct device _d *) (STDIO+0x6800), /* 0x50 FPC port 1 slot 2 */ 
(struct device _d *) (STDIO+0x7000), /* Qx60 FPC port 2 slot 2 !!!x*/ 
(struct device _d k) (STDIO+0xXA000), /* 0x70 FPC port 0 slot 3 */ 
{struct device _d *) (STDIO+OxA800), /* 0x80 FPC port 1 slot 3 */ 
(struct device _d *) (STDIO+0xB000) /* 0x90 FPC port 2 slot 3 !!!*/ 

}e 

int (*pi_fnc[NPPDEVS]) (): /* slots for interrupt handler addresses */ 


/* Set the interrupt handler for a given parallel port controller. 
wf 


setppint (addr, fnc) 
struct device _d *addr; 
int (*fne) 0; 
{ 
register int i; 
extern int cvint(), preintr(), lpintr4@: 


for (i=0; i<NPPDEVS; i++) 
if (pro da[i] == addr) { /* found dev number */ 
if (pi_fne[i]) { /* in use */ 
if (pi_fnc[i] == fnc) /* same handler */ 
return 0: 
if (pi_fnc[il == prointr) 
printf ("ALREADY assigned to profile\n"):; 
else if (pi_fne{i] — lpintr) 
printf ("ALREADY assigned to lp\n"); 
else if (pi_fnc{i] = cvint) 
printf ("ALREADY assigned to corvus\n"); 
else 


printf ("Assigned to unknown handler at Ox%x\n",pi_ fne[i]); 


break; 
} 
pi_fnc[i] = fne; 
return 6; 


} 
return 1; 


} 


/* Free the interrupt handler slot for a given controller. 


*/ 
freeppin (addr) 
struct device_d *addr; 
{ 
register int i; 
for (i=0; i<NPPDEVS; i++) 
if (pro_da[i] = addr) { 
pi_fne[i] = 6; 
return; 
} 
} 
f* 
* ppintr - handle interrupt from parallel port controllers 
x} 
ppintr (ap) 


struct args *ap; 
{ 
register int i, j; 
register char a; 
register struct device_d *dp; 
int (*fne)(), ebintr(), prointr(), cvint(), lpintr(); 
extern char 1pflg[]; 


if(({i = ap->a_dev} == 0) { /* special case for pp 0 */ 
if(fne = pi_fne[i]) { 
fne(i); 
return; 
} 
} 
j=it 2; 


while (i < 4) { 
dp = pro da[il; 
if ({a = dp->d_ifr) & FCA) { 
asm(" nop "); 
dp->d_ifr =a; /* reset interrupt */ 
if (fnc = pi_fne[il) { 
if (fnc =~ lpintr) 
lpflg[1] = 0; 
else if (fnc != ebintr é&& 
fnc != prointr && 
fne != cvint) { 
printf ("pi_fne[%d] = Oxtx invalid! !\n", 
i,fne); 
return; 
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fne ti): 
return; 
} 
#ifdef INTDUMP 
ppdump (i, dp); 


return; 


} 


#ifdef INTDUMP 
ppdumpin, p)} 
register struct device d *p; 
{ 
printf("pport &d: ",n); 
printf ("ifr=%x acr=%x per=%x ddra=%x ddrb=%x irb=%x\n", 
p->d_ifré0xFF, p->d_acré0xFF, p->d_pcré0xFF, p->d_ddra&0xFF, 
p->d_ddrbsOxFF, p->d_irbéOxFF) ; 
} 
#endif INTDUMP 


f* 
* called from clock if there’s a panic in progress 
*/ 
clkstop() 
{ 
VROFF = 1; /* disable vertical retrace intr */ 
} 
nmikey () 
{ 
int i; 


register short status; 


/* added 7/25/84 to provide more info than "NMI key". 
* (taken from section 2.8 of Lisa Theory of Operations) 
xf 
printf (“non-maskable interrupt: "); 
status = STATUS; 
if {status & S SMEMERR) 
printf("soft memory error\n") ; 
else if (status & S_HMEMERR) 
printf(“hard memory error\n"); 
else 
printf("power failure/keyboard reset\n"); 
#ifdef HOWFAR 
showbus(); 
#endif HOWFAR 
for (i=0xC00000; i>0; i--) ; /* delay */ 
} 


#ifdef SUNIX 
/* Get swap device name 
af 
getdevnam () 
{ 
char *p, *gets{); 
int unit, dev; 


retry: 
printf("\n\nWhere is the swap area?\n"); 
printf("Enter: ‘p’ for builtin disk or a profile disk\n"); 


printf(" ‘ef for Corvus disk\n"); 
printf" ‘pm’ for Priam disk\n"); 
p = gets(); 
switch (p[0]) { 
case ‘pt: 

dev = PRO; 

if (p[1] == ‘’m’) 

dev = PM3; 

break; 
case ‘c’;: 

dev = CV2; 

break; _ 


default: 
printf ("Invalid input. Try again. \n"); 
goto retry: 

} 

printf("Where will the disk be?\n"); 

if {(dev == PRO} I] {dey == CV2)) [ 
printf("Enter: ‘0 for builtin port\n"); 
printt¢(" 71’ for Expansion Slot 1, Bottom Port\n"): 
printf (* ‘2! for Expansion Slot 1, Top Port\n"); 
printf (" '4? for Expansion Slot 2, Bottom Port\n"); 
printf(* ’5* for Expansion Slot 2, Top Port\n"); 
printf" *7° for Expansion Slot 3, Bottom Port\n"): 
printf (* ‘8 for Expansion Slot 3, Top Port\n"); 


p = gets(); 
switch (p[0]) { 
case ‘0’; 
case '1%: 
case ‘2%: 
case /4/; 
case 75/; 
case ‘7¥: 
case /8%: 
unit = p{0] - *0'; 
break; 
default: 
printf("Invalid input. Try again.\n"); 
goto retry; 
} 
} else { /* dev == PM3 */ 
printf("Enter: ‘0° for Slot 1\n"): 
printf (" ‘1° for Slot 2\n"); 
printf (* *2* for Slot 3\n"); 
p = gets(); 
switch (p[@]) { 
case "Q's: 
case ’1’: 
case '2%: 
unit = p[6] - *O'; 
break; 
default: 
printfi"Invalid input. Try again.\n"); 
goto retry; 
} 
} 
return makedev(dev, (unit<<4) | 1 ); 
} 


chkdev (d} 
{ 

return (*bdevsw[bmajor (d)].d_open) (minor(d), FREAD | FWRITE); 
} 


/* 
* This version of getchar reads directly from the keyboard in order to get 
* swapdev when the parallel port is not available. It will not work once 
* the console has been formally opened. 

*/ 

char kb_getchr; 

cogetchar () 

{ 


SPLO(); 

while(kb state) ; /* wait for kb driver to finish special cmd */ 
kb _getchr = 1; /* wait flag */ 

while (kb getchr) ; /* wait for it to happen */ 


return kb chrbuf; 


/* Kernel get string routine. 

* Useful for getting information from the console before the system 
* comes up. The getchar routine will not work once the console has 
* been opened. 
*] 

int (*getchar) () = cogetchar; 

extern int {*putchar) (); 


char getsbuf[100j; 
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char * 
gets {)} 
{ 


register char *p: 
register char c; 


extern s 


hort kb keycount; 


p = getsbuf; 
while (c = (*getchar)()) { 


} 
out: 


switch (c) { 
case ‘\r': 
case f\n!: 
goto out; 
case *\bf: 
if (p > getsbuf) { 
p--; 
} 
break; 
case "ff: 
case *X’ sOx1F: /* line kill */ 
if (p > getsbuf) { 
p = getsbuf; 


1986 


c= '\n‘; /* echo a newline */ 


} 
break; 
default: 
ept+ = c; 
} 
(*putchar) (c); 
if (p >= getsbuf + sizeof(getsbuf)) { 


printf("\nInput line too long, try again ...\n"); 


p = getsbuf; 


ep = F\O%; 
(*putchar) (*\n"); 
return getsbuf; 


} 
#endif SUNIX 
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{* 
* (C) 1984 UniSoft Corp. of Berkeley CA 

* 

* UniPlus Source Code. This program is proprietary 

* with Unisoft Corporation and is not to be reproduced 
* or used in any manner except as authorized in 

* writing by Unisoft. 

x 

* Interrupt handler for level 2 interrupts. 

* keyboard, mouse, real time clock, on/off switch 
xf 


#include “sys/param.h" 
#include “sys/types.h" 
#include “sys/mnu.h" 
#include “sys/reg.h" 
#include “sys/local.h" 
#include “sys/cops.h" 
#include “sys/keyboard.h" 
#include “sys/mouse.h* 
#include “sys/ms.h" 
#include “sys/12.h" 
#include “sys/kb.h" 


extern struct rtime rtime; 


char *kb keytab = ToLA; 


char kb_altkp; /* are we in alternate keypad mode? (set in vt100.c) */ 


char pportplug; 
char ms_plg, ms_btn; 
short ms row, ms col; 


kbintr (} 
{ 
register char i; 
register struct device_e *p = COPSADDR; 
register char a, ud; 
register int tmp; 
extern time _t lbolt; 
#ifdef SUNIX 
extern char kb getchr; /* flag for polling keyboard */ 
fendif SUNIX 


a = p->e_ifr; /* Read and save reason for interrupt */ 


if (a & FCAl) { /* Keyboard input */ 
i = p->e_ira; /* get keyboard/mouse input 
if (a & FTIMER1) 
a = COPSADDR->e tlcl; /* prime timer */ 
} else { /* no character input */ 
a = COPSADDR->e_tlcl; /* prime timer */ 
if (--kb_reptrap = 4) 
kbrepeat {); /* possible char repeat */ 
return; 


} 


switch (kb state) { 


case NORMALWAIT: /* IDLE LOOP */ 


ud =~ i & 0x80; /* whether up or down keycode */ 

12_dtrap = lbolt + 12 dtime; /* reset dim delay */ 

if (12_dimmed) /* restore screen intensity */ 
12undim(); 

a = kb keytab[i & Ox7F];/* convert to ascii */ 

if (ud) { /* “key went down" bit */ 


/* click(); /* key click */ 

if (ARROW(i,a)) { /* check arrow keys */ 
kb chrbuf = Esc; /* send 3-char sequence 
cointr (0); 
kb _chrbuf = ¢’('; 
cointr (0); 
kb chrbuf = a; 
cointr (0); 
goto out; 

} 

if (kb _altkp) { /* send special sequence for keypad 
if (a = altkpad[i é Ox7F]) {/* is it in the 


*f 


ay 


chars */ 
keypad? */ 


kb chrbuf = Esc; /* send 3-char sequence */ 
cointr (0); 
kb chrbuf = '07; 
cointr(0); 
kb chrbuf = a; 
cointr {0}; 
goto out; 
} 
a = kb keytab[i & 0x7FJ];/* reset to ascii */ 
} 
if (a >= 6) { /* ascii 2 */ 
kb keycount++; 
if (kb_ctrl) a &= OxlF; 
else if (kb_keycount == 1) { 
kb reptrap = kb repwait; 
kb lastc = a; 
} else kb reptrap = 0; 
kb chrbuf = a; 
cointr (0); 
goto out; 
} 
} else { /* key went up */ 
kb _reptrap = 0; 
if (a >= 0) { 
if (kb_keycount-- < 0) { 
kb_keycount = 0; 
} 
goto out; 
} 
} 
switch {a & OxF) { 
case KB CTRL: kb ctrl = ud; kb reptrap = 0; msintr(M_CTL); 


goto out; 
case KB SHFT: kb shft = ud; kbsetcvtab(}; msintr(M_SFT); 
goto cut; 
case KB LOCK: kb lock = ud; kbsetcvtab(); goto out; 
case KB OFF: printf("(Sorf OFF %x]\n",1i); goto out; 
case KB MSP: ms plg = ud; msintr(M_ PLUG); goto out; 
case KB MSB: ms_ btn = ud; msintr(M BUT); goto out; 
case KB PPORT: pportplug = ud; goto out; 
case KB D2B: printf("[disklbutton %xj\n",ij}; goto out; 
case KB D2P: printf("{diskl tx]\n",1i); goto out; 
case KB D1B: printf ("[disk2button %x]\n",i): goto out; 
case KB DIP: printf ("(disk2 %x]\n",i); goto out; 
case KB STATE: if (ud = 0) { 
kb state = MOUSERD; 
} else 
kb state = RESETCODE; 
goto out; 
default: printf ("invalid key[0x%x]",i); 
} 
goto out; 
case MOUSERD: /* PICKUP Y axis change in mouse pos */ 
kb state = YMOUSE; 
ms_ col = (short) i; 
gote out; 
case YMOUSE: /* PICKUP Y axis change in mouse pos */ 


kb_state = NORMALWAIT; 

ms_ row = (short)i; 

msintr(M MOVE); 

goto out; 

case RESETCODE: /* special condition */ 

switch (i & OxFF) { 

case KB KBCOPS: /* keyboard cops failure detected */ 
printf ("KEYBOARD COPS FAILURE\n"); 
break; 

case KB Iocops: /* IO board cops failure detected */ 
printf("IO BOARD COPS FAILURE\n"); 
break; 

case KB UNPLUG: /* keyboard unplugged */ 
kb chrbuf = ’s‘&0xiF; /* enti s */ 
cointr (0); 
break; 

case KB CLOCKT: /* clock timer interrupt */ 
printf(“Real Time Clock interrupt\n"); 
break; 
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case 


case 


case 


case 


case 


case 


} 
out: : 
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case KB SFTOFF: /* soft power switch */ 
kb state = SHUTDOWN; 
printf ("Shutting down...\n"); 
update (); 


1986 


for (tmp = 0; tmp < 500006; tmp+t+); 


12 crate = 2; 


12 desired = TOTALDIM; /* completely blacken screen */ 


12ramp (0); 
i2ramp {0}; 


SPL7(); /* extreme priority */ 


l2copsemd (SHUTOFF) ; 


rom_mon (): /* return to the ROM monitor */ 


/*NOTREACHED* / 
default: switch (i & OxFO) { 
case KB RESERV: 


printf("([Reserved keycode 0x%x]\n",i); 


break; 
case KB RDCLK: 


rtime.rt_year = (i & OxF) + 10; 


kb state = CLKREAD; 
goto out; 

default: 
kb _idcode = i; 
kb chrbuf = 'q’s0Ox1F; 
cointr (0); 


/* cntl Q */ 


printf ("Keyboard type 0x%$x\n",1i); 


} 
} 
kb state = NORMALWAIT; 
goto out; 
CLKREAD: 


rtime.rt day = (((1&0xF0)>>4)*10 + (i&OxF))*10; 


kb statet+; 
goto out; 

CLKREAD+1 : 
rtime.rt_day += (i&0xFQ) >> 4; 
rtime.rt_hour = (1 & OxF) * 196; 
kb_statett; 
goto out; 

CLKREAD+2: 
xtime.rt_hour t= (1 & OxFO) >> 4; 
rtime.rt_min = (i & Gx0F) * 10; 
kb statett+; 
goto out; 

CLKREAD+3: 
rtime.rt_min += (i & OxF0) >> 4; 
rtime.rt_sec = (i & Ox0F) * 10; 
kb statet+; 
goto cut; 

CLKREAD+4 : 
rtime.rt_sec t= (i & OxF0) >> 4; 
rtime.rt_tenth = i & Ox0F; 
kb state = NORMALWAIT; 
rtcsettod ()}; 
goto out; 

SHUTDOWN: 
goto out; 


1f (!ud) 


#fendif SUNIX 
} 


kbrepeat () 
{ 


kb reptrap = kb repdlay; 


kb_getchr = 0; 


if (kb_keycount == 1) { 


kb chrbuf = kb lastc; 


/* click(); /* key click */ 


cointr (0); 


} else 


/* reset repeat timeout */ 


kb_reptrap = 0; /* reset repeat timeout */ 


kKbsetcvtab() 


{ 


ner 


kb keytab = cevtab[ (kb shit2?2:0)+{(kb_ lock?1:6)]; 
kb _reptrap = 0; 
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/* @(#)slp.c 1.8 */ 
#include “sys/param.h" 
#include "sys/config.h" 
#include "sys/muu.h* 
#include “sys/types.h" 
#include "sys/sysmacros.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
f#include “sys/proc.h" 
#include “sys/context.h" 
#include “sys/text.h"™ 
#include “sys/systm.h" 
finclude “sys/sysinfo.h" 
#include “sys/map.h" 
f#include “sys/file.h™ 
#include “sys/inode.h"™ 
#include “sys/buf.h® 
#include “sys/var.h" 
#include “sys/ipe.h" 
#include “sys/shm.h®" 
#include “sys/errno.h® 
#include “sys/scat.h" 


typedef int mem t; 

#define NHSQUE 64 /* must be power of 2 */ 

#define sqhash (x) (&éhsque[({int) (X} >> 3) & (NHSQUE-1)]) 
struct proc *hsque[NHSQUE]; 

char runin, runout, runrun, curpri; 


struct proc *curproc, *runq; 


/* 
* sleep according to a cpu adjusted priority 
xf 
asleep(chan, pri) 
caddr_t chan; 
{ 
return(sleep(chan, pri + ((u.u_procp->p _cpué0xFF) >> 5))); 
} 


/ 
Give up the processor till a wakeup occurs 

on chan, at which time the process 

enters the scheduling queue at priority pri. 
The most important effect of pri is that when 
pri<=PZERO a signal cannot disturb the sleep; 
if pri>PZERO signals will be processed. 

Callers of this routine must be prepared for 
premature return, and check that the reason for 
sleeping has gone away. 


2 + + + Fe FF HF H HF OF 


*/ 

#define TZERO 10 

sleep(chan, disp) 

caddr_t chan; 

{ 
register struct proc *rp = u.u_procp; 
register struct proc **g = sqhash(chan); 
register s; 


s = splhi(); 

Af (panicstr) { 
SPLO(); 
splx({s); 


return(0); 
} 
rp->p_stat = SSLEEP; 
rp->p_wchan = chan; 
rp->p_link = *q; 
*q = rp; 
if (rp->p_time > TZERO) 
rp->p_time = TZERO; 
if ((rp->p_pri = (disp&PMASK)) > PZERO) { 
if (rp->p_sig && issig()) { 
rp->p_wchan = 0; 
rp->p_stat = SRUN; 


*q = rp->p_link; 
SPLO(); 
goto psig; 


runin f= 6) [ 
runin = 0; 
wakeup((caddr_t)érunin); 
} 
swtch(); 
if (rp->p_sig && issig({)) 
goto psia; 
} @lse { 
SPLO{(); 
swtch (); 
} 
splx{s); 
return(0); 


{* 
* If priority was low (>PZ2BRO) and there has been a signal, 
* if PCATCH is set, return 1, else 
* execute non-local goto to the qsavy location. 
xf 


splxis); 
if (disp&PCATCH) 
return(1); 


#ifdef NONSCATLOAD 


resume (u.u_procp->p_addr, u.u_qsav); 


#else 
resume (ixtoc(u.u_procp->p_scat), u.u_qsav); 
#endif 
/* NOTREACHED */ 
} 
/* 
* Wake up all processes sleeping on chan. 
*f 
wakeup (chan) 


register caddr_t chan; 


{ 


} 


register struct proc *p; 
register struct proc **q; 
register s; 


s = splhi({): 
for (q = sqhashi(chan); p = *q; ) 
if (p->p_wchan==chan && p->p_stat==SSLEEP) { 
p->p_stat = SRUN; 
p->p_wehan = 0; 
/* take off sleep queue, put on run queue */ 
*q = p->p_link; 
p->p_link = runq: 
rung = p; 
if (!(p->p_flag&SLOAD)) { 
p->p_time = 0; 


/* defer setrun to avoid breaking link chain */ 


if (runout > 0) 
runout = -runout; 
} else if (p->p_pri < curpri) 
runruntt+; 
} else 
q = &p->p_link; 
if (runout < 0) { 
runout = 0; 
setrun (&proc[0]); 
} 
Splx(s}; 


setrq(p) 
register struct proc *p; 


{ 


register struct proc *q; 
register s; 


s_slp.c Fri Sep 5 19:08:51 1986 


s = splhi(); 
for(q=rung: q!=NULL; g=q->p_link) 
if (q==p) { 
printf ("proc on q\n"); 
gote ont: 
} 
p->p_link = rung; 
rung = p; 
out: 
splx(s}; 
} 


fe 
* Set the process running; 
* arrange for it to be swapped in if necessary. 
xf 
setrun (p) 
register struct proc *p; 
{ 
register struct proc **q; 
register s; 


s = splhi(); 
if (p->p_stat == SSLEEP) { 
/* take off sleep queue */ 


for (q = sqhash(p->p_wchan); *q != ps; q = &{*q)->p_link) ; 


*q = p->p_link; 
p->p_wehan = 0; 

} else if (p->p_stat == SRUN) { 
/* already on run queue - just return */ 
splx(s)}; 
return; 

} 

/* put on run queue */ 

p->p_stat = SRUN; 

p->p_link = rung; 

rung = p; 

Lf (!(p->p_flag&SLOAD)) { 
p->p_time = 0; 
if (runout > 6) { 

runout = 0; 
setrun (&proc[0]); 
} 
} else if (p->p_pri < curpri) 


runruntt; 
splxi(s); 

} 
{* 

* The main loop of the scheduling (swapping) process. 

* The basic idea is: 

* see if anyone wants to be swapped in; 

* swap out processes until there is room; 

* swap him in; 

* repeat. 

* The runout flag is set whenever someone is swapped out. 
* Sched sleeps on it awaiting work. 

* 

* Sched sleeps on runin whenever it cannot find enough 

* memory (by swapping out or otherwise) to fit the 

* selected swapped process. It is awakened when the 

* memory situation changes and in any case once per second. 
xf 
sched () 


{ 
register struct proc *rp, *p; 
register outage, inage; 
int maxbad: 
int tmp; 


/* 

* find user to swap in; 

* of users ready, select one out longest 
*/ 


loop: 


SPL6(}; 
outage = -206000; 


#ifdef NONSCATLOAD 


#else 


#endif 


for {rp = éproc{@]; rp < (struct proc *)v.ve_proc; rpt+t+) 
if {rp->p_stat==SRUN && (rp->p_flagéSLOAD) == 0 && 
rp->p_time > outage) { 
p= rp : 
outage = rp->p_time; 
} 


for (rp = éproc(0]; rp < (struct proc *)v.ve_proc; rpt+t) 
if ((rp->p_flagé (SSWAPIT|SLOAD)) == (SSWAPIT|SLOAD)) { 
Pp = Fp; 
SPLO (); 
goto swapit; 
} else if (rp->p_stat==SRUN && (rp->p_flag&SLOAD) == 0 && 
rp->p_time > outage) { 
Pp = rp; 
outage = rp->p_time; 
} 


{* 
* If there is no one there, wait. 
xf 
if (outage == -20000) { 
runoutt+t+; 
(void) sleep({({caddr_t)&runout, PSWP); 
goto loop; 
} 
SPLO(); 


fe 
* See if there is memory for that process; 
* if so, swap it in. 

*/ 


if (swapin(p)) 
goto loop; 


{* 
* none found. 

* look around for memory. 

* Select the largest of those sleeping 

* at bad priority; if none, select the oldest. 
*/ 


SPL6{); 
p = NULL; 
maxbad = 0; 
inage = 0; 
for (rp = &proc[0]; rp < (struct proc *)v.ve_proc; rptt+) { 
if (rp->p_stat=—=SZOMB || 
(rp->p_flagé (SSYS|SLOCK|SLOAD)) !=SLOAD) 
continue; 

if (rp->p_textp && rp->p_textp->x_flag&XLOCK) 
continue; 

if (rp->p_stat==SSLEEP || rp->p_stat==SSTOP) { 
tmp = rp->p pri - PZERO + rp->p_time; 
if (maxbad < tmp) { 

p = rp; 
maxbad = tmp; 
} 

} else if (maxbad<=0 && rp->p_stat==SRUN) { 
tmp = rp->p_time + rp->p_nice - NZERO; 
if (tmp > inage) { 

p= rp: 
inage = tmp; 


} 
SPLO(); 
/* 
* Swap found user out if sleeping at bad pri, 
* or if he has spent at least 2 seconds in memory and 
* the swapped-out process has spent at least 2 seconds out. 
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* Otherwise wait a bit and try again. 


*f 
if (maxbad>0 || (outage>=2 && inage>=2)) { 
#ifndef NONSCATLOAD 
swapit: 
fendif 
p->p_flag &= ~SLOAD; 
xswap(p, 1, 0); 
goto loop; 
} 
SPLE(); 
runint+: 
(void) sleep((caddr_t)érunin, PSWP); 
goto loop; 
} 
i* 
* Swap a process in. 
xf 
#ifdef NONSCATLOAD 
swapin(p) 


register struct proc *p; 

{ 
register struct text *xp; 
register int a, x; 
int ta; 


if ({a = malloc(coremap, p->p_size)) == NULL) 
return (0); 
if (xp = p->p_textp) { 
Xlock (xp); 
if (ixmlink(xp) && xp->x_ccount==0) { 
if ((x = malloc(coremap, xp->x_size)) == NULL) { 
mfree({coremap, p->p_size, a); 


if ((x = malloc(coremap, xp->x_size)) == NULL) { 


xunlock (xp) ; 
return (0); 


he we 


mfree({coremap, xp~>x_size, x); 
xunlock{xp); 
return (0); 
} 
} 
xp->x_caddr = x; 
if ((xp->x_flag&XLOAD)==0) 
swap(xp~>x_daddr, x, xp->x_size, B_READ); 
} 
xp->x_ccountt+; 
xunlock (xp); 
} 
if (p->p_xaddr[0}) { 
ta = a; 
for (x=0; x < NSCATSWAP; x+t+) { 
if (p->p_xaddr[x] == 0) 
continue; 
swap(p->p xaddr[x], a, p->p_xsize[x], B_READ); 


mfree(swapmap, ctod(p->p_xsize[x]}, (int)p->p_xaddr[x]); 


a t= p->p xsize[x]; 
p->p_xaddr[x] = 0; 
} 
p->p_addr = ta; 
} else { 
swap((daddr_t)p->p_dkaddr, a, p->p_size, B_READ); 
mfree(swapmap, ctod({p->p_size), (int)p->p_dkaddr); 
p->p_addr = a; 7 
} 
exrelse(p->p context); 
p->p_flag |= SLOAD; 
p->p_time = 0; 
return(1l); 
} 
ftelse 
swapini(p) 
register struct proc *p; 
{ 


f ({a = malloc(coremap, p->p_size)) == NULL) { 


register struct text *xp; 
register int a, x; 
int ta: 


if (p->p_flagsSCONTIG) { 
if ({a = cmemalloc(p->p_ size}} == NULL) 
return (0); 
} else if ((a = memalloc(p->p_size)) == NULL) 
return (0); 
if (xp = p->p_textp) { 
xlock (xp); 
if (!xmlink(xp) && xp->x_ccount==0) { 
if ((x = memalloc(xp->x_size)) == NULL) { 
memfree {a}; 
xunlock (xp); 
return (0}; 
} 
Xp->x_scat = x; 
if ((xp->x_flag&XLOAD)==0) 


(void) swap(xp->x_daddr, x, xp->x_size, B_READ); 


} 
Xp~->x_ccountt++; 
xunlock (xp); 

} 


p->p_flag |= SNOMMU; /* swapping in, do not set mmu registers */ 
if (p->p_xaddr[0]) { 
ta =a; 


for (x=O; x < NSCATSWAP; xt++) { 
if (p->p_xaddr[x] == 0) 
continue; 
a = swap(p->p_xaddr[x], a, p->p_xsize[x], B_READ); 


mfiree(swapmap, ctod(p->p_xsize[x]), (int)p->p_xaddr[x}); 


p->p_xaddr[x] = 0; 
} 
p->p_scat = ta; 
} else { 
(void) swap{(daddr_t)p->p_dkaddr, a, p->p_size, B_READ); 
mfree(swapmap, ctod(p->p_size), (int)p->p_dkaddr); 
p->p_scat = a; 
} 
p->p_flag &= ~SNOMMU; 
p->p_addr = ixtoc(p->p_scat); 
exrelse(p->p_ context); 
p->p_flag |= SLOAD; 
p->p_time = 0; 
return(l); 
} 
#endif 


fe 
* put the current process on 

* the Q of running processes and 
* call the scheduler. 


xf 
qswtch () 
{ 
setrq(u.u_procp): 
swtch(); 
} 
jr 
* This routine is called to reschedule the CPU. 
* if the calling process is not in RUN state, 
* arrangements for it to restart must have 
* been made elsewhere, usually by calling via sleep. 
* There is a race here. A process may become 
* ready after it has been examined. 
* In this case, idle() will be called and 
* will return in at most 1H2 time. 


* i.e. its not worth putting an spl() in. 
*] 
swtch() 
{ 
register n; 
register struct proc *p, *q, *pp, *pq: 
#ifdef mc68881 /* MC68881 floating-point coprocessor */ 
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extern short fp881i; /* is there an MC688812 */ 
fendif mc68e81 
{* 
* If not the idle process, resume the idle process. 
*f 


sysinfo.pswitcht+; 
if (u.u_procp != &proc[0]) { 
if (save(u.u_rsav)) { 
sureg{); 
return; 
} 
#ifdef FLOAT /* sky floating point board */ 
if (u.u_fpinuse && u.u_fpsaved==0) { 
savip(); 
u.u_fpsaved = 1; 


#endif 
#ifdef mc68881 /#* MC68881 floating-point coprocessor */ 
if (fp881) 
fpsave(); 
fendif mc6é88s81 
#ifdef NONSCATLOAD 
resume (proc[{@].p addr, u.u_qsav}; 


#else 
resume (ixtoc(proc[0].p_ scat), u.u_qsav); 
#endif 
} 
f* 
* The first save returns nonzero when proc 0 is resumed 
* by another process (above); then the second is not done 
* and the process~search loop is entered. 
k 
* The first save returns 0 when swtch is called in proc 6 
* from sched{). The second save returns @ immediately, so 
* in this case too the process-search loop is entered. 
* Thus when proc 0 is awakened by being made runnable, it will 
x find itself and resume itself at rsav, and return toe sched(). 
x 
/ 
if (save(u.u_qsav) == @ && save(u.u_rsay)} 
return: 
loop: 
SPL6(); 
runrun = 0; 
i* 
* Search for highest-priority runnable process 
af 
if (p = runq) { 
q = NULL; 
pp = NULL; 
n = 128; 
do { 
if ((p->p_flag&SLOAD) && p->p_pri <= n) { 
Pp = Dp 
pq = q@ . 
n = p->p_pri; 
} 
q= pi 
} while (p = p->p_link); 
} else 
goto cont; 
/* 
* If no process is runnable, idle. 
*f 
if (pp == NULL) { 
cont: curpri = PIDLE; 
curproc = éproc[{0]; 
idie(); 
goto loop; 
} 
Pp = pps 
q = pd 


if (q == NULL) 
rung = p->p_link; 

else ~ 
q->p_link = p->p_ link; 


curpri = n; 

curproc = p; 

SPLO(); 

{* 
* The rsav ({ssav) contents are interpreted in the new address space 
xi 

n = p->p_flag&éSSWAP; 

p->p_flag &= ~SSWAP; 

#ifdef NONSCATLOAD 
resume (p~>p_addr, n? u.u_ssav: u.u_rsav); 


#else 
resume (ixtoc(p->p_scat), n? u.u_ssav: u.u_rsav); 
#tendif 
} 
int mpid; /* external for sunix so it can be reinitialized */ 
{* 


* Create a new process-- the internal version of 
* sys fork. 
* It returns 1 in the new process, 6 in the old. 
*} 
newproc (i) 
{ 
register struct proc *rpp, *rip; 
register struct user *up; 
register n; 
register a; 
struct proc *pend; 
/* static mpid;: */ 


fe 
* First, just locate a slot for a process 
* and copy the useful info from this process into it. 
* The panic “cannot happen" because fork has already 
* checked for the existence of a slot. 
xf 
up = &u; 
rpp = NULL; 
retry: 
mpidt+; 
if (mpid >= MAXPID) { 
mpid = 0; 
goto retry; 
} 
rip = &proc[0]; 
n= {struct proc *)v.ve proc - rip; 
a = 6; 
do { 
if (rip->p_stat == NULL) { 
if (rpp — NULL) 
rpp = rip; 
continue; 
} 
if (rip->p_pid==mpid) 
goto retry; 
if (rip->p_uid == up->u_ruid) 
att; 
pend = rip; 
} while(riptt, --n); 
1f (rpp==NULL) { 
if (({struct proc *)v.ve proc >= &proc[(short)v.v_proc]} { 
if (i) { 
syserr.procovf++; 
up->u_error = EAGAIN; 
return({-1); 
} else 
panic("no procs"); 
} 
rpp = {struct proc *)v.ve_proc; 
} 
if (rpp > pend) 
pend = rpp; 
pend++; 
#ifdef lint 
v.ve_proc = pend; 
#else 
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fendif 


#ifndef 


#endif 


v.ve_proc = (char *)pend; 


if (up->u_uid && up->u_ruid) { 


if (rpp == &proc[ (short) (v.v_proc-1)] {| a > v.v_maxup) 


up->u_error = EAGAIN; 


} 

/* 

* make proc entry for new proc 
af 


rip = up->u_procp; 

rpp->p_stat = SRUN; 
rpp->p_clktim = 0; 

rpp->p_ flag = SLOAD; 
rpp->p_uid = rip->p_uid; 
rpp->p_suid = rip->p_suid; 
rpp->p_pgrp + rip->p_pgrp; 
rpp->p_nice = rip=>p_nice; 
rpp->p_textp = rip->p_textp; 
rpp->p_pid = mpid; 

rpp->p_ppid = rip->p_pid; 
rpp->p_time = 0; 

rpp->p_cpu = rip->p_cpu; 
rpp->p_sigign = rip->p_sigign; 
rpp->p_pri = PUSER + rip->p_ nice - NZERO; 
NONSCATLOAD 

rpp->p_scat = rip->p_scat; 


rpp->p_addr = rip->p_addr; 
rpp->p_size = rip->p_size: 


i* 
* make duplicate entries 
* where needed 
By; 


for(n=0; n<NOFILE; nt++} 
if (up->v_ofile[n] != NULL) 
up->u_ofile[n]->f _count++; 
if (rpp->p_textp != NULL) { 
Ipp->p_textp~>x_count++; 
rpp->p_textp->x_ccount+t+; 
} 
up->u_cdir->i_count++; 
if (up->u_rdir) 
up->u_rdir->i_count+t; 


shmfork(rpp, rip); 


fe 
* Partially simulate the environment 
* of the new process so that when it is actually 
* created (by copying) it will look right. 
wf 

up->u_procp = rpp; 

curproc = rpp; 

fr 
* When the resume is executed for the new process, 
* here’s where it will resume. 


*/ 

if (save(up->u_ssav)) { 
sureg(); 
return(1); 

} 

f* 


* If there is not enough memory for the 


* new process, swap out the current process to generate the 


* copy. 
*/ 
if (procdup(rpp) == NULL) { 
rip->p_stat = SIDL; 
xswap(rpp, 0, 0); 
rip->p_ stat = SRUN; 
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up->u_procp = rip; 
curproc = rip; 
if (rip '= &prec[6]) /* only do if not scheduler */ 
sureg{); 
setrqirpp)}: 
rpp->p_ flag [= SSWAP; 
up->u_rvall = rpp->p_pid; /* parent returns pid of child */ 
return (0); 


f* 
* Change the size of the datatstack regions of the process. 
* If the size is shrinking, it’s easy-- just release the extra core. 
* If it’s growing, and there is core, just allocate it 
* and copy the image, taking care to reset registers to account 
* for the fact that the system’s stack has moved. 
* If there is no memory, arrange for the process to be swapped 
* out after adjusting the size requirement-- when it comes 
* in, enough memory will be allocated. 
* 
* After the expansion, the caller will take care of copying 
* the user’s stack towards or away from the data area. 
ef 
#ifdef NONSCATLOAD 
expand (newsize) 
register newsize; 
{ 


register struct proc *p; 
register al, a2; 
register i, n; 


Pp = u.u_procp; 
nh = p->p_size; 
p->p_size = newsize; 
if (n — newsize) 
return; 
al = p->p_addr; 
if (n >= newsize) { 
#ifdef EXPANDTRACE 
printf ("expand:shrinking process by %d clicks\n", n-newsize); 


#endif 
mfree(coremap, (mem_t) (n-newsize), (mem_t) (al+newsize)); 
return; 
} 
if {save(u.u_ssav)) { 
sureg(); 
return; 
} 
fe 
* See if can just expand in place 
xf 
loop: 


a2 = mallocat(coremap, newsize-n, (mem_t) {altn)); 
if (a2 != NULL) { 
#ifdef EXPANDTRACE 
printf("expanding in place by td clicks at click td\n", 
newsize-n, al+n); 
#endif 
exrelse(p->p_context); 
sureg{); 
return; 


* Will we be releasing shared text space anyway. 
* If so, then release it now and try in place 
* expansion again. 
xf 
if ((a2 = domall(coremap, (mem_t)newsize)) == NULL) 
1f (xmrelse()) 
goto loop; 
if (a2 == NULL && (a2 = malloc(coremap, (mem_t)newsize)) == NULL) { 
#ifdef EXPANDTRACE 
printf ("expand:calling xswap\n"); 
tendif 
xswap(p, 1, n); 
p->p_flag i= SSWAP; 
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qswtch (); 
/* no return */ 

t 

p->p_addr = a2; 

for(i=0; i<n; i++) 
copyseg(al+i, a2ti}; 


#ifdef EXPANDTRACE 


printf ("expand:copyseg %d from Ox%x to Ox%x\n", n, al, a2); 


#endif 
mfree(coremap, {mem_t)n, (mem_t)al); 
exrelse(p->p_context) ; 
resume ((mem_t)a2, u.u_ssav); 

} 

felse 

expand (newsize) 


register newsize; 


{ 


} 
#endif 


register struct scatter *s; 
register struct proc *p; 
register al, a2; 

register i, n; 

int t; 


p = u.u_procp; 
n= p->p_size; 
p->p_size = newsize; 
if (n == newsize) 
return; 
s = scatmap; 
al = p->p scat; 
if {m >= newsize) { 
{* 
* shrink memory 
af 
for (i=l; i<newsize; i++) 
al = sfal].sc_index; 
t = scatfreelist.sc_index; 
scatfreelist.sc index = s[al].sc index; 
i = al; S ~ 
while ((a2 = s[ai].sc index) != SCATEND) 
al = a2; = 
s(i].sc_index = SCATEND; 
s[al].sc_index = t; 
nscatfree += n-newsize; 
f* 
x Wake scheduler when freeing memory 
xf 
if (runin) { 
runin = 6; 
wakeup ( (caddr_t) &runin); 
} 
return; 
} 
if (save(u.u_ssav)) { 


sureg(); 
return; 
} 
{* 
* expand memory 
*/ 


if (a2 = memalloc(newsize-n)) { 
/* printf ("expanding from %d clicks to %d clicks\n", 
n, newsize); */ 
for (i=1; i<n; i++} 
al = sf{al].sc_index; 
if (s[al].sc_index != SCATEND) 
printf ("expand:SCATEND expected\n"); 
s{al].sc_index = a2; 
return; 
} 
xswap(p, 1, n); 
p->p_flag |= SSWAP; 
qswtch(); 
7* no return */ 


#ifndef 


NONSCATLOAD 


checkscat {s) 


char *s; 
{ 


} 


register struct proc *p; 
register struct text *xp; 
register i; 


i = countscat (scatfreelist.sc_index); 


printf("%s nscatfree=td actual=td\n", s, nscatfree, i); 


if (nscatfree < 30) { 
printf(" freelist chain is "); 
dumpscat (scatfreelist.sc_index); 
} 


for (p = &proc[0]; p < (struct proc *)v.ve_proc; ptt) { 


if (p->p_stat==0) 
continue; 

xp = p->p_textp; 

printft(*" pid=%d %d used (%d text) \n", 
p->p_pid, countscat(p->p_ scat), 
xp 2? countscat(xp->x_scat) : 4); 

dumpscat (p->p_scat); 

if (xp) { 
dumpscat (xp->x_scat); 

} 


dumpscat (al} 
register al; 


{ 


} 


register struct scatter *s; 


s = scatmap; 

printf" a) 4 

while (al != SCATEND) { 
printft(" td,%x", al, ixtoc(al)); 
al = s[al].sc_index; 

} 

printf("\n"); 


count scat (a1) 
register al; 


{ 


} 
#endif 


register struct scatter *s; 
register i; 


i=-0; 

S = scatmap; 

while {al != SCATEND) { 
al = s[al].sc_index; 
itt; 

} 

return(i); 
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* scc device driver 


Copyright 1982 UniSoft Corporation 


#include “sys/param.h" 
#include "sys/config.h" 
#include “sys/types.h" 
#include "sys/systm.h" 
#include "sys/dir.h" 
#include “"sys/signal.h™ 
#include "sys/user.h" 
#include “sys/errno.h"™ 
#include “sys/file.h" 
#include “sys/tty.h" 
#include "sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/reg.h" 
#include <sys/sec.h> 
#include “sys/proc.h" 
#include “setjmp.h" 


int scprec(); 

extern int sc_cnt; 

extern struct tty sc_tty[]; 
extern struct ttyptr sc_ttptr[1; 
extern char sc_modem{]; 

extern struct scline sc _line[]; 


#define MODEM 0x80 /* modem control on bit */ 
#define scdev(d) ( (ad) &0x7f) /* from unix device number to device */ 


define DELAY() asm("\tnop"); 


#define SCTIME (v.v_hz*5) /* sescan interval */ 
fm 
* Note: to select baud rate 
* k = chip input_frequency/(2 * baud * factor) - 2 
* put factor in register 9 and k in registers D&C 
* NOTE: 
® normally, factor = 16 
7 for this driver, chip _input_frequency = 2400060 Hz 
* scspeeds is a table of these numbers by UNIX baud rate 
xf 
int scspeeds[] = { 
iy 50, 75, 110, 134, 150, 200, 306, 
600, 12060, 1800, 2406, 4800, 9600, 19200, 38400, 
be 
/* 
* table to initialize a port to 9600 baud 
*/ 
char scitable[] = { 
WONULL, 
3, 0, /* set according to sc_line reset value */ 
#define SCCIRESET scitable[2] 
4, W4CLK16 | W41STOP, 
10, 0, 
11, W11RBR | W11TBR, 
12, 0, /* 12/13 are baud rate, from sc_line speed value */ 
#define SCCISPLO scitabie[10]} 
13, 0, 
#define SCCISPHI scitable[12]} 


14, W1l4BRGE | W14BRINT, 

3, W38BIT | W3RXENABLE, 

5, W5S8BIT | WSTXENABLE, 

1, WIRXIALL | WITXIEN /*| WIEXTIEN*/, 

2, 0, /* auto vector */ 
0, WORXINT, 

15, QO, 

9, WOMIE | W9DLC, 


}e 


/* 
* we call this in startup() to preinitialize all the ports 
*/ 
scinit {} 
{ 
register struct device *addr; 
unsigned short nsc; 


for (nsc=0;nsce<500;nsctt+) ; 
for tnsc = 0; nsec < sc_cnt: nse+t+) { 
addr = (struct device *)sc_ttptr[nsc] .tt_addr; 
/* do proper reset */ 
scinil (addr, W9NV|sc_line[nsc].reset, (int)sc_line[nsc] .speed); 
} 
printf("%d serial ports\n", nsc); 
/* sescan(); /* start modem scanning */ 
} 


scinil(addr, reset, speed) 
struct device *addr; 
int reset, speed; 
{ 
register int i; 
int s; 


S = spl6{):; 
SCCIRESET = reset; 
speed = (speed/ (9600<<1)) - 2; 
SCCISPHI = (speed >> 8) & OxFF; 
SCCISPLO = speed & OXFF; 
for (i = 0; i < sizeof(scitable); i++) { 
DELAY (); 
addr->csr = scitable[i]; 
} 
DELAY (); 
splx(s); 
} 


/* ARGSUSED */ 

scopenidev, flag) 

register dev; 

{ 
register struct tty *tp; 
register struct device *addr; 
register d; 

#ifdef SINGLEUSER 
register struct proc *p; 

#endif SINGLEUSER 


d = scdev (dev); 

if (d >= sc_cnt) { 
u.u_error = ENXIO; 
return; 

} 

tp = sc_ttptr[d] .tt_tty; 

#ifdef SINGLEUSER 

p = u.u_procp; 

if ({p->p_pid == p->p_pgrp) 

&& (u.u_ttyp = NULL) 

&& (tp->t_pgrp = 0)) { 
u.u_error = ENOTTY; 
return; 

} 

#endif SINGLEUSER 

tp->t_index = d; 

SPL6(); 

Lf ((tp->t_state& (ISOPEN|WOPEN)) == 9) [ 
tp->t_proc = scproc; 
ttinit (tp); 
sc modem[{d] = dev & MODEM; 
addr = (struct device *)sc_ttptr[d].tt_addr; 
if (dev & MODEM && (addr->csr & RODCD) == 0) 

tp->t_state = WOPEN; 

else 
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tp->t_state = WOPEN | CARR_ON; 
#ifdef SCC_CONSOLE 
if (d == CONSOLE) { 
tp->t_iflag = ICRNL | ISTRIP; 
tp->t_oflag = OPOST | ONLCR | TAB3; 
tp->t_lflag = ISIG | ICANON |! ECHO | ECHOK: 
tp->t_cflag = sspeed | CS8 | CREAD | HUPCL; 
} 
#endif SCC_CONSOLE 
scparam (dev) ; 
} 
if (! (flag & PNDELAY)) 
while ((tp->t_stateéCARR_ON) == 0) 
(void) sleep((caddr_t)&tp->t_rawq, TTOPRI); 
SPLO(); 
(*linesw(tp->t_line] .1_open) (tp); 
} 


/* ARGSUSED */ 

scclose(dev, flag) 

{ 
register struct tty *tp; 
register int d; 


d = scdev (dev); 
tp = se _ttptr[d].tt_tty: 
(*linesw[tp->t_line].1_ close) (tp); 
if (tp->t_cflag & HUPCL) 
schup (dev); /* hang up */ 
} 


scread (dev) 
{ 
register struct tty *tp; 


tp = sc _ttptr[scdev(dev)].tt_tty; 
(*linesw[tp->t_line].1_ read) (tp); 
} 


sewrite (dev) 
{ 
register struct tty *tp; 


tp= sc_ttptr[scdev{dev)].tt_tty; 
(*linesw[tp->t_line].1_ write) (tp); 
} 


scproc(tp, cmd) 

register struct tty *tp; 

{ 
register struct ccblock *tbuf; 
register struct device *addr; 
register dev_t dev; 
extern ttrstrt():; 
int s; 


8S = spl6(); 

dev = tp->t_index; 

addr = (struct device *)sc ttptr[dev] .tt_addr; 
switch (cmd) { 


case T_TIME: 


sew5(tp, addr, 0); /* clear break */ 
tp->t_state &= ~TIMEOUT; 
goto start; 


case T_WFLUSH: 
thuf = étp->t_tbuf; 
tbuf->c_size — tbuf->c_count: 
tbhuf->c_count = 0; 7 
/* fall through */ 

case T_RESUME: 
tp->t_state &= ~TTSTOP; 
goto start; 


case T_OUTPUT: 


start: 


} 


if (tp->t_state & (TTSTOP|TIMEOUT|BUSY) } 
break; 

if (tp->t_state & TTXOFF) { 
tp->t_state &é= ~TTXOFF; 
tp->t_state != BUSY: 
addr->data = CSTOP; 
break; 

} 

if (tp->t_state & TTXON) { 
tp->t_state «= ~TTXON; 
tp->t_state |= BUSY; 
addr->data = CSTART; 
break; 


} 
tbuf = &tp->t_tbuf; 
if ({tbuf->c_ptr == 0) |{ (tbuf->c_count == 9)) { 
if (tbuf->c_ptr) 
tbhuf->c_ptr -= tbuf->c_size; 
if (I (CPRES & (*linesw[tp->t_line].1 output) (tp))) 
break; 
} 
tp->t_state |= BUSY; 
addr->data = *tbuf->c_ptrtt+; 
tbuf->c_count—-; 
break; 


case T SUSPEND: 
tp->t_state |= TTSTOP; 
break; 


case T BLOCK: 
tp->t_state &= ~TTXON; 
tp->t_state |= TBLOCK; 
tp->t_state |= TTXOFF; 
goto start; 


case T_RFLUSH: 
if (!(tp->t_state&TBLOCK) ) 
break; 


/* fall through */ 


case T_UNBLOCK: 
tp->t_state &= ~(TTXOFF|TBLOCK); 
tp->t_state |= TTXON; 
goto start; 


case T_BREAK: 
scw5(tp, addr, WSBREAK); 
tp->t_state |= TIMEOUT; 
timeout (ttrstrt, (caddr_t)tp, v.v_hz>>2); 
break; 

} 

splx(s); 


scw5(tp, addr, ad} 
struct tty *tp; 
struct device *addr; 
int d; 


{ 
register int w5; 


int s; 
w5 = WSTXENABLE | d; 
switch(tp->t_cflag & CSIZE) { 
case CSS: 
wS |= WSSBIT; break; 
case CS6é: 
w5 |= WS6BIT; break; 
case CS7: 
wS |= WS7BIT; break; 
case CS8: 
w5S |= WS8BIT; break; 


} 
s = spis(); 
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} 


addr->csr = 5; 
addr->csr = wS: 
splx(s); 


scloctl(dev, omd, arg, mode} 
{ 


} 


if (ttiocom{(sc_ttptr[scdev(dev)].tt_tty, cmd, arg, mode)) 
scparam (dev); 


scparam(dev} 


{ 


} 


register flag; 

register struct tty *tp; 
register struct device *addr; 
int s; 

register int w4, w5, speed; 


tp = sc_ttptr[scdev(dev)].tt_tty; 
flag = tp->t_cflag; 
if (((flagéCBAUD) == BO) && (dev&MODEM)) { /* hang up line */ 
schup (dev): 
return; 
} 
addr = (struct device *)se_ttptr[scdev(dev)].tt_addr; 
w4 = W4CLK16; 
if (flag & CSTOPB) 
w4 [|= W42STOP; 
else 
w4 [= WA1STOP; 
wS = WSTXENABLE; 
switch(flag & CSI2ZE) { 
case CS5: 
w5 |= WSSBIT; break; 
case CS6: 
w5 |= WS6BIT; break; 
case CS7: 
w5S j= WS7BIT; break; 
case CS8: 
w5 J= WS8BIT; break; 
} 
if (flag & PARENB) 
if (flag & PARODD) 
w4 |= W4PARENABLE; 
else 
w4 |= WAPARENABLE | W4PAREVEN; 
speed = sc_line[scdev (dev) ] .speed; 
speed = (speed/ (scspeeds[flag&éCBAUD]<<1)) - 2; 


s = spl6(); 
addr->csr = 4; 
DELAY (); 

addr->csr = w4; 
DELAY (); 

addr->csr = 12; 
DELAY (): 

addr=->csr = speed; 
DELAY (} ; 

addr->csr = 13; 
DELAY (); 
addr->csr = speed >> 8; 
DELAY ()? 
addr->csr = 5; 
DELAY {) ; 
addr->csr = w5; 
splx(s); 


schup {dev} 


{ 


register struct device *addr; 
int s; 


dev = scdev (dev); 
addr = (struct device *)sc ttptr[dev].tt_addr; 
8 = splé6{); 


addr->csr = 5; 


DELAY () 7 
addr->csr = WSTXENABLE | WS8BIT; /* turn off DTR/RTS */ 
splx(s); 

} 

scintr (ap) 


register struct args *ap; 


{ 


} 


register struct device *addr; 


for f(ap->a_dev = 0; ap->a_dev < sc ent; ap->a_devit+) { 
addr = (struct device *)sc_ttptr[ap->a_dev] .tt_addr; 
while (addr->csr & RORXRDY) { 
addr->csr = 1; 
DELAY ()? 
if (addr->csr & (RIPARERR|RICOVRERR]R1IFRMERR) ) 
scsintr (ap); 
else 
serintr (ap); 
} 
if (addr->csr & ROTXRDY) 
scxintr (ap); 


serintr (ap) 
register struct args *ap; 


{ 


register struct device *addr; 
register struct ccblock *cbp; 
register int c, lent, flg; 
struct tty *tp; 

register char ctmp; 

char lbuf[3]; 


addr = {struct device *)sc_ttptr[ap->a_dev] .tt_addr; 


addr->csr = WORXINT; /* reinable receiver interrupt */ 
addr->csr = WORIUS; /* reset interrupt */ 

c = addr->data & OxFF; 

sysinfo.rcvint++; 


tp = sc_ttptr[ap->a_dev].tt_tty; 
if (tp->t_rbuf.c_ptr == NULL) 
return; 
if (tp->t_iflag & IXON) { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 
if (ctmp == CSTART || tp->t_iflag & IXANY) 
(*tp->t_proc) (tp, T_RESUME) ; 
} else { 
if (ctmp == CSTOP) 
{*tp->t_proc) (tp, T_SUSPEND); 
} 
if (ctmp == CSTART || ctmp == CSTOP) 
return; 
} 
lent = 1; 
flg = tp->t_iflag; 
if (flg&ISTRIP) 


c &é&= 0177; 
else { 
/* c &= 0377; not needed */ 
if (c == 0377 && F1g&PARMRK) { 
lbuf{1] = 0377; 
icnt = 2; 
} 
} 
/* 
* Stash character in r_buf 
*/ 


cbp = «tp->t_rbuf; 
if (lent != 1) { 
lbuf[{0] = ¢; 
while (lent) { 
*cbp->c_ptrt++ = lbuf[--lcnt]; 
if (--cbp->c_count == 0) { 
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cbp~->c_ptr -= cbp->c_size; 
{*linesw[tp->t_line].1_ input) (tp); 
} 
} 
if (cbp->c_size != cbp->c_count) { 
chp->c_ptr -= cbp->c_size - cbhp->c_count; 
(*linesw[tp->t_line].1 input) (tp); 
} 
} else { 
*cbp->c_ptr = c; 
cbhp->c_count~-; 
(*linesw{tp->t_line].1 input) (tp); 


sexintr (ap) 
register struct args *ap; 


{ 


} 


register short dev; 
struct tty *tp; 
register struct device *addr; 


sysinfo.xmtintt+; 

dey = ap->a_dev; 

addr = (struct device *)sc_ttptr[dev] .tt_addr; 

addr->csr = WORTXPND; /* reset transmitter interrupt */ 
addr->csr = WORIUS; /* reset interrupt */ 

tp = sc_ttptr[dev] .tt_tty; 

tp->t_state &= ~BUSY; 

scproc(tp, T_OUTPUT); 


sesintr (ap} 
register struct args *ap; 


{ 


register struct ceblock *cbp; 
register int c, lent, flg; 
struct tty *tp; 

register char ctmp; 

char lbuf([3];: 

register struct device *addr; 
unsigned char stat; 


sysinfo.revinttt; 
addr = (struct device *)sc_ttptr{ap->a_dev] .tt_addr; 
c = addr->data & OxFF; /* read data BEFORE reset error */ 


addr->csr = 0x1; f* omd to read register 1 */ 

stat = addr->csr; /* read the status */ 

addr->csr = WORERROR; /* reset error condition */ 
addr->csr = WORXINT; /* reinable receiver interrupt */ 
addr->csr = WORIUS; /* reset interrupt under service */ 


tp = sc_ttptr[ap->a_dev].tt_tty; 
if (tp->t_rbuf.c_ptr == NULL) 
return; 
if (tp->t_iflag & IXON) { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 
if (ctmp == CSTART || tp->t_iflag & IXANY) 
{*tp->t_proc) (tp, T_RESUME) ; 
} else { 
if (ctmp — CSTOP) 
(*tp->t_proc) (tp, T_SUSPEND):;: 
} 
if (ctmp == CSTART || ctmp == CSTOP) 


return; 
} 
/* 
* Check for errors 
af 
lent = 1; 


flg = tp->t_iflag; 
if (stat & (RIPARERR |RIOVRERR|R1IFRMERR)) { 
if ((stat & RIPARERR ) && {flg & INPCK)) 
c != PERROR; 
if (stat & R1OVRERR) 
c |= OVERRUN; 


Af (stat & RIFRMERR) 
c |= FRERROR; 
} 
if (c&(FRERROR|PERROR|OVERRUN)) { 
Af ((c&0377) == 6) { 

if (f1lqgeIGNBRK) 
return; 

Lf (flg&BRKINT) { 
signal (tp->t_pgrp, SIGINT); 
ttyflush(tp, (FREAD|FWRITE)); 
return; 

} 

} else { 

if (flg&IGNPAR) 

return; 
} 
if (f1lg&PARMRK) { 

lbuf[2] = 0377; 

lbuf[1}] = 0; 

licnt = 3; 

sysinfo.rawch += 2; 


} else 
c= 0; 
} else { 
if (flgsISTRIP) 
c &= 0177; 
else { 
/* c &= 0377; not needed */ 
if (c == 0377 £& flg&PARMRK) { 
lbuf[1] = 0377; 
lent = 2; 
} 
} 
} 
/* 
* Stash character in r_buf 
xf 


cbp = étp->t_rbuf; 
if (licnt [= 1) { 
lbuf[0] = c; 
while flent) { 
*cbp->c_ptrt+ = lbuf[--lent]; 
if (--cbp->c_count == 0) { 
cbp->c_ptr -= cbhp->c_size; 


(*linesw[tp->t_line].1_ input) (tp); 


} 
} 
if (cbp->c_size != cbp->c_count) { 


cbp->c_ptr -= cbp->c_size - cbp->c_count; 


(*linesw[tp->t_line].1 input) (tp); 
} 
} else { 
*®cbp->c_ptr = c; 
cbp->c_count--; 
(*linesw[tp->t_line].1_input) (tp); 


} 


scscan () 

{ 
register int i; 
register struct tty *tp; 
register struct device *addr; 


timeout (scscan, (caddr_t)0, SCTIME); 
for (i = 0; i < sc_cnt; itt) { 
addr = (struct device *)sc ttptr{i]j.tt_addr; 
addr->csr = WOREXT; /* update DCD */ 
tp = sc ttptr[i).tt_tty: 
if (addr->csr & RODCD) { 
if ({tp->t_stateéCARR_ON) == 0) { 
tp->t_state |= CARR_ON; 
if (tp->t_state&WOPEN) 


wakeup ( (caddr_t)étp->t_rawq); 


} else { 
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if (tp->t_state&CARR_ON && sc_modem[i]) { 
tp->t_state é= ~CARR_ON; 
if (tp->t_state&ISOPEN) { 
ttyflush(tp, FREAD|FWRITE); 
signal (tp->t_pgrp, SIGHUP); 


“- 


ifdef SCC CONSOLE 

scputchar(c) 

{ 
register struct device *addr ; 
int s, i; 


addr = {struct device *)sc_ttptr [CONSOLE] .tt_addr; 
s = spl6(); 
if (c == ‘\n‘) 
scputchar (’\r‘); 
i = 100000; 
while ((addr->csr & ROTXRDY) = 0 && --i) ; 
addr->data = c; 
splx{s); 
} 
#endif SCC_CONSOLE 
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/* 

* scc device driver 

* Copyright 1982 UniSoft Corporation 

xf 


#include “sys/param.h" 
#include "“sys/config.h" 
#include “sys/types.h" 
#include “sys/systm.h" 
#include "sys/dir.h" 
#include "sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/file.h" 
#include “sys/tty.h" 
#include “sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include "sys/var.h" 
#include “sys/reg.h" 
#include <sys/scec.h> 
#include “sys/proc.h" 
#include “setjmp.h" 


int scproc(); 

extern int sc_ent; 

extern struct tty sc_tty[]; 
extern struct ttyptr sc_ttptr[]-; 
extern char sc_modem{]; 

extern struct scline sc_line[]; 


#define MODEM Ox80 
#define scdev{d) ((d) &0x7£) 


/* modem control on bit */ 
/* from unix device number to device */ 


#define DELAY{) asm(“\tnop"); 


#define SCTIME (v.v_hz*5) /* sescan interval */ 


{* 
* Note: to select baud rate 
* k = chip _input_frequency/(2 * baud * factor) - 2 
x put factor in register 3 and k in registers D&C 
* NOTE: 
= normally, factor = 16 
* for this driver, chip _input_frequency = 2400000 Hz 
* scspeeds is a table of these numbers by UNIX baud rate 
*f 
int scspeeds{] = { 
1, 55; 715, 116, 134, 1506, 2006, 300, 
600, 1200, 1800, 2400, 4800, 9600, 19200, 38460, 
} 
{* 
* table to initialize a port to 9600 baud 
*/ 
char scitable[] = { 
WONULL, 
9, 0, /* set according to sc_line reset value */ 
#define SCCIRESET scitable[2] 
4, WACLK16 | W41STOP, 
10, 0, 
11, W11RBR | W11TBR, 
12, 0, /* 12/13 are baud rate, from sc_line speed value */ 
#define SCCISPLO scitable[10] 
13, 0, 
#define SCCISPHI scitable[i2] 


14, W14BRGE | W14ERINT, 

3, W38BIT | W3RXENABLE, 

5, WS8BIT | WSTXENABLE, 

1, WIRXIALL | WITXIEN /*| WLEXTIEN*/, 

2, 9, /* auto vector */ 
0, WORXINT, 

15, 0, 

9, WOMIE | W9DLC, 


Ie 


{* 

* we call this in startup() to preinitialize all the ports 
*/ 

totes 


scinit {} 

{ 
register struct device *addr; 
unsigned short nsc; 


for (nsc=0;nsc<500;nsctt); 

for {nsc = 0; nsec < sc_cnt; nsct++) { 
addr = (struct device *)sc_ ttptr[nsc].tt_addr; 
/* do proper reset */ 


scinil(addr, WONVisc_line[nsc].reset, (int)sc_line[nsc] 
} 
printf ("%d serial ports\n", nsc}; 
/* sescan(); /* start modem scanning */ 


} 


scinil(addr, reset, speed) 
struct device *addr; 
int reset, speed; 
{ 
register int i; 
int s; 


s = splé(); 
SCCIRESET = reset; 
speed = (speed/(9600<<1)) - 2; 
SCCISPHI = (speed >> 8) & OXFF; 
SCCISPLO = speed & OxFF; 
for (i = 0; i < sizeof(scitable); i++) { 
DELAY {); 
addr->csr = scitable[i]; 
} 
DELAY {); 
splx{s); 
} 


/* ARGSUSED */ 

scopen(dev, flag) 

register dev; 

{ 
register struct tty *tp; 
register struct device *addr; 
register d; 

#ifdef SINGLEUSER 
register struct proc *p; 

#endif SINGLEUSER 


ad = scdev (dev); 

if (d >= sc_cnt) { 
u.u_error = ENXIO; 
return; 

} 

tp = sc_ttptr[d].tt_tty; 

#ifdef SINGLEUSER 
p = u.u_procp; 
if ((p->p_pid — p->p_pgrp) 
&& (u.u_ttyp == NULL) 
&& (tp->t_pgrp == 0)) { 

u.U_error = ENOTTY; 
return; 

} 

#endif SINGLEUSER 

tp->t_index = d; 

SPL6(); 

if ((t{p->t_stated (ISOPEN|WOPEN)) == 0) j 
tp->t_proc = scproc; 
ttinit (tp); 
sc_modem[d] = dev & MODEM; 
addr = (struct device *)sc_ttptr{d].tt_addr; 
if {dev & MODEM && (addr->csr & RODCD) == 0} 

tp->t_state = WOPEN; 

else . 


. Speed); 
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tp->t_state = WOPEN | CARR_ON; 


#ifdef SCC_CONSOLE 


if (d == CONSOLE) { 
tp->t_iflag = ICRNL | ISTRIP; 
tp->t_oflag = OPOST | ONLCR | TAB3; 
tp->t_lflag = ISIG | ICANON | ECHO | ECHOK; 
tp->t_cflag = sspeed | CS8 [| CREAD | HUPCL; 
} 


fendif SCC_CONSOLE 


} 


scparam (dev); 


few 


if (i (flag & FNDELAY)) 
while ((tp->t_statesCARR_ON) == 0) 
(void) sleep((caddr_t)&tp->t_rawq, TTOPRI); 
SPLO() + 
(*linesw[tp->t_line].1 open) (tp); 


/* ARGSUSED */ 
scclose{dev, flag) 


{ 


} 


register struct tty *tp; 
register int d; 


d = scdev (dev); 
tp = sc ttptr[d].tt_tty; 
(*linesw[tp->t_line].1 close) (tp); 
if (tp->t_cflag & HUPCL) 
schup (dev) ; /* hang up */ 


scread (dev) 


{ 


} 


register struct tty *tp; 


tp = sc_ttptr[scdev(dev)].tt_tty:; 
(*linesw[tp->t_line] .1_read) (tp); 


scwrite (dev) 


{ 


} 


register struct tty *tp; 


tp= sc_ttptr[scdev(dev)].tt_tty; 
(*linesw[tp->t_Line].1 write) (tp); 


secproc(tp, cmd) 
register struct tty *tp; 


{ 


register struct ccblock *tbuf; 
register struct device *addr; 
register dev_t dev; 

extern ttrstrt{); 

int s; 


5 = spl6(); 

dev = tp->t_index; 

addr = (struct device *)sc ttptr[dev] .tt_addr; 
switch (cmd) { 


case T_TIME: 
scw5(tp, addr, 0); /#* clear break */ 
tp->t_state &= ~TIMEOUT; 
goto start; 


case T_ WFLUSH: 
tbuf = &tp->t_tbuf; 
tbuf->c_size -= tbuf->c_count; 
tbuf->c_count = 0; 
/* fall through */ 

case T RESUME: 
tp->t_state &= ~TTSTOP; 
goto start; 


case T_OUTPUT: 


start: 


} 


if (tp->t_state & (TTSTOP | TIMEOUT | BUSY) ) 
break; 

if (tp->t_state & TTXOFF) { 
tp->t_state &= ~TTXOFF; 


tp->t_state [= BUSY; 
addr->data = CSTOP; 
break; 


} 
if (tp->t_state & TTXON) { 
tp->t_state &= ~TTXON; 
tp->t_state |= BUSY; 
addr->data = CSTART; 
break; 
} 
tbhuf = &tp->t_tbuf; 
if ({tbuf->c_ptr == 6) || (tbuf->c_count == 0)) { 
if (tbuf->c_ptr) 
tbuf->c_ptr -= tbuf->c_size; 
if (!(CPRES & (*linesw[tp->t_line] .1_output) (tp))) 
break; 
} 
tp->t_state |= BUSY; 
addr->data = *tbuf->c_ptrt+; 
thuf->c_count--; 
break; 


case T SUSPEND: 


tp->t_state |= TISTOP; 
break; 


case T BLOCK: 


tp->t_state &= ~TTXON; 
tp->t_state |= TBLOCK; 
tp->t_state |= TTXOFF; 
goto start; 


case T_RFLUSH: 


if (! (tp->t_state&TBLOCk) } 
break; 
/* fall through */ 


case T UNBLOCK: 


tp->t_state &= ~(TTXOFF|TBLOCK); 
tp->t_state |= TIXON; 
goto start; 


case T_BREAK: 


} 


splx(s); 


sew5 (tp, addr, WSBREAK); 

tp->t_state |= TIMEOUT; 

timeout (ttrstrt, (caddr_t)tp, v.v_hz>>2); 
break; 


sew5 (tp, addr, d) 


struct tty *tp; 


struct device *addr; 


int d; 


{ 


register int w5; 


int s; 


wS = WSTXENABLE | d; 
switch (tp->t_cflag & CSIZE) { 


} 


case CS5: 

w5 |= WSSBIT; break; 
case CS6: 

w5 |= W56BIT; break; 
case CS7: 

w5 |= WS7BIT; break; 
case CS8: 


wS |= WS8BIT; break; 


S&S = spl5(); 
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~ 


mm Uw 


~ 


addr->csr = 5S; 
addr->csr = w5; 
splx(s); 


dev, cmd, arg, mode} 


if (ttiecom(sc_ttptr[scdevidev)].tt_tty, cmd, arg, mode)} 
scparam (dev) ; 


scparam {dev} 


{ 


Sonu 


{ 


register flag; 

register struct tty *tp; 
register struct device *addr; 
int s; 

register int w4, w5, speed; 


tp = sc_ttptr[scdev(dev)].tt_tty; 
flag = tp->t_cflag; 
if (((flagéCBAUD) =~ BO) && (devséMODEM)) { /* hang up line */ 
schup (dev); 
return; 
} 
addr = (struct device *)se_ttptr[scdev(dev)].tt_addr; 
w4 = W4CLK16; 
if (flag & CSTOPB) 
w4 |= WA42STOP; 
else 
w4 |= W41STOP; 
w5 = WSTXENABLE; 
switch(flag & CSIZE) { 


case CS5: 

w5 |= WSSBIT; break; 
case CS6: 

w5 |= W56BIT; break; 
case CS7?: 

w5 |= WS7BIT; break; 
case CS8: 


w5 |= WS8BIT; break; 
} 
if (flag & PARENB) 

if (flag & PARODD) 
w4 |= W4IPARENABLE; 
else 

w4 |= W4PARENABLE | W4PAREVEN; 
speed = sc_line[scdev (dev) ] .speed; 
speed = (speed/ (scspeeds[flag&CBAUD]<<1)) - 2; 
$s = spl6(); 
addr->csr = 4; 
DELAY (); 
addr->csr = w4; 
DELAY ()? 
addr->csr = 12; 
DELAY (); 
addr->csr = speed; 
DELAY (); 
addr->csr = 13; 
DELAY (); 
addr->csr = speed >> 8; 
DELAY (); 
addr->csr = 5; 
DELAY (); 
addr->csr = w5; 
splx(s); 


pitdev) 


register struct device *taddr; 
int s; 


dev = scdev (dev); 
addr = (struct device *)sc ttptr[dev] .tt_addr; 
s = spl6é(); 


addr->csr = 5; 
DELAY {}; 
addr->csr = WSTXENABLE | WS58BIT; /* turn off DIR/RTS */ 
sSplx(s); 
} 


scintr (ap) 
register struct args *ap; 


{ 
register struct device *addr; 


for (ap->a_dev = 0; ap->a_dev < sc_cnt; ap->a_devtt) { 
addr = (struct device *)sc_ttptr[ap->a_dev] .tt_addr; 
while (addr->csr & RORXRDY) { 
addr->csr = 1; 
DELAY (); 
if {addr->csr & {RIPARERR|R1OVRERR|R1FRMERR) ) 
scsintr{ap); 
else 
scrintr(ap); 
} 
if {addr->csr & ROTXRDY) 
sexintr (ap); 


} 


scrintr (ap) 

register struct args *ap; 

{ 
register struct device *addr; 
register struct ccblock *cbp; 
register int c, lent, flg; 
struct tty *tp; 
register char ctmp; 
char lbuf{3]; 


addr = (struct device *)sc_ttptr[ap->a_dev].tt_addr; 


addr->csr = WORXINT; /* reinable receiver interrupt */ 
addr->csr = WORIUS; /* reset interrupt */ 

c = addr->data & OxFF; 

sysinfo.rcvintt+; 


tp = sc _ttptr[ap->a_dev] .tt_tty; 
if (tp->t_rbuf.c_ptr == NULL) 
return; 
if (tp->t_iflag & IXON) { 
ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 
if (ctmp == CSTART || tp->t_iflag & IXANY) 
(*tp->t_proc) (tp, T_RESUME); 
} else { 
if (ctmp == CSTOP) 
(*tp->t_proc) (tp, T_SUSPEND); 
} 
if (ctmp == CSTART || ctmp == CSTOP) 
return; 
} 
lent = 1; 
flg = tp->t_iflag; 
if (flg&ISTRIP) 


c &= 0177; 
else { 
/* c &™ 0377; not needed */ 
if (c == 0377 && flg&PARMRK) { 
lbuf{1] = 0377; 
lent = 2; 
} 
} 
/* 
* Stash character in r_buf 
*f 


cbp = étp->t_rbuf; 
if (lent ‘= 1) { 
lbuf[0] = c; 
while (lent) { 
*cbp->c_ptrt+ = lbuf[--lent]; 
if (--cbp->c_count == 0) { 
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cbp->c_ptr -= cbp->c_size; 
(*linesw[tp->t_line].1_ input) (tp); 
} 
} 
if (cbp->c_size != cbp->c_count) { 
chp->c_ptr -= chp->c_size - cbhp->c_count; 
(*lLinesw[tp->t_line] .1_input) (tp); 
} 
} else { 
*cbp~>c_ptr = c; 
cbp->c_count--; 
(*linesw[tp->t_line].1_ input) (tp); 


} 


scexintr (ap) 
register struct args *ap; 
{ 
register short dev; 
struct tty *tp; 
register struct device *addr; 


sysinfo.xmtintt++; 
dev = ap->a_dev; 
addr = {struct device *)se_ttptr[dev] .tt_addr; 
addr->csr = WORTXPND; /* reset transmitter interrupt */ 
addr->csr = WORIUS; /* reset interrupt */ 
tp = sc _ttptr[dev] .tt_tty; 
tp->t_state &é= ~BUSY; 
scproc(tp, T_OUTPUT); 
} 


sesintr (ap) 

register struct args *ap; 

{ 
register struct ccblock *cbp; 
register int c, lent, fig; 
struct tty *tp; 
register char ctmp; 
char lbuf[3]; 
register struct device *addr; 
unsigned char stat; 


sysinfo.revint+t+; 
addr = (struct device *)sc_ttptr[ap->a_dev].tt_addr; 
c = addr->data & OxFF; /* read data BEFORE reset error */ 


addr->csr = 0x1; /* cmd to read register 1 */ 

stat = addr->csr; /* read the status */ 

addr->csr = WORERROR; /* reset error condition */ 
addr->csr = WORXINT; /* reinable receiver interrupt */ 
addr->csr = WORIUS; /* reset interrupt under service */ 


tp = sc_ttptr[ap->a_dev].tt_tty; 
if (tp->t_rbuf.c_ptr == NULL) 
return; 
if (tp->t_iflag & IXON) { 
ctmp = c & 6177; 
if (tp->t_state & TTSTOP) { 
if (ctmp = CSTART || tp->t_iflag & IXANY) 
(*tp->t_proc) (tp, T_RESUME) ; 
} else { 
if (ctmp — CSTOP) 
(*tp->t_proc) (tp, T_SUSPEND); 
} 
if (ctmp == CSTART || ctmp == CSTOP) 


return; 
} 
f* 
* Check for errors 
*/ 
lent = 1; 


flg = tp->t_iflag:; 
if (stat & (RIPARERR |RiOVRERR|RIFRMERR)) { 
if ((stat & RIPARERR ) && (flg & INPCK)) 
c |= PERROR; 
if (stat & R1OVRERR) 
c {= OVERRUN; 


if (stat & R1IFRMERR) 
c |= FRERROR; 
} 
if (c&(FRERROR|PERROR|OVERRUN)) { 
if ((c&0377) = 0) { 
if {£1g&IGNBRK} 
return; 
1£ (flg&BRKINT) { 
signal (tp->t_pgrp, SIGINT); 
ttyflush(tp, (FREAD|FWRITE)); 
return; 
} 
} else { 
if (flg&IGNPAR) 
return; 
} 
if (flg&PARMRK) { 
lbuf[2] 
lbuf[1] 
lent = 3; 
sysinfo.rawch += 2; 


0377; 
0; 


} else 
c= 6; 
} else { 
if (flgéISTRIP) 
c &= 6177; 
else { 
/* c &= 0377; not needed */ 
if (c = 0377 && flg&PARMRK) { 
lbuf{1] = 0377; 
icnt = 2; 


} 
fx 
* Stash character in r_ buf 
xf 
cbp = étp->t_rbuf; 
if (lent f= 1) { 
lbuf[6] = c; 
while {lent} { 
*cbp->c_ptrt+ = lbuf [--lent]; 
if (--cbp->c_count == 0} { 
cbp->c_ptr -= cbp->c_size; 
{*linesw(tp->t_line].1_ input) (tp); 
} 
} 
if (cbp->c_size != cbp->c_count) { 
cbp->c_ptr -= cbhp->c_size - cbp->c_count; 
(*linesw[tp->t_line].1_input) (tp); 
} 
} else { 
*cbp->c_ ptr = c; 
cbp->c_count--; 
(*linesw[tp->t_line].1 input) (tp); 


} 


scscan () 

{ 
register int i; 
register struct tty *tp; 
register struct device *addr; 


timeout (scscan, (caddr_t)0, SCTIME); 
for (i = 0; i < sc_cnt; i++) { 
addr = (struct device *)se ttptr[i].tt_addr; 
addr->csr = WOREXT; /* update DCD */ 
tp = sc ttptr[i].tt_tty; 
if (addr->csr & RODCD) { 
if ((tp->t_state&CARR_ON) mm QO) { 
tp->t_state |= CARR_ON; 
if (tp->t_state&WOPEN) 
wakeup({caddr_t)étp->t_rawq): 
} 
} else { 
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if (tp->t_state&CARR_ON && sc_modem[i]) { 
tp->t_state &= ~CARR_ON; 
if (tp->t_statea&ISOPEN) { 
ttyflush(tp, FREAD|FWRITE); 
signal (tp->t_pgrp, SIGHUP); 


} 


#ifdef SCC_CONSOLE 

scputchar (c) 

{ 
register struct device *addr ; 
int s, i: 


addr = (struct device *}sc_ttptr [CONSOLE] .tt_addr; 
S$ = splé6({); 
Lf (c == '\n') 
scputchar (‘\r'); 
i = 100060; 
while ({addr->csr & ROTXRDY) == 0 && --i) ; 
addr->data = c; 
splx(s); 
} 
#endif SCC_CONSOLE 
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/* @(#)sem.c 1.5 */ } 
f* for(uup = up->un_ent, found = i = O;4 < up->un_ent;it+) { 
* Inter-Process Communication Semaphore Facility. if (uup->un_id < id || (uup->un_id == id && uup->un_num < num)) { 
xf uuptt; 
continue; 
#include “sys/types.h" } 
#include “sys/param.h" if (uup->un_id == id && uup->un_num == num) 
#include “sys/dir.h" found = 1; 
f#ifdef u3b break; 
#include “sys/istk.h" } 
#endif if(!found) { 
#include “sys/map.h*" if(up->un_cnt >= seminfo.semume) { 
#include "sys/errno.h" u.u_error = EINVAL; 
#include “sys/signal.h" return(1); 
#include “sys/ipc.h" } 
#include “sys/sem.h" if(up->un_cnt = 0) { 
#include "sys/user.h" up->un_np = semunp; 
#include “sys/seg.h" semunp = up; 
#include “sys/proc.h" } 
#include "sys/buf.h" uup2 = éup~>un_ent [up->un_cntt+]; 
while (uup2-- > uup) 
#ifdef pdpll *(yup2 + 1) = *uup2; 
#define MOVE sempimove uup->un_id = id; 
#else unp->un_num = num; 
#define MOVE lomove uup->un_aoe = -val; 
#endif return (0); 
} 
extern struct semid ds sema[]; /* semaphore data structures */ uup->un_aoe -= val; 
extern struct sem sem[]: /* semaphores */ if (uup->un_aoe > seminfo.semaem || uup->un_ace < -seminfo.semaem) { 
extern struct map semmap[]: /* sem allocation map */ u.u_error = ERANGE; 
eatern struct sem_undo *sem_undo[]; /* undo table pointers */ uup->un_aoe += val; 
extern struct sem undo semu[{]; /* operation adjust on exit table */ return (1): 
extern struct seminfo seminfo; /* param information structure */ } 
extern union { if {uup->un_ace = 4) { 
short semvals{1]; /* set semaphore values */ uup2 = éup->un_ent [—-~(up->un_cnt) J; 
struct semid_ds ds; /* set permission values */ while(uupt+ < uup2) 
struct sembuf semops [1]; /* operation holding area */ *(uup - 1) = *uup; 
} semtmp; if(up->un_cnt == 6) { 
struct sem undo *semunp; /* ptr to head of undo chain */ 
struct sem_undo *semfup; /* ptr to head of free undo chain */ /* Remove process from undo list. */ 
if({semunp — up) 
extern time t time: /* system idea of date */ semunp = up->un Dp; 
else 
struct ipc_perm xipeget (): for{up2 = semunp;up2 != NULL;up2 = up2->un_np) 
struct semid ds *semconv (); if(up2->un_np == up) { 
up2->un np = up->un_np; 
f* break; 
-* semaoe - Create or update adjust on exit entry. } 
xf up->un_np = NULL; 
} 
semaoe(val, id, num) } 
short val, /* operation value to be adjusted on exit */ return (0); 
num; /* semaphore # */ } 
int id; /* semid */ 
{ {* 
register struct undo *xuup, /* ptr to entry to update */ we semconv - Convert user supplied semid into a ptr to the associated 
*uup2; /* ptr to move entry */ ae semaphore header. 
register struct sem_undo *up, /* ptr to process undo struct */ */ 
*up2; /* ptr to undo list */ 
register int i, /* loop control */ struct semid ds * 
found; /* matching entry found flag */ semconv (s) 
register int 8; /* semid */ 
if(val == 0) { 
return (0); register struct semid_ds *sp; /* ptr to associated header */ 
if(val > seminfo.semaem || val < -seminfo.semaem) { 
u.u_error = ERANGE; sp = &sema[s % seminfo.semmni] ; 
return(1); if ((sp->sem_perm.mode & IPC_ALLOC) == 0 || 
} s / seminfo.semmni != sp->sem_perm.seq) { 
if((up = sem_undo[u.u_proep - proc]) == NULL) u.u_error = EINVAL; 
if (up = semfup) { return (NULL) ; 
semfup = up->un_np; } 
up->un_np = NULL; return(sp); 
sem_undo[u.u_procp - proc] = up; } 
} else { 
u.u_error = ENOSPC; /* 


return(1); ak semctl - Semcti system call. 
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af 

semctl () 

{ 
register 
} 
register 
register 
register 
register 
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struct a { 

int semid; 

uint semnum; 

int cmd; 

int arg: 

*yap = (struct a *)u.u_ap; 

struct semid_ds *sp: /* ptr to semaphore header */ 
struct sem *p: /* ptr to semaphore */ 

int i: /* loop control */ 


struct user *up; 


if ((sp = semconv{(uap->semid)) = NULL) 


up = &u; 


return; 


up->u_rvall = 9; 
switch(uap->cmd) { 


/* Remove semaphore set. */ 
case IPC_RMID: 


if (up->u_uid I= sp->sem_perm.uid && up->u_uid != sp->sem_perm.cuid 


é& !suser()) 
return; 
semunrm(uap->semid, 6, sp->sem_nsems); 
for(i = sp->sem_nsems, p = sp->sem_base;i--;ptt) { 
p->semval = p->sempid = 0; 
if(p->semnent) { 
wakeup ((caddr_t) &p->semncnt); 
p->semnecnt = 0; 
} 
if(p->semzent) { 
wakeup ({caddr_t}) &p->semzcnt); 
p->semzent = 0; 
} 
} 
mfree(semmap, (int)sp->sem_nsems, {(sp->sem_base - sem) + 1); 
if{uap->semid + seminfo.semmni < 6} 
sp->sem_perm.segq = 0; 
else 
sp->sem_perm.seqt++: 
sp->sem_perm.mode = 0; 
return; 


/* Set ownership and permissions. */ 
case IPC_SET: 


if(up->u_uid != sp->sem perm.uid && up->u_uid != sp->sem_perm.cuid 


&& !suser()) 
return; 


if(copyin((caddr_t)uap->arg, (caddr_t)&ésemtmp.ds, sizeof(semtmp.ds))) { 


up->u_error = EFAULT; 

return; 
} 
sp->sem_perm.uid = semtmp.ds.sem_perm.uid; 
sp->sem_perm.gid = semtmp.ds.sem_perm.gid; 


sp->sem_perm.mode = semtmp.ds.sem_perm.mode & 0777 | IPC_ALLOC; 


sp->sem_ctime = time; 
return; 


/* Get semaphore data structure. */ 
case IPC STAT: 


/* Get # 
case GET 


if (ipeaccess({&sp->sem_perm, SEM R)) 
return; 

if (copyout (({caddr_t)sp, (caddr_t)uap->arg, sizeof(*sp))) { 
up->u_error = EFAULT; 


return; 
} 
return; 
of processes sleeping for greater semval. */ 
NCNT: 
if (ipcaccess(&sp->sem_perm, SEM_R)) 


return; 
if(uap->semnum >= sp->sem nsems) { 


up->u_error = EINVAL; 

return; 
} 
up->u_rvall = (sp~>sem_base + uap->semnum)->semncnt; 
return; 


/* Get pid of last process to operate on semaphore. */ 
case GETPID: 


if (ipcaccess(&sp->sem_perm, SEM_R)) 
return; 
if{uap->semnum >= sp->sem_nsems) { 
up->u_error = EINVAL; 
return; 
} 
up->u_rvall = (sp->sem_base + uap->semnum)->sempid; 
return; 


/* Get semval of one semaphore. */ 
case GETVAL: 


if(ipcaccess(&sp->sem_perm, SEM_R)) 
return; 
if (uap->semnum >= sp->sem_nsems) { 
up->u_error = EINVAL; 
return; 
} 
up->u_rvall = {(sp->sem_base + vap->semnum) ->semval; 
return; 


/* Get all semvals in set. */ 
case GETALL: 


if (ipcaccess (&sp->sem_ perm, SEM_R)) 
return; 
up->u_base = (caddr t)uap->arg; 
up->u_offset = 0; 
up~>u_segflg = @; 
for(i = sp->sem_nsems, p = sp->sem_base;i--;pt+) { 
MOVE ( (caddr_t)&p->semval, sizeof(p->semval), B_READ); 
if (up->u_error) 
return; 
} 


return; 


/* Get # of processes sleeping for semval to become zero. */ 
case GETZCNT: 


if (ipcaccess(&sp->sem_perm, SEM _R)) 
return; 
if{uap->semnum >= sp->sem_nsems) { 
up~>u_error = EINVAL: 
return; 
} 
up->u_rvall = (sp->sem_base + uap->semnum) ->semzcnt; 
return; 


/* Set semval of one semaphore. */ 
case SETVAL: 


if(ipcaccess(&sp->sem_perm, SEM_A)) 
return; 
if (uap->semnum >= sp->sem_nsems) { 
up->u_error = EINVAL; 
return; 
} 
if( (unsigned) uap->arg > seminfo.semvmx) { 
up->u_error = ERANGE; 
return; 
} 
if((p = sp->sem_base + uap->semnum)->semval = uap->arg) { 
if(p->semnent) { 
p->semncnt = 0; 
wakeup ( (caddr_t)&p->semncnt); 
} 
} else 
if(p->semzcnt) { 
p->semzcnt = 0; 
wakeup ((caddr_t) &p->semzcnt); 
} 
p->sempid = up->u_procp->p_pid;: 
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} 


{* 
wk semexit - Called by exit(sysi.c) to clean up on process exit. 
xf 
semexit() 
{ 
register struct sem_undo *up, /* process undo struct ptr */ 
register struct semid_ds * sp; /* semid being undone ptr */ 
register int i; /* loop control */ 
register long vV: /* adjusted value */ 
register struct sem *semp; /* semaphore ptr */ 
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semunrm(uap~>semid, uap->semnum, uap->semnum) ; 


return; 


/* Set semvals of all semaphores in set. */ 
case SETALL: 


default: 


if{ipcaccess{asp->sem_perm, SEM_A)}} 
return; 

up->u_base = (caddr_t)uap->arg; 

up->u_offset = 0; 

up->u_segflg = 0; 

MOVE ((caddr_t)semtmp.semvals, 


{int) {sizeof (semtmp.semvals[0]} * sp->sem_nsems}, 


B WRITE); 
if (up->u_error) 
return; 
for{i = 0;i < sp->sem_nsems;) 


if (semtmp.semvals{i++] > seminfo.semvmx) { 


up->u_error = ERANGE; 
return; 
} 
semunrm(uap->semid, 0, sp->sem_nsems) ; 


for(i = 0, p = sp->sem_base;i < sp->sem_nsems; 
(pt+)->sempid = up->u_procp->p pid) { 
if(p->semval = semtmp.semvals[it+]) { 


if(p->semnent) { 
pr->semncnt = 0; 


wakeup ((caddr_t) &p->semnent) ; 


} 
} else 
if(p->semzent) { 
p->semzcnt = 0; 


wakeup ((caddr_t) &p->semzcnt) ; 


} 
return; 


up->u_error = EINVAL; 
return; 


*p? /* undo struct ptr */ 


if((up = sem_undo[u.u_procp - proc]} == NULL) 


return; 


if({up->un_cnt == 6) 


for(i = 


} 


goto cleanup; 
up->un_cnt;i--;) { 


if((sp = semconv(up->un_ent{i].un_id)) == NULL) 


continue; 


v= (long) (semp = sp->sem_base + up->un_ent[{1].un_num)->semval + 


up->un_ent [i] .un_aoe; 
if(v < 0 || v > seminfo.semvmx) 
continue; 
semp->semval = v; 
if(v — 0 && semp->semzcnt) { 
semp->semzcnt = 0; 
wakeup ((caddr_t) &ésemp~>semzcnt} ; 
} 


if(up->un_ent[i].un_ace > 0 && semp->semncnt) { 


semp->semncnt = 0; 
wakeup ((caddr_t)&semp->semncnt) ; 


up->un_cnt = 0; 


if(semunp == up) 
semunp = up->un_np; 
else 
for{p = semunp;p != NULL:p = p->un_np) 
if(p->un_np == up} { 
p->un_np = up->un_np: 
break; 
} 
cleanup: 
up->un_np = semfup; 
semfup = up; 
sem undef[u.u_procp - prec] = NULL; 


} 


/* 
ak semget - Semget system call. 
*f 
semget () 
{ 
register struct a { 
key t key; 
int nsems; 
int semflg; 
} *xuap = {struct a *)u.u_ap; 
register struct semid_ds *sp; /* semaphore header ptr */ 
register int a5 /* temp */ 
int S; /* ipeget status return */ 
if((sp = (struct semid_ds *) 
ipeget (uap->key, uap->semflg, (struct ipc perm *)sema, 
seminfo.semmni, sizeof(*sp), &s)} == NULL) 
return; 
if(s) { 
/* This is a new semaphore set. Finish initialization. */ 
if(uap->nsems <= 0 |j uap->nsems > seminfo.semmsl) { 
u.u_error = EINVAL; 
sp->sem_perm.mode = 0; 
return; 
5 
if((i = malloc({semmap, uap->nsems)) == NULL) { 
u.u_error = ENOSPC; 
sp->sem_perm.mode = 0; 
return; 
} 
sp->sem_base = sem + (i - 1); 
sp->sem_nsems = uap->nsems; 
sp->sem_ctime = time; 
} else 
if(uap->nsems && sp->sem_nsems < uap->nsems) { 
u.u_error = EINVAL; 
return; 
} 
u.u_rvall = sp->sem_perm.seq * seminfo.semmni + (sp - sema); 
} 
{* 
ne seminit - Called by main(main.c) to initialize the semaphore map. 
x] 
seminit () 


{ 
register i; 


mapinit(semmap, seminfo.semmap) ; 
mfree(semmap, seminfo.semmns, 1); 


semfup = semu; 

for (i = 0; i < seminfo.semmnu - i; i++} { 
semfup->un_np = (struct sem_undo *) {(uint) semfuptseminfo.semusz) ; 
semfup = semfup->un_np; 

} 

semfup->un_np = NULL; 

semfup = semu; 
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semp->semncnt = 0; 


/* wakeup ((caddr_t)ésemp->semncnt) ; 
ak semop - Semop system call. } 
*/ continue; 
} 
semop {} if{op->sem_op < 9) { 
{ if(semp->semval >= -op->sem_op) { 

register struct a { if(op->sem_flg & SEM UNDO && 
int semid; semace(op->sem_op, uap->semid, {short}op->sem_num)) { 
struct sembuf *sops; Lf (i) 
uint nsops; semundo(semtmp.semops, i, uap->semid, sp); 

} *uap = (struct a *)u.n ap: return; 

register struct sembuf *op; /* ptr to operation */ } 

register int i; /* loop control */ semp->semval += op->sem_op; 

register struct semid_ds *sp; /* ptr to associated header */ if (semp->semval == 0 && semp->semzcnt) { 

register struct sem *semp; /* ptr to semaphore */ semp->semzcnt = 0; 

int again; wakeup ({caddr_t) &semp->semzcnt) ; 

} 

if((sp = semconv(uap->semid)) == NULL) continue; 
return; } 

if{uap->nsops > seminfo.semopm) { if (i) 
u.u_error = E2BIG; semundo(semtmp.semops, i, uap->semid, sp); 
return; if(op->sem_flg & IPC_NOWAIT) { 

} u.u_error = EAGAIN; 

u.u_base = (caddr_t)uap->sops; return; 

u.u_offset = 0; } 

u.u_segflg = 0; semp->semncntt+; 

MOVE ((caddr_t)semtmp.semops, (int) (uap->nsops * sizeof(*op)), B WRITE); if (sleep((caddr_t)&semp->semncnt, PCATCH | PSEMN)) { 

if(u.u_error) if ({semp->semncnt)-- <= 1) { 
return; semp->semncnt = 0; 

wakeup ( (caddr_t)&semp~->semncnt) ; 

/* Verify that sem #s are in range and permissions are granted. */ } 

for(i = 0, op = semtmp.semops;it++ < uap->nsops;opt+) { u.u_error = EINTR; 
if (ipcaccess (&sp->sem_perm, (ushort) (op->sem_op?SEM_A:SEM R))) return; 

return; } 
if(op->sem_num >= sp->sem_nsems) { goto check; 

u.u_error = EFBIG; } 

return; if(semp->semval) { 
} if(i) 

} semundo(semtmp.semops, i, uap->semid, sp); 

again = 0; if{op->sem_flg & IPC_NOWAIT) { 

check: u.u_error = EAGAIN; 
/* Loop waiting for the operations to be satisified atomically. */ return; 
/* Actually, do the operations and undo them if a wait is needed } 
or an error is detected. */ semp->semzcnttt; 
Lf (again) { if({sleep{(caddr_t)&semp->semzcnt, PCATCH | PSEMZ)) { 
/* Verify that the semaphores haven't been removed. */ if((semp->semzcnt)-- <= 1) { 
if(semconv(uap->semid) == NULL) { semp->semzcnt = Q; 
u.u_error = EIDRM; wakeup { (caddr_t)&semp->semzcnt) ; 
return; } 

} u.u_error = BINTR; 

/* copy in user operation list after sleep */ return; 

u.u_base = (caddr_t)uap->sops; } 

u.u_offset = 0; goto check; 

u.u_segflg = 0; } 

MOVE ((caddr_t) semtmp.semops, } 
(int) (uap->nsops * sizeof(*op)), B_WRITE); 

if(u.u_error) /* All operations succeeded. Update sempid for accessed semaphores. */ 
return; for(i = 0, op = semtmp.semops;it+t < uap->nsops; 

} (sp->sem_base + (opt+)->sem_num)->sempid = u.u_procp->p_pid); 

again = 1; sp->sem_otime = time; 

u.u_rvall = 0; 

for(i = 0, op = semtmp.semops;i < uap->nsops;i++, optt+) { } : 
semp = sp->sem_base + op->sem_num; 
if(op->sem_op > 0) { #ifdef pdpli 

if(op->sem_op + (long)semp->semval > seminfo.semvmx | | 1 
(op->sem_flg & SEM UNDO && Rt sempimove - PDP 11 pimove interface for possibly large copies. 
semaoe (op->sem_op, uap->semid, (short)op->sem_num))) { af 
if(u.u_error == 0) 
u.u_error = ERANGE; sempimove (base, count, mode) 
if(i) paddr_t base; /* base address */ 
semundo(semtmp.semops, i, uap->semid, sp); register unsigned count; /* byte count */ 
return; int mode; /* transfer mode */ 
} { 
semp->semval += op->sem_op; register unsigned tcount; /* current transfer count */ 


if (semp->semncnt) { 
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} 


while(u.u_error == 0 && count) { 
tcount = count > 8064 ? 8064 : count; 
pimove (base, tcount, mode); 
base += tcount; 
count -= tcount; 


#endif 
i* 
ae semsys - System entry point for semctl, semget, and semop system calls. 
xf 
semsys ({) 
{ 
int semctl{}, 
semget (), 
semop({); 
static int (*calls[])() = {semctl, semget, semop}; 
register struct a { 
vint id; /* function code id */ 
} kuap = (struct a *)u.u_ap; 
Af(uap->id > 2) { 
u.u_error = EINVAL; 
return; 
} 
u.u_ap = &u.u_arg[1]; 
(*calls(uap->id])(); 
} 
{* 
ak semundo - Undo work done up to finding an operation that can*t be done. 
xf 
semundo(op, n, id, sp) 
register struct sembuf *op; /* first operation that was done ptr */ 
register int n, /* # of operations that were done */ 
id; /* semaphore id */ 
register struct semid_ds *sp; /* semaphore data structure ptr */ 
{ 
register struct sem *semp; /* semaphore ptr */ 


} 


/* 
ak 
ak 
kk 
uk 
ak 


*/ 


for(op += n - l;n--;op--) { 
if(op->sem_op == 0) 
continue; 
semp = sp->sem_base + op->sem_num; 
semp->semval -= op->sem_op; 
if(op->sem_flg & SEM_UNDO) 
(void) semaoe(-op->sem_op, id, {short)op->sem_num); 


semunrm - Undo entry remover. 


This routine is called to clear all undo entries for a set of semaphores 


that are being removed from the system or are being reset by SETVAL or 
SETVALS commands to semctl. 


semunrm(id, low, high) 


int 
ushort 


id; /* semid */ 
low, /* lowest semaphore being changed */ 
high; /* highest semaphore being changed */ 


register struct sem_undo *pp, /* ptr to predecessor to p */ 
*p; /* ptr to current entry */ 
register struct undo *up; /* ptr to undo entry */ 
register int L, /* loop control */ 
3; /* loop control */ 
pp = NULL; 


p = semunp; 
while(p != NULL) { 


/* Search through current structure for matching entries. */ 
for(up = p->un_ent, i = G;i < p->un_cnt;) { 
if(id < up->un_id) 
break; 
if(id > up->un_id || low > up->un_num) { 
upt+; 
itt; 
continue; 
} 
ifthigh < up->un_num) 
break; 
for(i = ist+i < p->un_cnt; 
p->un_ent{j - 1] = p->un_ent[j]); 
p->un_cnt--; 
} 


/* Reset pointers for next round. */ 
Lf (p->un_cnt == 0) 


/* Remove from linked list. */ 
if (pp — NULL) { 
semunp = p->un_np; 
p->un_np = NULL; 
p = semunp; 
} else { 
Pp->un_np = p->un_np; 
p->un_np = NULL; 
P = pp->un_np: 


else { 
PP = Pp 
Pp = p->un_np; 
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{({(int)uap->addr [= 0) && 


#include "sys/types.h® (({int)uap->addr + ctob(stoc(ctos (btoc(sp->shm_segsz))})) > 
#include "sys/param.h" ctob(stoc(ctos (btoc(v.v_uend)-up->u_ssize))}))) { 
f#include “sys/config.h" up->u_error = EINVAL; 
#include “sys/mmu.h" return; 
finclude “sys/sysmacros.h" } 
#include “sys/dir.h" 
#include “sys/errno.h" /* 
#include “sys/signal.h" * An address of 0 places the shared memory into a first fit location 
#include “sys/user.h" */ 
#include “sys/seg.h" if (uap->addr == NULL) { 
#include “sys/ipc.h" if (shmm > 0) { /* there was a previous attach */ 
#include “"sys/shm.nh" /* try the virtual address just beyond the 
#include “sys/proc.h" last one attached */ 
#include “sys/context.h" segbeg = (short) (p - proc} * (short) shminfo.shmseg + 
#include “sys/systm.h" shmn - 1; /* index of last shmem */ 
#include “sys/map.h" segbeg = shm pte[segbeg].shm_segbeg + 
#include “sys/var.h" ctob(stoc(ctos (btoc( 
#include “sys/scat.h" shm_shmem[segbeg]->shm_segsz)))); 
} else { /* this is the lst attach */ 
extern struct shmid ds shmem[]; /* shared memory headers */ segbeg = v.v_ustart + 
extern struct shmid ds *shm shmem[]; /* ptrs to attached segments */ ctob(stoc(ctos(up->u_tsize}))) + 
extern struct shmpt_ds shm_pte[]; /* segment attach points */ ctob(stoc(ctos (up->u_dsize) ))}+ 
extern struct shminfo shminfo; /* shared memory info structure */ ctob(stoc(ctos (shminfo.shmbrk))); 
int shmtot; /* total shared memory currently used */ } 
/* need to avoid any phys areas */ 
extern time_t time; /* system idea of date */ for (ph = &u.u_phys[0]; ph < &u.u_phys[v.v_phys]; phtt+) { 
if (ph->u_phsize) { 
struct ipc_perm *xipeget(): as = segbeg; 
struct shmid_ds *shmconv (); bs = segbeg + 
ctob(stoc(ctos (btoc(sp~>shm_segsz)))); 
{* ap = ph->u_phladdr; 
ball shmat - Shmat system call. bp = ph->u_phladdr + 
*f ctob{stoc(ctos(ph->u_phsize))); 
if ((as < ap) && (bs <= ap)) 
shmat () /* shmat all before phys - ck */ 
{ continue; 
register struct a { if ((as >= bp) && (bs > bp)) 
int shmid; /* shmat all after phys - ok */ 
char *xaddr; continue; 
int flag; /* allocation would conflict with phys */ 
} *uap = (struct a *)u.u_ap; /* choose another location... where? */ 
register struct shmid ds *sp; /* shared memory header ptr */ up->u_error = ENOMEM; 
register struct user *up; return; 
register struct proc *p; } 
register int shmn; } 
register int segbeg; } else { 
register struct phys *ph; f* 
int i, aa, ix; * Check to make sure segment does not overlay any valid segments 
int as,bs,ap, bp; *] 
segbeg = vtoseg({ (int) uap->addr) ; 
up = &u; for (i = btoc(sp->shm_segsz); 1 > 0; i -= aa) { 


aa = min(NPAGEPERSEG, (unsigned) i); 
if {(getmmu((short *) (segbeg|ACCLIM)) &PROTMASK) !=ASINVAL) { 


Pp = up->u_procp; 
if (({sp = shmconv(uap->shmid, SHM_DEST)) == NULL) 


return; up->u_error = ENOMEM; 
if (ipcaccess(&sp->shm_perm, SHM_R)) return; 
return; } 
if ((uap->flag & SHM RDONLY) == 0) segbeg t= (1<<SEGSHIFT); 
if (ipcaccess(&sp->shm_perm, SHM_W)) } 
return; segbeg = (int) uap->addr; 
for(shmn = 0;shmn < shminfo.shmseg;shmn+t+) } 
if (shm_shmem[(p - proc) *shminfo.shmsegt+shmn] == NULL) if (chksize(up->u_tsize, up->u_dsize, up->u_ssize)) { 
break; up->u_error = ENOMEM; 
if (shmn >= shminfo.shmseg) { return; 
up->u_error = EMFILE; } 
return; i = (short) (p - proc) * (short)shminfo.shmseg + shmn; 
} shm_shmem[i] = sp; 


if (uap->flag & SHM RND) 
uap->addr = (char *) ((uint)uap->addz & ~(SHMLBA - 1)); 


shm_pte[i].shm_segbeg = segbeg; 
shm_pte[i].shm_sflg = ((uap->flag & SHM_RDONLY) ? RO : RW); 
shm_pte[i].shm_seg = 0; 


{* {* cxrelse(p->p_context); */ 
x Check for page alignment and containment within data space sureg(); 
«/ f* 

if ({int)uap->addr & (SHMLBA - 1) |! * Clear segment on first attach 


sp->shm_segsz <= 0 || = 


((int)uap->addr & 0x80000000) || if (sp->shm_perm,mode & SHM CLEAR) { 
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i = btoc(sp->shm_segsz); 


#ifdef NONSCATLOAD 


} 
fr 


ak 
ee 


*/ 


ix = btoc{segbeg); 
while (--i >= 0) 
clearseg(ixtt+); 


ix = sp->shm_scat; 
while (--i >= 0) { 

clearseg (ixtoc(ix)); 

ix = scatmap{ix].sc_index; 
} 


sp~->shm_ perm.mode ¢= ~SHM CLEAR; 


if (p->p_smbeg == 0 || p->p_smbeg > segbeg) 
p->p_smbeg = segbeg; 

sp->shm_nattch++; 

sp->shm_cnattch++; 

up->u_rvall = segbeg; 

sp->shm_atime = time; 

sp->shm_lpid = p->p_pid; 


shmceny - Convert user supplied shmid into a ptr to the associated 
shared memory header. 


struct shmid ds * 
shmconv(s, flg)} 


int 
int 
{ 


} 
fe 


aK 


af 


shmct1 (} 


{ 


S; #* shmid */ 
flg; /* error if matching bits are set in mode */ 
register struct shmid_ds *sp; /* ptr to associated header */ 


sp = éshmem[(short)(s % shminfo.shmmni)]; 

if (i {sp->shm_perm.mode & IPC_ALLOC) || sp->shm_perm.mode & flg || 
s / shminfo.shmmni != sp->shm_perm.seq) { 
u.u_error = EINVAL; 
return (NULL); 

} 

return (sp); 


shmct1 - Shmetl system call. 


register struct a { 

int shmid, 

cmd; 

struct shmid_ds *arg; 
} *uap = (struct a *)u.u_ap; 
register struct shmid ds *sp; /* shared memory header ptr */ 
struct shmid_ds ds; /* hold area for IPC_SET */ 
register struct user *up; 


if ((sp = shmconv(uap->shmid, (uap->cmd == IPC_STAT) ? 0 : SHM DEST)) == 
NULL) 
return; 

up = &u; 

up->u_rvall = 0; 

switch(uap->cmd) { 


/* Remove shared memory identifier. */ 
case IPC_RMID: 
if (up->u_uid != sp->shm_perm.uid && up->u_uid != sp->shm_perm.cuid 
&& !suser()) 
return; 
sp->shm_ctime = tine; 
sp->shm_perm.mode |= SHM DEST; 


/* Change key to private so old key can be reused without 
waiting for last detach. Only allowed accesses to 


} 
ft 
ek 


x] 


shmdt () 
{ 


{* 


this segment now are shmdt() and shmct1(IPC_STAT). 
All others will give bad shmid. */ 
sp->shm_perm.key = IPC_PRIVATE; 


/* Adjust counts to counter shmfree decrements. */ 
sp->shm_naticht++; 

sp->shm_cnattchtt+; 

shmfree (sp); 

break; 


/* Set ownership and permissions. */ 
case IPC SET: 
YE (up->u_uid != sp->shm_perm.uid && up->u_uid [= sp->shm_perm.cuid 
&& !suser()) 
return; 
if (copyin((caddr_t)uap->arg, (caddr_t)é&ds, sizeof(ds))) { 
up->u_error = EFAULT; 
return; 
} 
sp->shm_perm.uid = ds.shm_perm.uid; 
sp->shm_perm.gid = ds.shm_perm.gid; 
sp->shm_perm.mode = (ds.shm_ perm.mode & 0777) | 
(sp->shm_perm.mode & ~0777); 
sp->shm_ctime = time; 
break; 


*¢* Get shared memory data structure. */ 
case IPC_STAT: 
if (ipcaccess{&sp->shm_ perm, SHM R)) 
return; 
if (copyout((caddr_t)sp, (caddr_t)uap->arg, sizeof(*sp))} 
up->u_error = EFAULT; 
break; 


default: 
up->u_error = EINVAL; 
break; 


shmdt - Shmdt system call. 


struct a { 


char *xaddr; 
} *uap = (struct a *)u.u_ap; 
register struct shmid ds *sp, **spp; 
int segbeg; 
register struct shmpt ds *pt: 


register i, j; 
register struct proc *p; 


* Check for page alignment 


xf 


/* 


if ((int)uap->addr & (ctob{1) - 1) |] 
(segbeg = (int)uap->addr) == 0) { 
u.u_error = EINVAL; 
return; 


} 


* find segment 


x] 


spp = 4shm_shmem[i-=((p=u.u_procp) -proc) *shminfo. shmseg}; 
pt = &shm_pte[i]; 
for (i=0; i < shminfo.shmseg; i++, ptt+, sppt++) { 
if ((sp = *spp) != NULL && pt->shm_segbeg == segbeg) 
break; 
sp = NULL; 
} 
if (sp == NULL) { 
u.u_error = BINVAL: 
return; 
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} 
shmfree (sp); 
sp->shm_ dtime = time; 
sp->shm_lpid = p->p_pid; 
*spp = NULL; 
pt->shm_segbeg = 0; 
p->p_smbeg = 0; 
pt = &shm_ pte[{p-proc) *shminfo.shmseg] ; 
for (j=0; j<shminfo.shmseg; jit, pttt) { 
if (i = pt->shm_segbeg) { 
if (p->p_smbeg) { 
if (p->p_smbeg > 1} 
p->p_smbeg = i; 
} else { 
p->p_smbeg = i; 
} 
} 
} 
it cxrelse(p->p_ context); */ 

sureg({); 
u.u_rvali = 0; 


} 


f* 
ad shmexec - Called by setregs(os/sysl.c) to handle shared memory exec 
ae processing. 
*/ 
shmexec () 
{ 
register struct shmid ds **spp; /* ptr to ptr to header */ 
register struct shmpt_ds *sppp; /* ptr to pte data */ 
register int i; /* loop control */ 
if (u.u_procp->p_smbeg == 0) 
return; 
/* Detach any attached segments. */ 
sppp = éshm pte[i = (u.u_procp - proc)*shminfo.shmseg] ; 
u.u_procp->p_smbeg = 0; 
spp = &shm_shmem[i]; 
for(i = 0; i < shminfo.shmseg; it+,spptt,sppptt+) { 
if (*spp == NULL) 
continue; 
shmfree(*spp) ; 
*spp = NULL; 
sppp->shm_segbeg = 0; 
} 
} 
{* 
Re shmexit ~- Called by exit(os/sysl.c) to clean up on process exit. 
«f 
shmexit () 
{ 
/* Same processing as for exec. */ 
shmexec (); 
} 
{* 
x shmfork - Called by newproc(os/slp.c) to handle shared memory fork 
_- processing. 
*/ 
shmfork{cp, pp) 
struct proc *cp, /* ptr to child proc table entry */ 
*pp; /* ptr to parent proc table entry */ 
{ 
register struct shmid_ds **tcpp, /* ptr to child shmem ptrs */ 
**ppp; /* ptr to parent shmem ptrs */ 
register struct shmpt_ds *cppp, 
*Pppp: 
register int 1; /* loop control */ 


if (pp->p_smbeg == 0) 
return; 


/* Copy ptrs and update counts on any attached segments. */ 
cpp = éshm_shmem[ (cp - proc) *shminfo.shmseg]; 
ppp = éshm_ shmem[(pp - proc) *shminfo. shmseg];: 
cppp = &shm_pte[{cp - proc) *shminfo.shmseg]; 
pppp = éshm_pte[{pp - proc) *shminfo.shmseg]; 
cp->p_smbeg = pp->p_smbeg; 
for(i = 0;i < shminfo.shmseg; i++, cppt+, pppt+, cpppt+, ppppt+) { 
if (*cpp = *ppp) { 
(*cpp)->shm_nattch+t+; 
{*cpp) ->shm_cnattcht+; 
cppp->shm_segbeg = pppp->shm_segbeq; 
cppp->shm_ sflg = pppp->shm_sflg; 
cppp->shm_seg = 0; 


} 


/* 
ae shmfree - Decrement counts. Free segment and page tables if 
ae indicated. 

xf 


shmfree (sp) 
register struct shmid ds *sp; /* shared memory header ptr */ 


{ 
register int size; 


if (sp == NULL) 
return; 
sp->shm_nattch--; 
if (--(sp->shm_cnattch) == 0 && sp->shm_perm.mode & SHM DEST) { 
size = btoc{sp->shm_segsz) ; 
#ifdef NONSCATLOAD 
mfree({coremap, size, (int)sp->shm_scat); 


#else 
memfree ({ (int) sp->shm_scat); 
fendif 
/* adjust maxmem for amount freed */ 
maxmem t= size; 
shmtot -= size; 
sp->shm_ perm.mode = 0; 
if (((int) (++(sp->shm_perm.seq)*shminfo.shmmni + (sp - shmem))) < 0) 
sp->shm_perm.seq = 0; 
} 
} 
f* 
ax shmget - Shmget system call. 
x} 
shmget {) 


{ 


register struct a { 


key t key; 
int size, 
shmflg; 

} *uap = (struct a *)u.u_ap; 
register struct shmid_ds *sp; /* shared memory header ptr */ 
int Ss; /* ipeget status */ 
register int size; 
/*if (uap->size == 0) /* Bug #675 ... Paul */ 
ft return; */ 


if ({sp = (struct shmid_ds *)ipcget (uap->key, uap->shmflg, 
(struct ipc_perm *)shmem, shminfo.shmmni, sizeof(*sp), &s)) == NULL) 
return; 
if (s) { 
/* This is a new shared memory segment. Allocate memory and 
finish initialization. */ 
if (uap->size < shminfo.shmmin || uap->size > shminfo.shmmax) { 
u.u_error = EINVAL; 
sp->shm_perm.mode = 0; 
return: 
} 
size = btoc(uap->size); 
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if (shmtot + size > shminfo.shmall) { xf 
u.u_error = ENOMEM; if (p->p_smbeg == 0) 
sp->shm perm.mode = 4; return; 
return; i* 
} * clear unused pte’s 
sp->shm_segsz = uap->size; ef 
#ifdef NONSCATLOAD seg = pObr + ub->u_tsize + ub->u_dsize; 
if ((sp->shm_scat = malloc(coremap, size)) == 0) { for (i = ub->u_tsize + ub->u_dsize; i < pOlr; i++) 
u.u_error = ENOMEM; *segtt = 0; 
sp->shm_perm.mode = 0; f* 
return; * move in the shared memory segments 
} x} 
telse sp = &shm _shmem[i = (p - proc)*shminfo.shmseg]; 
if ((sp->shm_scat = memalloc(size)) == 0) { pt = éshm_pte[i]; 
u.u_error = ENOMEM; for (i = 0; i < shminfo.shmseg;: i++, sptt, pt++) { 
sp->shm_perm.mode = 0; if (shm = pt->shm_segbeg) { 
return; seg = pO0br + shm; 
} pte = (int *) ((*sp)->shm_ptbl); 
#endif for {j = 0; j < btoc({*sp)->shm_segsz); jtt+) 
/* adjust maxmem for the segment */ *segt+ = *ptett+ | PG_V | pt->shm_sflg; 
maxmem ~= size; } 
shmtot += size; } 
} 
sp->shm_perm.mode |= SHM CLEAR; #endif 
sp->shm_nattch = 0; 
sp->shm_cnattch = 0; #ifdef notdef 
sp->shm_atime = 0; dunppte (pobr, pdlr,pllr, plbr) 
sp->shm_dtime = 0; int *p0br, pOlr, pllr, *plbr; 
sp->shm_ctime = time; { 
sp->shm_lpid = Q; register i; 
sp->shm_cpid = u.u_procp->p pid; 
} else printf ("tsize td, dsize %d\n", u.u_tsize, u.u_dsize); 
lf (uap->size && uap->size > sp->shm_segsz) { printf("pObr $x plbr $d\nplbr %x pllir %d\n\n",p0br, p0lr,plbr,pllr); 
u,u_error = EINVAL; for (i=0; i<pOlr; i++) { 
return; if ((1%8) = 0) 
} printf("\n"); 
u.u_rvall = sp->shm_perm.seq * shminfo.shmmni + {sp - shmem); printf("tx “,*pGbri+); 
} } 
printf ("\n\n\n") ; 
i* } 
-* shmsys - System entry point for shmat, shmctl, shmdt, and shmget tendift 
ae system calls. 
xf 
shmsys () 
{ 
register struct a { 
uint id; 
} *uap = (struct a *)u.u_ap; 
int shmat{), 
shmctl(}, 
shmdt (), 
shmget (); 
static int {*calls(])() = {shmat, shmctl, shmdt, shmget}; 


if (uap->id > 3) { 
u.u_error = EINVAL; 
return; 
} 
u.u_ap = éu.u_arg[1]; 
(*calls(uap->id]) (): 
} 


#ifdef notdef 

shmreset(p, ub, pQbr, p@lr) 

struct proc *p; 

struct user *ub; 

int *pObr, p0lr; 

{ 
register struct shmid_ds **sp; 
register struct shmpt_ds *pt; 
register i,j; 
register int *seg, shm, *pte; 


j/* 


* do only if there is shared memory attached 
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/* @(#)sig.c 1.3 */ 
#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/mmu.h" 
#include "sys/types.h*" 
f#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
finclude “sys/proc.h"™ 


#include “sys/inode.h" 


“e 


if (p->p_stat == SSLEEP && p->p_pri > PZERO) { 
if (p->p_pri > PUSER) 
p->p_pri = PUSER; 
setrun(p); 


#include 
#include 
#include 
#include 


“sys/file.h" 
“sys/reg.h" 
“sys/text .nY 
“sys/seg.h" 


#include "sys/var.h" 
#include “sys/psi.h" 
#include “sys/scat.nh" 


f* 

* Priority for tracing 
xf 

#define IPCPRI PZERO 


/* 

Tracing variables. 

Used to pass trace command from 
parent to child being traced. 
This data base cannot be 

shared and is locked 

per user. 


ee Oe 


*f 

struct ipctrace 

{ 
int ip data; 
int ip_lock; 
int ip_req; 
int *ip addr; 

} ipe; 


Send the specified signal to 
all processes with ‘pgrp’ as 
process group. 
Called by tty.c for quits and 
x interrupts. 
*f 
signal(pgrp, sig) 
register pgrp; 
{ 


+ + e F 


register struct proc *p; 


if (pgrp == 0) 
return; 


for(p = &proc{1]: p < (struct proc *)v.ve_proc; ptt) 


if (p->p_pgrp == pgrp) 
psignalip, sig); 
} 


[* 
* Send the specified signal to 
* the specified process. 

*/ 

psignalip, sig) 

register struct proc *p; 

register sig; 

{ 


sig--; 


{* 
* Returns true if the current 
* process has a signal to process. 
* This is asked at least once 
* each time a process enters the 
* system. 
* A signal does not do anything 
* directly to a process; it sets 
* a flag that asks the process to 
* do something to itself. 
xf 
issig() 
{ 
register n; 
register struct proc *p, *q; 
p = u.u_procp; 
while(p->p_sig) { 
n = fsig(p); 
if (n = SIGCLD) { 
if (u.u_signal[SIGCLD-1]«01) { 
for {q = &proc{1]; 
q < (struct proc *)v.ve_ proc; qt+) 
if (p->p_pid — q->p_ppid && 
q->p_stat == SZOMB) 
freeproc(q, 0); 
} else if (u.u_signal[SIGCLD-1}) 
return (n); 
} else if (n == SIGPWR) { 
if (u.u_signal[SIGPWR-1] && (u.u_signal[SIGPWR-1]&1)==0) 
return(n); 
} else if {(u.u_signal[n-1]&1) = 0 || (p->p_flagéSTRC)) 
return (n); 
p->p_sig &= ~{(1L<<{n-1)}; 
} 
return (9); 
} 
f* 


* Enter the tracing STOP state. 

* In this state, the parent is 

* informed and the process is able to 
* receive commands from the parent. 


ey. 
stop() 
{ 
register struct proc *pp, *cp; 
loop: 
cp = u.u_procp; 
1f (cp->p_ppid |= 1) 
for (pp = &proc[0); pp < (struct proc *)¥v.ve_proc; pptt) 
if (pp->p_pid == cp->p_ppid) { 
wakeup ((caddr_t)pp); 
cp->p_stat = SSTOP; 
swtch(); 
if ((cp->p_flag&STRC)==0 |] procxmt()) 
return; 
goto loop; 
} 
exit (fsig(u.u_procp) ); 
/* 


if (sig < 0 {| sig >= NSIG) 
return; 


if (((p->p_sigign >> sig) & 1) && sig {= (SIGCLD - 1)) 


return; 


p-op_sig i= 1L<<sig; 


* Perform the action specified by 
* the current signal. 

* The usual sequence is: 

* if (issig()) 

* psig): 
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xf 
psig() 
{ 
register n, p; 
register struct proc *rp; 
#ifdef mcé88s1 /* MC68881 floating-point coprocessor */ 
extern short fp881; /* is there an MC68881? */ 


#endif mc68s81 


rp = u.u_procp; 
#ifdef FLOAT /* sky floating point board */ 
if (a.u_fpinuse £4 u.u_fpsaved==4) [ 
savip(); 
u.u_fpsaved = 1; 
} 
#endif 
#ifdef mc68881 /* MC68881 floating-point coprocessor */ 
if (fp8s1) 
fpsave(); 
fendif mc6éss8l 
if (rp->p_flagéSTRc) 


stop(); 
n= fsig(rp}; 
if (n==0) 

return; 


rp->p_sig &= ~(1L<<(n-1)); 
if ((peu.u_signal[n-1]) f= 0) { 
if (p € 1) 
return; 
u.u_error = 0; 
if {nm != SIGILL && n != SIGTRAP) 
u.u_signal[n-1] = 4; 
sendsig({caddr_t)p, n); 
return; 
} 
switchin) { 


case SIGQUIT: 
case SIGILL: 
case SIGTRAP: 
case SIGIOT: 
case SIGEMT: 
case SIGFPE: 
case SIGBUS: 
case SIGSEGV: 
case SIGSYS: 
if (core{)) 
n t= 6200; 
} 
exitin); 
} 


/* 
* find the signal in bit-position 
* representation in p sig. 
xf 

fsig(p) 

struct proc *p; 

{ 

register short i; 
register long n; 


n= p->p_sig; 
i = NSIG - 1; 


do { 
if (n & 1L) 
return(NSIG - i); 
n >>= 1; 
} while (--i != -1); 
return (0); 


} 


/* 
* Create a core image on the file "core" 
«x 


* It writes USIZE (v.v_usize) block of the 


* user.h area followed by the entire 
* data+stack segments. 


x] 
core ({) 
{ 
register struct inode *ip; 
register struct user *up; 
register s; 
extern schar(); 
up = &u; 
Af (up->u_uid [= up->u_ruid) 
return (0); 
up->u_error = 0; 
up->u_dirp = “core"; 
ip = namei(schar, 1); 
if (ip == NULL) { 
if {up->u_error) 
return (6); 
ip = maknode (0666); 
if (ip==NULL) 
return (0); 
} 
1f (!access(ip, IWRITE) && (ip->i_mode&IFMT) == IFREG) { 
itrunc(ip); 
up->u_offset = Q; 
up->u_base = (caddr t)up; 
up->u_count = ctob(v.v_usize); 
up->u_segflg = 1; 
up->u_limit = (daddr_t)ctod (MAXMEM) ; 
up->u_fmode = FWRITE; 
/* make register pointer relative for adb */ 
up->u_ar@ = {int *) ({int)up->u_arO - (int)up); 
up->u_usrtop = btoc(v.v_uend) ; 
writei (ip); 
up->u_arO = {int *) ((int)up->u_arO + (int)up); 
S = Up->u_procp->p_size - v.v_usize; 
(void) estabur{(unsigned)6, (unsigned)s, (unsigned)0, 0, RO); 
up->u_base = (caddr_t)v.v_ustart; 
up->u_count = ctob(s)}; 
up->u_segfilg = 0; 
writei (ip); 
} else 
up->u_error = EACCES; 
iput (ip); 
return (up->u_error==0); 
} 
f* 


* grow the stack to include the SP 
* true return if successful. 
xf 
#ifdef NONSCATLOAD 
grow (sp) 
unsigned sp; 
{ 
register struct user *up; 
register struct proc *p; 
register si, i, al; 


up = éu; 
if ((v.v_uend-sp) < ctob(up->u_ssize) ) 
return (0); 
si = btoct(v.v_uend-sp) ~ up->u_ssize + SINCR; 
if (si <= 0) 
return (0); 
if (estabur(up->u_tsize, up->u_dsize, up->u_ssizetsi, 0, RO)) 
return (0); 
Pp = up->u_procp; 
expand ( (int) (p->p_sizetsi)); 
al = p->p_addr + p->p_ size; 
for {i=up->u_ssize; i; i--) { 
al--; 
copyseg{al-si, al); 
} 
for(i=si; i; i--) 
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clearseg(--al); 

up->u_ssize += si; 
return(1); 

} 

#else 

grovw{sp} 

unsigned sp; 

{ 
register struct user *up; 
register struct proc *p; 
register si, i, al; 
register struct scatter *s; 
register a2, n; 
short t; 


up = &u; 
if ((v.v_uend-sp) < ctob(up->u_ssize)) 
return (0); 
si = btoct(v.v_uend-sp) - up->u_ssize + SINCR; 
if (si <= 0) 
return(0); 


1f (chksize(up->u_tsize, up->u_dsize, up->u_ssizetsi)) 


return (0); 
p = up->u_procp; 
expand ( (int) (p->p_sizetsi}); 
fe 
* locate last click of old data size 
xf 
S$ = scatmap; 
al = p->p_ scat; 
n = v.v_usize + up->u_dsize; 
for (i=1; i<n; i++) 
al = s[al].sc_index; 
/* 
* locate last click of old stack 
xf 
a2 = s{al].sc_index; 
n = up->u_ssize; 
if (in = 9) 


printf ("grow:ssize not expected to be zero\n"); 


for (i=l; i<n; i++) 
a2 = s[a2].sc_index; 
f* 


* chain new clicks into stack space following data space 


xf 

t = sf{al].sc_index; 

s({al].sc_index = s[a2].sc_index; 

n= si; 

for (i=0; i<n; i++) 
clearseg{ixtoc(al = s[al].sc_index)); 

if (s[al].sc_index != SCATEND) 
printf("grow failure\n"); 

s({al].sc_index = t; 

s[{a2].sc_index = SCATEND; 

p->p_flag &= ~SCONTIG; 

up->u_ssize += si; 


(void) estabur(up->u_tsize, up->u_dsize, up->u_ssize, 0, 


return(1); 
} 
fendif 


/* 
* sys-trace system call. 
xf 
ptrace() 
{ 
register struct ipctrace *ipcp; 
register struct user *up; 
register struct proc *p; 
register struct a { 


int req; 
int pid; 
int *addr; 
int data; 


} *uap; 


RO); 


xf 


up = &u; 

uap = (struct a *)up->u_ap; 

if (uap->req <= 0) { 
up->u_procp~>p flag |= STRC; 
return; 


1 


I 
for (p=proc; p < (struct proc *)v.ve_proc; ptt) 
if (p->p_stat==SSTOP 
&& p->p pid==uap->pid 
&& p->p_ppid—up->u_procp~->p_pid) 
goto found; 
up->u_error = ESRCH; 
return; 


found: 


ipep = é&ipe; 
while (ipcp->ip_lock) 
(void) sleep((caddr_t)ipcp, IPCPRI); 
ipep->ip lock = p->p_pid; 
ipep->ip data = uap->data; 
ipep->ip addr = uap->addr; 
ipcp->ip_req = uap->req; 
p->p_flag &= ~SWTED; 
setrun(p); 
while (ipcp->ip_req > 0) 
(void) sleep({caddr_t)ipcep, IPCPRI); 
up->u_rvall = ipcp->ip_ data; 
if (ipep->ip_req < 0) 
up->u_error = EIO; 
ipep->ip_ lock = 0; 
wakeup( (caddr_t)ipcp); 


Code that the child process 
executes to implement the command 
of the parent process in tracing. 


procxmt () 


{ 


register struct ipctrace *ipcp; 
register struct user *up; 
register int i; 

register *p; 

register struct text *xp; 


up = &u; 

ipep = &ipc; 

if (ipep->ip_lock != up->u_procp->p_pid) 
return (9); 

i = ipep->ip_req: 

ipep->ip_req = 6; 

wakeup({(caddr_t)ipcp); 

switch (i) { 


/* read user I */ 
case i: 
ipep->ip data = fuiword((caddr_t)ipep->ip_addr); 
break; 


/* read user D */ 

case 2: 
ipep->ip_data = fuword((caddr_t)ipcp->ip addr); 
break; 


/* read u */ 
case 3: 
i = (int)ipcp->ip_addr; 
if (i<0 ||] i >= ctob(v.v_usize)) 
goto error; 


ipep->ip data = *((int *)((char *)up + (i & ~1))); 


break; 


/* write user I */ 
/* Must set up to allow writing */ 
case 4: 
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i* 
* If text, must assure exclusive use 
xf 
if (xp = up->u_procp->p textp) { 
Lf (xp->x_count!=1 || xp->x_iptr->i_mode&ISVTX) 
goto error; 
xp->x_iptr->i_flag &= ~ITEXT; 
} 
(void) estabur(up->u_tsize, up->u_dsize, up->u_ssize, 0, 
i = suiword((caddr_t)ipep->ip addr, 0); 
(void) suiword((caddr_t)ipcp->ip_addr, ipep->ip_data); 
ivold) estabur(up->u_tsize, up->u_dsize, up->u_ssize, 0, 
if (i<d) 
goto error; 
if (xp) 
xp->x_flag |= XWRIT; 
break; 


/* write user D */ 
case 5: 
if (suword((caddr_t)ipep->ip addr, 0) < 0) 
goto error; 
(void) suword{(caddr_t)ipep->ip_addr, ipep->ip data); 
break; 


/* write u */ 


case 6: 
i = (int)ipep->ip_addr; 
p= (int *)((char *)up + (i & ~1)); 
for (i=0; i<17; i++) 
if (p == éup->n_ar0[regloc{i]]) 
goto ok; 
if (p == éup->u_arO[RPS]) { 
/* assure user space and priority 0 */ 
ipep->ip_ data &= ~0x2700; 
goto ok; 
} 
goto error; 
ok: 


*p = ipcp->ip_data; 
break; 


/* set signal and continve */ 
/* one version causes a trace-trap */ 
case 9: 
up->u_arO[RPS] |= PS _T; 
case 7: 
if ({int)ipep->ip addr != 1) 
up->u_arO[PC] = (int)ipep->ip addr; 
up->u_procp->p_sig = OL; 
if (ipep->ip_data) 
psignal(up->u_procp, ipcp->ip data); 
return(1); 


/* force exit */ 
case 8: 
exit (fsig(up->u_procp)); 


/* read u registers */ 
case 10: 
if ({i = (int)ipep->ip addr) < 0 || i > 17) 
goto error; 
if (i — 17) 
ipcp->ip_ data = up->u_arO[regloc[17]] & OxFFFF; 
else 
ipcp->ip data = up->u_ar0[regloc[i]]; 
break; 


/* write u registers */ 
case ll: 


if ((i1 = (int)ipep->ip addr) < 0 || i > 17) 
goto error: 
Af (i == 17) { 


ipep->ip data &= ~0x2700; /* user only */ 


RW); 


RO}; 


up->u_arO[regloc[{17]] = 
(up->u_arO[regloc[{17]] & ~OxFFFF) 
(ipep->ip_data & OxFFFF); 


up->u_arO{regloc[i]] = ipcp->ip_ data; 


ipep->ip_ req = -l; 


} else 
break; 
default: 
error: 
} 
return{0); 


\ 
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/* 

* Copyright 1982 UniSoft Corporation 
* 

* Speaker Driver 

* Used to operate the lisa speaker. 
«f 

#include “sys/param.h" 
#include “sys/config.h" 
f#include “sys/types.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h®" 
#include “sys/user.h" 
f#include "sys/errno.h" 
#include “sys/file.h" 
#include "sys/tty.h® 
#include “sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “sys/reg.h" 
#include “sys/callo.h" 
#include "sys/ttold.h" 
finclude “setjmp.h" 
#include "“"sys/mou.h" 
#include “sys/cops.h" 
#include “sys/local.h" 
finclude “sys/speaker.h" 
finclude “sys/12.h" 


typedef unsigned long u_long; 
u_long sktrap; /* flag and slot to calculate spkr delay */ 


int sk_open; /* active flag */ 
#define SKPRI (PZERO+8) 
skopenidey, flag) 


dev_t dev; 
{ 


if {dev != 0) { /* minor device number is wrong */ 
u.u_error = ENXIO; 
return; 

} 

if (flag — 1) { /* open for reading 22 */ 
u.u_error = EINVAL; 
return; 


} 

if (sk_opent+tt+ > 0) { /* already opened */ 
u.u_error = EBUSY; 
return; 


} 


/* ARGSUSED */ 
skclose(dev, flag) 
{ 
if (sk_open <= 0) 
u.uU_error = EINVAL; 
else 
sk_open = 0; 
} 


/* ARGSUSED */ 
skwrite (dev) 
{ 
struct speaker spkr; 


while (u.u_count >= sizeof(spkr)) { 

if (copyin(u.u_base, (caddr_t)&spkr, sizeof(spkr))) { 
u.u_error = EFAULT; 
return; 

} 

u.u_base += sizeof(spkr); 

u.u_count -= sizeof (spkr); 

SPL2(); 


while (sktrap) 
(void) sleep{(caddr_t)&sktrap, SKPRI); 
COPSADDR->e_irb = {COPSADDR->e_irb & OxF1) | ((spkr.sk_volumes?) << 1); 
sksound({spkr.sk_wavlenéMAXWLEN, spkr.sk_ duration); 
SPLO(); 


7 


} 


/* Produce a sound on the speaker at wavelength w microseconds 
* for duration d clock ticks 
xf 
sksoundiw, d) 
register unsigned w, dq; 
{ 
extern int skquiet(); 


w &= MAXWLEN; /* max wavelength */ 
if (w < MINWLEN) 
w = MINWLEN; 
sktrap = d; /* call skquiet at now + d */ 
if (sktrap <= 6) sktrap = 1; /* in case < MILLIRATE */ 
timeout (skquiet, (caddr_t)0, (int)sktrap); 
sktone (w); 
} 


/* Start a tone at wavelength w microseconds. Sound is produced by rapidly 
* turning on and off the speaker. The 6522 cops chip has an output to the 
* speaker connected to a shift register. A built in timer controls the rate 
* at which the shift register bits are output to the speaker. 
af 
sktone (w) 
register unsigned w; 
{ 
register struct device_e *p = COPSADDR; 


register int cmd = 0x55; /* sk shift reg */ 
w= w>> 3; /* wavelength resolution is 8 microseconds */ 
if (w > OxFF) { 

cmd = 0x33; 


w=w>> 1; 

if (w > OxFF) { 
cmd = OxF; 
w= w >> 1; 


i 


p->e_acr {= 0x10; /* enable */ 
p->e_t2cl = w; /* set timer */ 
p->e_sr = cmd; /* set output pattern */ 
} 
skquiet ()} 
{ 
struct device_e *p = COPSADDR; 
p->e_acr &= 0xE3; 
sktrap = 4; 
wakeup((caddr_t)&sktrap); 
} 
beep (} 
{ 
int sp; 
if (sktrap) return; 
sp = spl2(); 


COPSADDR->e_irb = (COPSADDR->e_irb & OxF1) | (12_bvol << 1); 
sksound((unsigned)12 bpitch, (unsigned)12_btime) ; 
splx (sp); 

} 


#ifdef notdef 

/* 
* Produce a short click to implement keyboard clicking 
*/ 

eclick() 


{ 
register struct device_e *p = COPSADDR; 
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} 
#endif 
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int i = 20; 
int sp; 


if (sktrap) return; 
sp = spl2()}; 
p->e_acr |= x10: 
p->e_t2cl = 0x10; 
p->e_sr = 0x55; 
while (--i {= -1) ; 
p->e_acr &= 0xE3; 
splx (sp); 
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/* @(#)slp.c 1.8 */ 
#include “sys/param.h" 
#include “sys/config.h" 
f#include “sys/mu.h" 
#include “sys/types.h" 
f#include “sys/sysmacros.h" 
#include “sys/dir.h" 
#include "sys/signal.h" 
#include “sys/user.h" 
#include “sys/proc.h" 
#include “sys/context.h®" 
#include "sys/text.h" 
#include “"sys/systm.h" 
#include “sys/sysinfo.h" 
finclude “sys/map.h" 
#include “sys/file.h" 
#include "“sys/inode.h" 
#include "sys/buf.h" 
#include “sys/var.h" 
#include "sys/ipe.h" 
#include "sys/shm.h" 
#include “sys/errno.h* 
#include “sys/scat.h" 


typedef int mem_t; 

#define NHSQUE 64 /* must be power of 2 */ 

#define sqhash(X) (éhsque[({int) (X) >> 3) & (NHSQUE~1)]) 
struct proc *hsque [NHSQUE]; 

char runin, runout, runrun, curpri; 


struct proc *curproc, *runq; 


f* 
* sleep according to a cpu adjusted priority 
*/ 
asleep(chan, pri) 
caddr_t chan; 
{ 
return(sleep(chan, pri + ({u.u_procp->p_cpusQxFF) >> 5))); 
} 


oo 
* 


Give up the processor till a wakeup occurs 

on chan, at which time the process 

enters the scheduling queue at priority pri. 
The most important effect of pri is that when 
pri<=PZERO a signal cannot disturb the sleep; 
if pri>P2ERO signals will be processed. 

Callers of this routine must be prepared for 
premature return, and check that the reason for 
sleeping has gone away. 


* + + b & e F He FH 


*f 

#define TZERO 10 

sleep(chan, disp} 

caddr_t chan; 

{ 
register struct proc *rp = u.u_procp; 
register struct proc **q = sghash(chan); 
register s; 


s = splhi(); 
if (panicstr) { 
SPLO(); 
splx(s); 
return (0); 
} 
rp->p_stat = SSLEEP; 
rp->p wehan = chan; 
rp->p_link = *q; 
*q = rp; 
if (rp->p_time > TZERO) 
rp->p_time = TZERO; 
if ((rp->p_pri = (disp&PMASK)) > PZERO) { 
if (rp->p_sig && issig()) { 
rp->p_wehan = 0; 
rp->p_ stat = SRUN; 


*q = rp->p_link; 
SPLO{); 
goto psig; 
} 
SPLO();: 
if (runin f= 0) { 
runin = 0: 
wakeup ({caddr_t)é&runin); 
} 


swtch {); 
if (rp->p_sig && issig()) 
goto psig: 
} else { 
SPLG(); 
swtch (); 
} 
spix{s); 


return(Q); 


/* 

* If priority was low (>PZERO) and there has been a signal, 
* if PCATCH is set, return 1, else 

* execute non-local goto to the qsav location. 

xf 


splx(s); 
if {(disp&PCATCH) 
return{1); 
#ifdef NONSCATLOAD 
resume (u.u_procp->p_ addr, u.u_qsav); 


#else 
resume (ixtoc(u.u_procp->p_ scat), u.u_qsav); 
#endif 
/* NOTREACHED */ 
} 
ft 
* Wake up all processes sleeping on chan. 
*/ 
wakeup (chan) 


register caddr_t chan; 

{ 
register struct proc *p; 
register struct proc **q; 
register s; 


s = splhi(); 
for (q = sqhash(chan); p = *q; } 
if (p->p_wchan==chan && p->p_stat==SSLEEP) { 
p->p_stat = SRUN; 
p->p_wchan = 0; 
/* take off sleep queue, put on run queue */ 
*q = p->p_link; 
p->p_link = runq; 
rung = p; 
if (!{p->p_flag&SLOAD)) { 
p->p_time = 0; 


/* defer setrun to avoid breaking link chain */ 


if (runout > 0) 
runout = -runout; 
} else if (p->p_pri < curpri) 
runrunt++; 
} else 
gq = &p->p_link; 
if (runout < 0) { 
runout = 0; 
setrun(&proc[0}); 
} 
splx(s); 
} 


setrq(p) 

register struct proc *p; 

{ 
register struct proc *q; 
register s; 
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s = splhi(): 
for(q=rung: qi=NULL? q=q->p_link) 
if (q =p) { 
printf ("proc on q\n"); 
goto out; 
} 
p->p_link = rung; 
rung = p; 


out: 


} 


splx(s); 


{* 


* Set the process running; 
* arrange for it to be swapped in if necessary. 
*/ 


setrun (p) 
register struct proc *p; 


{ 


register struct proc **q; 
register s; 


s = splhi(); 
if (p->p_stat == SSLEEP) { 
f* take off sleep queue */ 
for (q = sqhash(p->p_wchan); *q != p; q 
*q = p->p_ link; 
p->p_wchan = 96; 
} else if (p->p_stat — SRUN) { 
/* already on run queue - just return */ 
sSplx(s); 
return; 


i 


} 
/* put on run queue */ 
p->p_stat = SRUN; 
p->p_link = runq: 
rung = p; 
if (!(p->p_flagaSLOAD)) { 
p->p_time = 0; 
if (runout > 0) { 
runout = 0; 
setrun (&proc[0]); 
} 
} else if (p->p_pri < curpri) 


runrunt+; 
splx(s); 

} 
/* 

* The main loop of the scheduling (swapping) process. 

* The basic idea is: 

* see if anyone wants to be swapped in; 

* swap out processes until there is room; 

* swap him in; 

* repeat. 

* The runout flag is set whenever someone is swapped out. 
* Sched sleeps on it awaiting work. 

* 

* Sched sleeps on runin whenever it cannot find enough 

* memory (by swapping out or otherwise) to fit the 

* selected swapped process. It is awakened when the 

* memory situation changes and in any case once per second. 
*/ 
sched {} 


{ 


register struct proc *rp, *p; 
register outage, inage; 

int maxbad; 

int tmp; 


/* 

* find user to swap in; 

* of users ready, select one cut lengest 
*/ 


&(*q)->p_link) ; 


loop: 


SPL6(); 
outage = -20000; 


#ifdef NONSCATLOAD 


#else 


tendif 


for (rp = &proc(0]; rp < (struct proc *)v.ve_proc; rptt+) 
if (rp->p_stat==SRUN && (rp->p_flagéSLOAD) == 0 && 
rp->p_time > outage) { 
p= rps 
outage = rp->p_time; 
} 


for (rp = &proc[0]: rp < {struct proc *)v.ve_proc: rpt++) 
if ((rp->p_flags (SSWAPIT|SLOAD)) == (SSWAPIT{SLOAD)) { 
p= Ip; 
SPLO(): 
goto swapit; 
} else if (rp->p_stat==SRUN && (rp->p_flag&SLOAD) == 0 && 
rp->p_time > outage) { 
p= rp; 
outage = rp->p_ time; 
} 


/* 
* If there is no one there, wait. 
af 
if (outage == -206006) { 
runoutt++; 
(void) sleep({(caddr_t)érunout, PSWP); 
goto loop; 
} 
SPLO(); 


f* 
* See if there is memory for that process; 
® if so, swap it in. 
xf 


if (swapin(p)) 
goto loop; 


/* 

* none found. 

* look around for memory. 

* Select the largest of those sleeping 

* at bad priority: if none, select the oldest. 
xf 


SPL6()> 
p = NULL; 
maxbad = 0; 
inage = 0; 
for (rp = &proc(0]; rp < (struct proc *)v.ve proc; rptt) { 
if (rp->p_stat==SZOMB | | 
(rp->p_flagé (SSYS|SLOCK|SLOAD) ) !=SLOAD) 
continue; 

if (rp->p_textp && rp->p_textp->x_flagé&éXLOCK) 
continue; 

if (rp->p_stat==SSLEEP || rp->p_stat==SSTOP) { 
tmp = rp->p_pri - PZERO + rp->p time; 
if (maxbad < tmp) { 

p = rp; 
maxbad = tmp; 
} 

} else if (maxbad<=0 && rp->p_stat==SRUN) { 
tmp = rp->p_time + rp->p_nice - NZERO; 
if (tmp > inage) { 

p= rp; 
inage = tmp; 


} 
SPLO(); 
/* 
* Swap found user out if sleeping at bad pri, 
* or if he has spent at least 2 seconds in memory and 
* the swapped-out process has spent at least 2 seconds out. 
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* Otherwise wait a bit and try again. 


*f 
if (maxbad>0 || (outage>=2 && inage>=2)) { 
#ifndef NONSCATLOAD 
swapit: 
fendif 
p->p_flag &= ~SLOAD; 
xswap(p, 1, 0); 
goto loop; 
} 
SPL6(); 
runint+; 
(void) sleep((caddr_t)érunin, PSWP); 
goto loop; 
} 
{* 


* Swap a process in. 


xf 


#ifdef NONSCATLOAD 
swapin{p) 
register struct proc *p; 


{ 


i 
#telse 


register struct text *xp; 
register int a, x; 
int ta; 


if ((a = malloc(coremap, p->p_size)) == NULL) 
return (0); 
Lf (xp = p->p_textp) { 
xLock (xp); 
if (!amlink(xp) && xp->x_ccount==0) { 
if ((x = malloc(coremap, xp->x_size)) == NULL) { 
mfree(coremap, p->p_size, a}; 
if ({x = malloc(coremap, xp->x_size)) == NULL) { 
xunlock (xp) ; 
return (6G); 
} 
if ({a = malloc(coremap, p->p_size)) == NULL) { 
mfiree(coremap, xp->x_size, x); 
xunlock (xp); 
return (8); 
} 
} 
xp->x_caddr = x; 
if ((ap->x_flagé&XLOAD)==0) 
swap (xp->x_daddr, x, xp->x_size, B_READ); 
} 
xp->x_ccount+t; 
xunlock (xp); 
} 
if (p->p_xaddr{0]}) { 
ta = a; 
for (x=0; x < NSCATSWAP; x++) { 
if (p->p_xaddr[x] == 0) 
continue; 
swap(p->p_xaddr{x], a, p->p_xsize[x], B_READ); 
miree(swapmap, ctod(p->p_xsize[x]), (int)p->p_xaddr[x]); 
a += p->p_xsize[x]; 
p->p_xaddr[x] = 0; 
} 
p->p_addr = ta; 
} else { 
swap ((daddr t)p->p_dkaddr, a, p->p_size, B_READ); 
mfree(swapmap, ctod(p->p_ size), (int)p->p_dkaddr); 
p->p_addr = a; 
} 
cxrelse(p->p_ context); 
p->p_flag != SLOAD; 
p->p_time = 0; 
return(1); 


swapin({p) 
register struct proc *p; 


{ 


register struct text *xp; 
register int a, x; 
int ta; 


if (p->p_flagéScONTIG¢) { 
if ({a = cmemalloc(p->p_size)} == NULL} 
return (0); 
} else if {{a = memalloc(p->p_size)) == NULL) 
return (0); 
if (xp = p->p_textp) { 
xlock (xp) ; 
if ({xmlink(xp) && xp->x_ccount==0) { 
if ((x = memalloc(xp->x_size)) == NULL) { 
memfree (a); 
xunlock (xp); 
return (0); 
} 
Xp->x_scat = x; 
if ((xp->x_flagéXLOAD)==0) 


(void) swap(xp->x_daddr, x, xp->x_size, B_READ); 


} 
Xp->x_ccount++; 
xunlock (xp); 

} 


p->p_flag |= SNOMMU; /* swapping in, do not set mmu registers */ 


if (p->p_xaddr[0])} { 
ta = a; 
for (x=0; x < NSCATSWAP; x++) [{ 
if (p->p_xaddr[x] == 4) 
continue; 


a = swap{p->p_xaddr[x], a, p->p_xsize[x], B_READ); 
mfree(swapmap, ctod(p->p_xsize[x]), (int)p->p_xaddr[x]); 


p->p_xaddr[x] = 6; 
} 
p->p_scat = ta; 
} else { 
(void) swap((daddr_t)p->p_dkaddr, a, p->p_size, B_READ); 
mfiree(swapmap, ctod(p->p_size), (int) p->p_dkaddr); 
p->p_scat = a; 
} 
p->p_flag &= ~SNOMMU; 
p->p_addr = ixtoc(p->p_scat); 
exrelse (p->p_context) ; 
p->p_flag |= SLOAD; 
p->p_time = 0; 
return(1); 
} 
#endif 


/* 
* put the current process on 
* the Q of running processes and 
* call the scheduler. 
x/ 
qswtch() 
{ 
setrq(u.u_procp) ; 
swtch(); 


~ 
* 


This routine is called to reschedule the CPU. 

if the calling process is not in RUN state, 
arrangements for it to restart must have 

been made elsewhere, usually by calling via sleep. 
There is a race here. A process may become 

ready after it has been examined. 

In this case, idle() will be called and 

will return in at most 1HZ time. 

i.e. its not worth putting an spl() in. 


+ * ee eb OF 


*] 
swtch () 
{ 
register n; 
register struct proc *p, *q, “pp, *pq; 
#ifdef mc68881 /* MC68881 floating-point coprocessor */ 
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extern short fp88l; /* is there an MC68881? */ 


fendif mc6é88al 


i* 
* If not the idle process, resume the idle process. 
xf 

sysinfo.pswitchtt+; 
if (u.u_procp != éproc[Q]) { 
if (save(u.u_rsav)) { 
sureg(): 
return; 
} 

#ifdef FLOAT /* sky floating point board */ 

if (v.u_fpinuse && u.u_fpsaved==0) { 
savfip(); 
u.u_fpsaved = 1; 


tendif 
#ifdef mc68881 /* MC68881 floating-point coprocessor */ 
if (fp881) 
fpsave(); 
#endif mc68881 
#ifdef NONSCATLOAD 
resume (proc[6].p addr, u.u_qsav); 
#else 
resume (ixtoc(proc[0].p scat), u.u_qsav); 
tendif 


~ 
* 


The first save returns nonzero when proc 0 is resumed 
by another process (above); then the second is not done 
and the process-search loop is entered. 


The first save returns 6 when swtch is called in proc @ 

from sched(). The second save returns 6 immediately, so 

in this case too the process-search loop is entered. 

Thus when proc 0 is awakened by being made runnable, it will 
find itself and resume itself at rsav, and return to sched({). 


es ee Fe OF 


*f 
if (save(u.u_qsav) == 0 && save(u.u_rsav)) 
return; 
Loop: 
SPL6(); 
runrun = 0; 
f* 
* Search for highest-priority runnable process 
xf 
if (p = runq) { 
q = NULL; 
pp = NULL; 
n= 128; 
do { 
if ((p->p_flagsSLOAD) && p->p_pri <= n) { 
Pp = De 
pq = q 
n = p->p_pri; 
} 
qa=p 
} while (p = p->p_link); 
} else 
goto cont; 
/* 
* If no process is runnable, idle. 
af 
if (pp == NULL) { 
cont: curpri = PIDLE; 
curproc = &proc[0]; 
idle(); 
goto loop; 
} 
p™ PD 
q = pq: 
if (q == NULL) 
rung = p->p_link; 
else 
q->p_link = p->p_link; 


curpri = n; 

curproc = p; 

SPLO(); 

j* 
* The rsav (ssav) contents are interpreted in the new address space 
xf 

n = p->p_flagséSSWAP; 

p->p_flag &= ~SSWAP; 


#ifdef NONSCATLOAD 


#else 


#endif 


} 
/* 


resume(p->p_addr, n? u.u_ssav: u.u_rsav); 


resume (ixtoc(p->p scat); n? u.u_ssav: 0.u_rsayv); 


* Create a new process-- the internal version of 
* sys fork. 
* It returns 1 in the new process, 0 in the old. 


*f 
newproc (i) 
{ 
register struct proc *rpp, *rip; 
register struct user *up; 
register n: 
register a; 
struct proc *pend; 
static mpid; 
{* 
* First, just locate a slot for a process 
* and copy the useful info from this process into it. 
* The panic “cannot happen" because fork has already 
* checked for the existence of a slot. 
af 
up = éu; 
rpp = NULL; 
retry: 
mpid++; 
if (mpid >= MAXPID) { 


mpid = 0; 
goto retry; 
} 
rip = éproc[0]; 
nh = {struct proc *)v.ve_proc - rip; 
a= 0G; 
de { 
if (rip->p_stat == NULL) { 
if (rpp == NULL) 
rpp = rip; 
continue; 
} 
if (rip->p_pid==mpid) 
goto retry; 
if (rip->p_uid == up->u_ruid) 
att; 
pend = rip; 
} while(rip++, -=n); 
if (rpp==NULL) { 
if ((struct proc *)v.ve_proc >= &proc[(short)v.v_proc]) { 
if (i) { 
syserr.procovftt; 
up->u_error = EAGAIN; 
return (-1); 
} else 
panic("no procs"); 
} 
rpp = (struct proc *)v.ve proc; 
} 
if (rpp > pend) 
pend = rpp; 
pend++; 


#ifdef lint 


#else 


v.ve_proc = pend; 


v.ve_proc = (char *)pend; 
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fendif 
if (up->u_uid && up->u_ruid) { 


if (rpp — éproc[({short) (v.v_proc-1)] || a > v.v_maxup) { 


up->u_error = EAGAIN; 
return (-1); 


} 

/* 

* make proc entry for new proc 
af 


rip = up->u_procp; 
rpp->p_stat = SRUN; 
rpp->p_clktim = 0; 
rpp->p_flag = SLOAD; 
rpp->p_uid = rip->p_uid; 
rpp->p_suid = rip->p_suid; 
rpp->p_pgrp = rip->p_pgrp; 
rpp->p_nice = rip->p nice; 
rpp->p_textp = rip->p_textp; 
rpp->p_pid = mpid; 
rpp->p_ppid = rip->p_pid; 
rpp->p_time = @; 
rpp->p_cpu = rip->p_cpu; 
rpp->p_sigign = rip->p_sigign; 
rpp->p_pri = PUSER + rip->p nice - NZERO; 
#ifndef NONSCATLOAD 
rpp->p_scat = rip->p_scat; 
#endif 
rpp->p_addr = rip->p_addr; 
xpp->p_size = rip->p_size; 


f* 

* make duplicate entries 
* where needed 

*f 


for(n=0; n<NOFILE; ntt+) 
if (up->u_ofile[n] != NULL) 
up->u_ofile[n]->f_count++; 
if {rpp->p_textp {= NULL) { 
rpp->p_textp->x_count++; 
rpp->p_textp->x_ccountt+; 
} 
up->u_cdir->i_count++; 
if (up->u_rdir) 
up->u_rdir->i_count+t+; 


shmfork(rpp, rip); 


/* 
* Partially simulate the environment 
* of the new process so that when it is actually 
* created (by copying) it will look right. 
xy 

up->u_procp = rpp; 

curproc = rpp; 

{* 
* When the resume is executed for the new process, 
* here’s where it will resume. 


xf 

if (save(up->u_ssav)) { 
sureg(); 
return(1); 

} 

/* 


* If there is not enough memory for the 
* new process, swap out the current process to generate the 
* copy. 
*/ 
if (procdup(rpp) == NULL) { 
rip->p_stat = SIDL; 
xswap(rpp, 0, 0); 
rip->p_stat = SRUN; 
} 
up->u_procp = rip; 


Sw 
* 


+ ee me 


af 


curproc = rip; 
if (rip != &proc[0}) /* only do if not scheduler */ 
sureg{); 
setrq{(rpp); 
rpp->p_flag |= SSWAP; 
up->u_rvall = rpp->p_pid; /* parent returns pid cf child */ 
return (0); 


Change the size of the datat+tstack regions of the process. 

If the size is shrinking, it’s easy~- just release the extra core. 
If it’s growing, and there is core, just allocate it 

and copy the image, taking care to reset registers to account 

for the fact that the system’s stack has moved. 

If there is no memory, arrange for the process to be swapped 

out after adjusting the size requirement-- when it comes 

in, enough memory will be allocated. 


After the expansion, the caller will take care of copying 
the user’s stack towards or away from the data area. 


#ifdef NONSCATLOAD 
expand (newsize) 
register newsize; 


{ 


register struct proc *p; 
register al, a2; 
register i, n; 


Pp = u.u_procp; 

h = p->p size; 

p->p_size = newsize; 

if (n — newsize) 
return; 

al = p->p_addr; 

if (n >= newsize) { 


#ifdef EXPANDTRACE 


#endif 


loop: 


printf (“expand: shrinking process by %d clicks\n", n-newsize); 


mfree(coremap, (mem t)(n-newsize), (mem_t} (altnewsize)}; 
return; 

} 

if {save(u.u_ssav)) { 


sureg({); 
return; 
} 
[* 
* See if can just expand in place 
xf 


a2 = mallocat(coremap, newsize-n, (mem_t) (al+n)); 
if (a2 != NULL) { 


#ifdef EXPANDTRACE 


tendif 


printf("expanding in place by %d clicks at click %d\n", 
newsize-n, altn); 


cxrelse(p->p_ context); 
sureg(); 
return; 
} 
/* 
* Will we be releasing shared text space anyway. 
* If so, then release it now and try in place 
* expansion again. 
xf 
Af ((a2 = domall(coremap, (mem_t)newsize)) == NULL) 
if (xmrelse()) 
goto loop; 
if (a2 == NULL && (a2 = malloc(coremap, (mem_t)newsize)) == NULL) { 


fifdef EXPANDTRACE 


#endif 


printf ("expand:calling xswap\n"); 


xswap(p, 1, n); 
p->p_ flag |= SSHAP; 
qswtch(); 
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/* no return */ 

} 

p->p_addr = a2; 

for(i=0; i<n; i++) 
copyseg(al+i, a2+i); 


#ifdef EXPANDTRACE 


tendif 


} 
#else 


printf ("expand:copyseg %d from Ox%x to Oxtx\n", n, al, a2); 


mfree(coremap, (mem_t}n, (mem_t)al); 
cxrelse(p->p_ context); 
resume ((mem_t)a2, u.u_ssav); 


expand (newsize) 
register newsize; 


{ 


#endi 


a 


register struct scatter *s; 
register struct proc *p; 
register al, a2; 

register i, n; 

int t; 


p = u.u_procp; 
n = p->p_size; 
p->p_size = newsize; 
if (n = newsize) 
return; 
s = scatmap; 
al = p->p_ scat; 
if (n >= newsize) { 
f* 
* shrink memory 
*/ 
for (i=l; i<newsize; i++) 
al = s[al].sc_index; 
t = scatfreelist.sc_index; 
scatfreelist.sc_index = s[al].sc_index; 
i= al; 
while ({a2 = s[al].sc_index) != SCATEND) 
al = a2; 
s({i].sc_index = SCATEND; 
s{ai].sc_index = t; 
nscatfree += n-newsize; 
/* 
* Wake scheduler when freeing memory 
af 
if (runin) { 
runin = 0; 
wakeup ({caddr_t)érunin); 
} 
return; 


} 
if (save(u.u_ssav)) { 


sureg(); 
return; 
} 
{* 
* expand memory 
ef 


if (a2 = memalloc(newsize-n)) { 
/* printf("expanding from %d clicks to %d clicks\n", 
n, newsize); */ 
for (i=1; i<n; i++) 
al = s[al].sc_index; 
if (s{al].sc_index != SCATEND) 
printf ("expand:SCATEND expected\n") ; 
s{al}.sc_index = a2; 
return; 
} 
xswap(p, 1, nj; 
p->p_flag |= SSWAP; 
qswtch (); 
/* no return */ 


#ifndef NONSCATLOAD 

checkscat(s) 

char *s; 

{ 
register struct proc *p; 
register struct text *xp; 
register i; 


i = countscat (scatfreelist.sc_ index); 
printf ("ts nscatfree=td actual=¢d\n", s, nscatfree, i); 
if (nscatfree < 30) { 
printt(" freelist chain is "): 
dumpscat (scatfreelist.sc_index) ; 
} 
for (p = &proc[0]; p < {struct proc *)v.ve_proc; ptt) f{ 
if (p->p_stat=-0) 


continue; 
xp = p->p_textp; 
printt(" pid=%d $d used (%d text)\n", 


p->p_pid, countscat (p->p_scat), 
xp ? countscat(xp->x_scat) : 0); 
dumpscat (p->p_scat); 
if (xp) { 
dumpscat (xp->x_scat); 
} 


} 


dumpscat (al) 
register al; 
{ 
register struct scatter *s; 


S = scatmap; 

printf (" “); 

while (al != SCATEND) { 
printf(" $d, tx", al, ixtoc(al)); 
al = s[{al].sc_index; 

} 

printf("\n"); 

} 


: 


countscat (al) 
register al; 
{ 
register struct scatter *s; 
register i; 
i= 0; 
s = scatmap; 
while (al != SCATEND) { 
al = s[al].sc_index; 
itt; 
} 
return(i); 
} 
#endif 
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/* socket .c 1.3 84/11/02 xf} 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/errno.h" 
f#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.h* 
#include "sys/dir.h" 
#include “sys/termio.h" 
finclude “sys/signal.h" 
#include "sys/user.h" 
#include “sys/proc.h" 
f#include "sys/file.h" 
#include “sys/inode.h" 
#include “sys/buf.h" 
#include “net/misc.h" 
#include "net/mbuf.h" 
#include "net/protosw.h" 
#include "net/socket.h" 
f#include “net/socketvar.h" 
#include “net/ubavar.h" 
#include "sys/stat.h" 
#include "“sys/ioctl.h"™ 
#include “net/in.h" 
#include “net/in_systm.h" 
#include “net/route.h" 


/* 

* Socket support routines. 

* 

* DEAL WITH INTERRUPT NOTIFICATION. 
*f 


f* 
* Create a socket. 
*f 
socreate(aso, type, asp, asa, options) 
struct socket **aso; 
int type; 
struct sockproto *asp; 
struct sockaddr *asa; 
int options; 


register struct protesw *prp; 
register struct socket *so; 
int pf, proto, error; 


fe 
* Use process standard protocol/protocol family if none 
* specified by address argument. 


xf 

if (asp = 0) { 
pf = PF_INET; /* should be u.u_protof */ 
proto = 0; 

} else { 
pf = asp->sp family; 
proto = asp->sp protocol; 

} 

/* 


* If protocol specified, look for it, otherwise 
* for a protocol of the correct type in the right family. 


*/ 
1f (proto) 
prp = pffindproto(pf, proto); 
else 


prp = pffindtype(pf, type); 
lf (prp == 0) 
return (EPROTONOSUPPORT) ; 


fr 
* Get a socket structure. 
x] 
MSGET(so, struct socket, 1); 
if (so == 0) 


return (ENOBUFS)>; 


so->so_ options = options; 
so->so_state = 0; 
if (u.u_uid = 0) 


{* 


so->so_ state = SS PRIV; 


* Attach protocol to socket, initializing 
* and reserving resources. 


*f 


so->so_ proto = prp; 
error = (*prp->pr_usrreq){sa, PRU_ATTACH, 9, asa); 
if (error) { 

#ifdef NEVER i* 


#endif 


} 


* This commenting-out came from jsq@utexas-11; see the 
* iptepll messages. Simply means temp lack of mbufs... 
«f 
if (so->so_snd.sb_mbmax || so->so_rcv.sb mbmax) 
panic("socreate"}; 


so~>so state |= SS_USERGONE; 
sofree(so); 
return {error); 


*aso = so; 
return (0); 


} 


sofree (so) 


struct socket *so; 


{ 


if (so->so_peb || (so->so_state & SS_USERGONE) == 0) 


return; 


sbrelease(&so->so_snd); 
sbrelease(&so->so_ rcv); 
MSFREE (so}; 


{* 


+ eM 


*f 


Close a socket on last file table reference removal. 
Initiate disconnect if connected. 
Free socket when disconnect complete. 


THIS IS REALLY A UNIX INTERFACE ROUTINE 


soclose(so, exiting} 
register struct socket *so; 
int exiting; 


int s = splnet(); #* conservative */ 


if 


if 


if 


(so->so_pcb == 0) 
goto discard; 
(exiting) 
so->so_ options |= SO_KEEPALIVE; 
(so->so_state & SS ISCONNECTED) { 
if {{so->so_state & SS _ISDISCONNECTING) == 0) { 
u.u_error = sodisconnect (so, (struct sockaddr *)Q); 
if (u.u_error) { 
if (exiting) 
goto drop; 
splx(s); 
return; 
} 
} 
if {((so->so_options & SO _DONTLINGER) == 0) { 
if ((so->so_ state & SS_ISDISCONNECTING) && 
(so->so_state & SS_NBIO) && 
exiting == 0) { 
u.u_error = EINPROGRESS; 
/* 
* billn. This is a kludge rendered unnecessary 
* by a bug fix 12/27/83. 
so->so_state |= SS_USERGONE; 
xf 
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Splxi(s); 

return; 
} 
/* should use tsleep here, for at most linger */ 
while (so->so_state & SS_ISCONNECTED) 

(void) sleep({caddr_t)&so->so timeo, PZERO+1); 


} 


drop: 
if (so->so_pcb) { 
u.u_error = {*so~->so_proto->pr_usrreq) (so, PRU_DETACH, 0, 0}; 
if (exiting — 0 && u.u_error) { 
splx(s); 
return; 
} 
} 
discard: 
so->so_state |= SS_USERGONE; 
sofree(so); 
splx(s); 
} 
/*ARGSUSED*/ 


sostat(so, sb) 


} 
f* 


struct socket *so; 
struct stat *sb; 


/* bug fix by JC Stewart of sri; this zeros the kernel, should zero 
user data (!}... 

bzero((caddr_t)sb, sizeof (*sb)); f*® XXX */ 

return (0); /* XXX */ 


* Accept connection on a socket. 


*/ 


soaccept (so, asa) 


bad: 


struct socket *so; 
struct sockaddr *asa; 


int s = splnet(); 
int error; 


if ({so->so_options & SO ACCEPTCONN) == 0) { 
error = RINVAL; /* XXX */ 
goto bad; 
} 
if ((so->so_state & SS_CONNAWAITING) == 0) { 
error = ENOTCONN; 
goto bad; 
} 
so->so_state &= ~SS_ CONNAWAITING; 
error = (*so->so_proto~>pr_usrreq) (so, PRU_ACCEPT, 0, (caddr_t)asa); 


splx(s); 
return (error); 


* Connect socket to a specified address. 
* If already connected or connecting, then avoid 
* the protocol entry, ta keep its job simpler. 


*/ 


soconnect (so, aSa) 


struct socket *so; 
struct sockaddr “asa; 


int s = splnet(); 
int error; 


1f (so->so_state & (SS_ISCONNECTED|SS ISCONNECTING)) { 
error = EISCONN; 
goto bad; 
i 
error = (*so->so_proto->pr_usrreq) (so, PRU_CONNECT, 2, (caddr_t)asa); 


splxis); 
return (error); 


/* 
* Disconnect from a socket. 
* Address parameter is from system call for later multicast 
* protocols. Check to make sure that connected and no disconnect 
x in progress (for protocol’s sake}, and then invoke protocol. 
xf 
sodisconnect (sc, asa) 
struct socket *so; 
struct sockaddr *asa; 


int s = splnet(); 
int error; 


if {(so->so_state & SS_ISCONNECTED) = 9) { 
error = ENOTCONN; 
goto bad; 

} 

if (so->so_state & SS_ISDISCONNECTING) { 
error = EBALREADY; 
goto bad; 


} 
error = (*so->so_proto->pr_usrreq) (so, PRU_DISCONNECT, 0, asa); 


splx(s); 
return ferror); 


/* 
Send on a socket. 

If send must go all at once and message is larger than 
send buffering, then hard error. 

Lock against other senders. 

If must go all at once and not enough room now, then 
inform user that this would block and do nothing. 


em 


xf 

sosend(so, asa) 
register struct socket *so; 
struct sockaddr *asa; 


struct mbuf *top = 0; 

register struct mbuf **mp = &top; 
register struct mbuf *m; 

register struct user *up = &u; 
register u_int len; 

register int space; 

int error = 0, s; 


if (sosendallatonce(so) && up->u_count > sa->so_snd.sb_ hiwat) 
return (EMSGSIZE); 
#ifdef notdef 
/* NEED TO PREVENT BUSY WAITING IN SELECT FOR WRITING */ 
if ((so->so_snd.sb flags & SB_LOCK) && (so->so_state & SS_NBIO}) 
return (EWOULDBLOCK) ; 


#endif 
restart: 
sblock(&so->so_snd) ; 
#define snderr (errno) { error = errno; splx(s); goto release; } 
again: 


s = splnet(); 
if (so->so_state & SS _CANTSENDMORE) { 
psignal(up->u_procp, SIGPIPE); 
snderr (EPIPE); 
} 
if (so->so_error) { 
error = so->so_ error; 
so->so_error = 0; £8 222-97 
splx({s); 
goto release; 


} 
if ((so->so_state & SS ISCONNECTED) == 0) { 
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if (so->so_proto->pr_flags & PR_CONNREQUIRED) 
snderr (ENOTCONN) ; 
if (asa = 0) 
snderr (EDESTADDRREQ) ; 
} 
if (top) { 
error = (*so~>so_proto->pr_usrreq) (so, PRU_SEND, top, asa); 
top = a; 
if f{error) { 
splx(s); 


release: 


} 


gote release; 
} 
mp = &top; 
} 
if (up->u_count = 0) { 
splx(s); 
goto release; 
} 
space = sbspace(&so->so_snd); 
if (space <= 0 || sosendallatonce(so) && space < up->u_count) { 
if (so->so_ state & SS _NBIO} 7 
snderr (EWOULDBLOCK) ; 
sbunlock (&s0->so_snd); 
sbwait {&so->so_snd); 
splx(s); 
goto restart; 
} 
splx(s); 
while (up->u_count && space > 0) { 
MGET(m, 1): 
if (m = NULL) { 
error = ENOBUFS; 
goto release; 


/* SIGPIPE? 


} 
m->m_off = MMINOFF; 
len = (u_int)MIN(((int)MLEN), ((int)up->u_count)); 
iomove(mtod(m, caddr_t), (int)len, B WRITE); 
if (error = up->u_error) goto release; 
m->m_len = len; 
‘mp = lm; 
mp = ém->m_next; 
space = sbspace(&so->so_snd); 

} 

goto again; 


sbunlock(&so->so_snd); 
if (top) 

m_freem(top); 
return terror); 


soreceive(so, asa) 


restart: 


#define 


register struct socket *so; 
struct sockaddr *asa; 


register struct mbuf *m, *n; 

u_int len; 

int eor, s, error = 0, cnt = u.u_count; 
caddr_t base = u.u_base; 


sblock(&so->so rcv); 
s = splnet(); 


reverr (errno) { error = errno; splx(s); goto release; } 
if {so->so_rev.sb cc == 0) { 
if (so->so_error) { 
error = so0->sq_ error; 
so->so_error = 0; 
splx(s); 
goto release; 
} 
if (so->so_state & SS CANTRCVMORE) { 
splx(s); 
goto release; 


af 


release: 


} 
if ({so->so_state & SS _ISCONNECTED) == 0 && 
(so->so_proto~>pr_flags & PR_CONNREQUIRED) ) 
reverr (ENOTCONN) ; 
if (s0->so_state & SS_NBIO) 
reverr (EWOULDBLOCK); 
sbunlock (&so->so_rcv): 
sbwait (éso->so_rev); 
splx{s); 
goto restart; 
} 
m = so->so_rev.sb mb; 
if (m == 9) 
panic ("receive") ; 
if (so->so_proto->pr_flags & PR_ADDR) { 
if (m->m_len != sizeof (struct sockaddr) ) 
panic("soreceive addr"); 
if (asa) 
beopy(mtod(m, caddr_t), (caddr_t)asa, sizeof {*asa)); 
so->so rev.sb_cc -= m->m_len; 
so->so_rev.sb mbcnt -= MSIZE; 
m = m_free(m); 
if (m = 6) 
panic("receive 2"); 
so->so_rev.sb mb = m; 
} 
so->so_state &= ~SS_RCVATMARK; 
if (so->so_oobmark && cnt > so->so_oobmark) 
ent = so->so_oobmark; 
eor = 0; 
do { 
len = MIN(m->m_len, cnt); 
splx(s); 
iomove(mtod(m, caddr_t), (int)len, B READ); 
ent -= len; 
S = splnet{); 
if (len == m->m_len) { 
eor = (int)m->m_act; 
sbfree(&so->so_rev, m); 
so->so_rcv.sb mb = m->m_next; 
MFREE (m, nm); 
} else { 
m->m_off += len; 
m->m_len -= len; 
so->so _rev.sb cc -= len; 
} 
} while ((m = so->so_rcv.sb_mb) && cnt && !eor); 
if ((so->so_proto->pr_flags & PR_ATOMIC) && eor == 6) 
do { 
if {m= 0) 
panic("receive 3"); 
sbfiree(&so->so_rev, ™); 
eor = (int)m->m_act; 
so->so_rev.sb mb = m->m_next; 
MFREE (m, n); 
m=n; 
} while (eor == 0); 
if ((so->so_proto->pr_flags & PR_WANTRCVD) && so->so_pcb) 
(*so->so_proto->pr_usrreq) (so, PRU_RCVD, 0, 0); 
if (so->so_oobmark) { 
so->so_oobmark -= u.u_base - base; 
if (so->so_cobmark == 0) 
so->so_ state |= SS RCVATMARK; 
} 


sbunlock(&so->so_rcev); 
splx(s); 
return (error); 


sohasoutofband (so) 


{ 


struct socket *so; 
struct proc *pfind(): 


if (so->so_pgrp == 0) 
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return; 
if (so->so_pgrp > 0) 
fx 
gsignal{so->so_pgrp, SIGURG); 
xf 
signal (so->so_pgrp, SIGURG); 
else { 
struct proc *p = pfind(-so->so_pgrp); 
if {p) 
psignal(p, SIGURG); 
} 
} 
/*ARGSUSED*/ 


soioctl(so, cmd, cmdp) 
register struct socket *so; 
int cmd; 
register caddr t cmdp; 
extern struct uba_device ubdinit[]; 
long *iaddrp = (long *) ({int)ubdinit + OxA); 
switch (cmd) { 


case SIOCCIADDR: 


/* set internet address ie write into uba flags */ 


Lf (u.u_ruid [= 0 &&@ u.u_uid != 0) { 
u.u_error = EPERM; 
return; 

} 


if (copyin(emdp, (caddr_t}iaddrp, sizeof (long))) { 


u.u_error = EFAULT; 
return; 


} 


return; 


case SIOCGIADDR: 


if (copyout ((caddr t)iaddrp, cmdp, sizeof (long))) 


u.u_error = EFAULT; 
return; 


case FIONBIO: { 
int nbio; 


if (copyin(cmdp, (caddr_t)&énbio, sizeof {nbio))) { 


u.u_error = EFAULT; 


return; 
} 
if (nbio) 

so->so_state |= SS NBIO; 
else 

so->so_state &= ~SS_ NBIO; 
return; ~ 


} 


case FIOASYNC: { 
int async; 


if (copyin(cmdp, {(caddr_t)éasyne, sizeof {async))) { 


u.u_error = EFAULT; 


return; 
} 
if (async) 

so~>so_state |= SS_ASYNC; 
else 

so->so_ state &= ~SS ASYNC; 
return; ~ ~ 


} 


case FIONREAD: { 
long nread = s0->so0_rcv.sb_ cc; 


if (copyout((caddr _t)&énread, cmdp, sizeof (nread))) 


u.u_error = EFAULT; 
return; 


case SIOCSKEEP: { 


int keep; 

if (copyin({emdp, (caddr_t)&keep, sizeof (keep))) { 
u.U_error = EFAULT; 
return; 


L 
if (keep) 
so->so_ options |= SO_KEEPALIVE; 
else 
so->so_ options é&= ~SO_KEEPALIVE; 
return; 
} 


case SIOCGKEEP: { 
int keep = (so->so_options & SO_KEEPALIVE) != 0; 
if (copyout ((caddr_t)é&keep, cmdp, sizeof (keep))) 
u.u_error = EFAULT; 
return; 
} 


case SIOCSLINGER: { 
int linger; 
if (copyin(cmdp, (caddr_t)&linger, sizeof (linger))) { 
u.u_error = EFAULT; 
return; 
} 
so->so_ linger = linger; 
if (so->so_linger) 
so->so options &= ~SO_DONTLINGER; 
else 
so->so_options |= SO_DONTLINGER; 
return; 
} 


case SIOCGLINGER: { 
int linger = so->so_linger; 
if (copyout({caddr_t)élinger, cmdp, sizeof (linger))) { 
u.u_error = EFAULT; 
return; 


} 


3 


i 


case SIOCSPGRP: { 
int pgrp:; 
if {copyin(cmdp, (caddr_t)épgrp, sizeof (pgrp))) { 
u.u_error = EFAULT; 
return; 
} 
so->so_pgrp = pgrp; 
return; 
} 


case SIOCGPGRP: { 
int pgrp = so->so_pgrp; 
if (copyout((caddr_t)&épgrp, cmdp, sizeof (pgrp))) { 
u.u_error = EFAULT; 
return; 


} 


case SIOCDONE: { 
int flags; 
if (copyin(cmdp, (caddr_t)&flags, sizeof (flags))) { 
u.u_error = EFAULT; 
return; 
} 
flagstt+; 
if (flags & FREAD) { 
int s = splimp(): 
socantrcevmore (so); 
sbflush({&s0->so_rcv); 
splx(s); 
} 
if (flags & FWRITE) 
u.u_error = (*s0->so0_proto->pr_usrreq) (so, PRU 
return; 
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case SIOCSENDOOB: { 
char oob; 
struct mbuf *m; 
if (copyin(cmdp, (caddr_t)&oob, sizeof (oob))) { 
u.u_error = EFAULT; 
return; 
} 
m = m_get(M DONTWAIT); 
if (m=O) { 
u.u_error = ENOBUFS; 
return; 
} 
m->m_off = MMINOFF; 
m->m_len = 1; 
*mtod(m, caddr_t) = oob; 
{*so->so_proto->pr_usrreq) (so, PRU_SENDOOB, m, 5); 
return; 
} 


case SIOCRCVOOB: { 
struct mbuf *m = m_get(M_DONTWAIT); 
if (m= 0) { 
u.u_error = ENOBUFS; 
return; 
} 
m->m_off = MMINOFF; *mtod(m, caddr_t) = 0; 
(*so->so_proto->pr_usrreq) iso, PRU_RCVOOB, m, 9); 
if (copyout(mtod(m, caddr_t), cmdp, sizeof {char))) { 
u.u_error = EFAULT; 
return; 
} 
(void) m_free(m); 
return; 


} 


case SIOCATMARK: { 
int atmark = (so->so_state&SS_RCVATMARK) != 6; 
if (copyout ((caddr_t)éatmark, cmdp, sizeof (atmark))) { 
u.u_error = EFAULT; 
return; 
} 
return; 
} 


/* routing table update calls */ 
case SIOCADDRT: 
case SIOCDELRT: 
case SIOCCHGRT: { 
struct rtentry route; 
if ({suser()) 
return; 
if (copyin(cmdp, (caddr_t)&éroute, sizeof (route))) { 
u.u_error = EFAULT; 
return; 
} 
u.u_error = rtrequest(cmd, éroute); 
return; 
} 


{* type/protocol specific ioctls */ 


} 
u.u_error = EOPNOTSUPP; 
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/* socketsubr.c 4.23 82/06/14 xf 


finclude “sys/param.h" 
#include “sys/config.h" 
#include “sys/types.h" 
#include “sys/mnu.h" 
f#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include "sys/signal.h" 
#include "sys/errno.h" 
#include "“sys/user.h" 
#include "sys/proc.h"“ 
#include "sys/file.h® 
finclude “sys/inode.h*® 
#include “sys/buf.h" 
#include "net/misc.h" 
#include “net/mbuf.h*" 
#include "net/protosw.h" 
#include "net/socket.h® 
f#include "net/socketvar.h" 
#include “net/in.h" 
#include “net/in_systm.h" 


fr 
* Primitive routines for operating on sockets and socket buffers 
*/ 


f* 
* Procedures to manipulate state flags of socket 
* and do appropriate wakeups. Normal sequence is that 
* soisconnecting() is called during processing of connect() call, 
* resulting in an eventual call to soisconnected() if/when the 
* connection is established. When the connection is torn down 
* soisdisconnecting() is called during processing of disconnect{) call, 
* and soisdisconnected{) is called when the connection to the peer 
* is totally severed. The semantics of these routines are such that 
* connectionless protocols can call soisconnected({} and soisdisconnected() 
* only, bypassing the in-progress calls when setting up a *‘*connection’’ 
* takes no time. 
* 
* When higher level protocols are implemented in 
* the kernel, the wakeups done here will sometimes 
* be implemented as software-interrupt process scheduling. 
xf 
soisconnecting (so) 
struct socket *so; 
{ 
so->so state é= ~(SS_ISCONNECTED|SS_ISDISCONNECTING) ; 
so->so_state |= SS_ISCONNECTING; 
wakeup ((caddr_t)&so->so_timeo) ; 
} 
soisconnected (so) 


struct socket *so; 
{ 


S0->so_state &= ~(SS ISCONNECTING|SS_ISDISCONNECTING) ; 
so~->so_ state |= SS_ISCONNECTED; 
wakeup ((caddr_t) &so->so_timeo); 
sorwakeup (so) ; 
sowwakeup (sa); 
} 


soisdisconnecting (so) 
struct socket *so; 


{ 


so->so_state é= ~SS_ISCONNECTING; 

so~>so state {= (SS_ISDISCONNECTING|SS CANTRCVMORE|SS_CANTSENDMCRE) ; 
wakeup ((caddr_t) &so->so_timeo); 

sowwakeup (so) ; 

sorwakeup(so); 


soisdisconnected{so) 
struct socket *so; 
{ 


so->so_state &= ~(SS ISCONNECTING!SS ISCONNECTED|SS ISDISCONNECTING} ; 


so->so_state |= (SS_CANTRCVMORE|SS CANTSENDMORE) ; 
wakeup ((caddr_t)&so->so_timeo); 

sowwakeup(so}; 

sorwakeup(so); 


{* 

Socantsendmore indicates that no more data will be sent on the 

socket; it would normally be applied to a socket when the user 

informs the system that no more data is to be sent, by the protocol 
code {in case PRU_SHUTDOWN). Socantrcvmore indicates that no more data 
will be received, and will normally be applied to the socket by a 
protocol when it detects that the peer will send no more data. 

Data queued for reading in the socket may yet be read. 


+ + OO 


*f 


socantsendmore (so) 
struct socket *so; 


{ 


so->so_ state [= SS_CANTSENDMORE; 
sowwakeup (So) ; 


} 
socantrcvmore (so) 
struct socket *so; 
{ 
so->so_state |= SS_CANTRCVMORE; 
sorwakeup (so); 
} 
f* 
* Socket select/wakeup routines. 
xf 
/* 


* Interface routine to select() system 
* call for sockets. 
*f 
soselect (so, rw) 
register struct socket *so; 
int rw; 


int s = splnet(); 
switch (rw) { 


case FREAD: 
if (soreadable({so)) { 
splx(s); 
return (1); 
} 
sbselqueue (&so->so_rcev); 
break; 


case FWRITE: 
if (sowriteable(so)) { 
splx(s); 
return (1); 
} 
sbselqueue(&so->so_snd); 
break: 
} 
splx(s); 
return {0); 
} 


{® 


* Queue a process for a select on a socket ouffer. 
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af 
sbselqueue (sb) 
struct sockbuf *sb; 
{ 
register struct proc *p; 
if ((p = sb->sb_sel) && p->p_wchan == (caddr_t)&selwait) 
sb->sb flags [= SB_ COLL; 
else 
sb->sb_sel = u.u_procp; 
} 
fr 


* Wait for data to arrive at/drain from a socket buffer. 
*f 


sbwait (sb) 


{ 


} 


struct sockbuf *sb; 


sb->sb flags |= SB_WAIT; 
(void) sleep({caddr_t)&sb->sb cc, PZERO+1); 


/* 
* Wakeup processes waiting on a socket buffer. 
*/ 
sbwakeup{sb) 
struct sockbuf *sb; 
{ 
if (sb->sb_sel) { 
selwakeupisb->sb_sel, sb->sb flags & SB_COLL): 
sb->sb sel = 0; 
sb->sb flags &= ~SB_COLL; 
} 
if (sb->sb_flags & SB WAIT) { 
sb->sb flags &= ~SB_WAIT; 
wakeup ((caddr_t)&sb->sb_ cc); 
} 
} 
f* 


+ + ee FFF FF FF HF FF HH eH HF HF HF HF FE FH FH HF FF HF HF HF HH 


Socket buffer (struct sockbuf) utility routines. 


Each socket contains two socket buffers: one for sending data and 

one for receiving data. Each buffer contains a queue of mbufs, 
information about the number of mbufs and amount of data in the 
queue, and other fields allowing select({) statements and notification 
on data availability to be implemented. 


Before using a new socket structure it is first necessary to reserve 
buffer space to the socket, by calling sbreserve. This commits 

some of the available buffer space in the system buffer pool for the 
socket. The space should be released by calling sbrelease when the 

socket is destroyed. 


The routine sbappend({) is normally called to append new mbufs 

to a socket buffer, after checking that adequate space is available 
comparing the function spspace() with the amount of data to be added. 
Data is normally removed from a socket buffer in a protocol by 

first calling m_copy on the socket buffer mbuf chain and sending this 
to a peer, and then removing the data from the socket buffer with 
sbdrop when the data is acknowledged by the peer (or immediately 

in the case of unreliable protocols.) 


Protocols which do not require connections place both source address 
and data information in socket buffer queues. The source addresses 
are stored in single mbufs after each data item, and are easily found 
as the data items are all marked with end of record markers. The 
sbappendaddr() routine stores a datum and associated address in 

a socket buffer. Note that, unlike sbappend(), this routine checks 
for the caller that there will be enough space to store the data. 

It falls if there is not enough space, or if it cannot find 

a mbuf to store the address in. 


The higher-level routines sosend and soreceive (in socket.c) 


* also add data to, and remove data from socket buffers repectively. 
«/ 


#ifdef notdef 
/* billn -- add this routine from 4.1c for 4.lce udp */ 
soreserve({so, sndcc, revycc) 

struct socket *so; 

int sndce, revec; 


if (sbreserve(&so->so_snd, sndcc) == 0) 
goto bad; 

if (sbreserve(&so->so_rev, revec) == 6) 
goto bad2; 

return (0); 


bad2: 
sbrelease({&so->so_snd); 
bad: 
return (ENOBUFS); 
} 
#endif 
/t 
* Allot mbufs to a sockbuf. 
x] 


sbreserve(sb, cc) 
struct sockbuf *sb; 


{ 
/* someday maybe this routine will fail... */ 
sb->sb hiwat = cc; 
sb->sb mbmax = cc*2; 
return (1); 
} 
fe 


* Free mbufs held by a socket, and reserved mbuf space. 
xf 
sbrelease (sb) 
struct sockbuf *sb; 
{ 


sbflush (sb) ; 
sb->sb hiwat = sb->sb_mbmax = 0; 
} 


/* 
* Routines to add (at the end) and remove (from the beginning) 
* data from a mbuf queue. 
xf 


f® 
* Append mbuf queue m to sockbuf sb. 
x} 
sbappend(sb, m) 
register struct mbuf *m; 
register struct sockbuf *sb; 


register struct mbuf *n; 


n = sb->sb_mb; 
#ifdef SIGH 
mcheck(n, “sbappend") ; 
#endif 
if (n) 
while (n->m_next) 
nh = n->m_next; 
while (m) { 
if (m->m_len == 0 6& (int)m->m_act == 0) { 
n= m_free(m); 
continue; 
} 
if (n && n->m_off <= MMAXOFF && m->m_off <= MMAXOFF 6& 
(int)n->m_act == 0 && (int)m->m_act == 0 && 
(n->m_off + n->m_len + m->m_len) <= MMAXOFF) { 
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MBCOPY(m, 0, n, n->m_len, (u_int)m->m_len); 
n->m_len += m->m_len; 
sb->sb cc += m->m_len; 
m = m_free(m); 
continue; 

} 

Sballoc(sb, m); 

if (n = 0) { 
sb->sb mb = m; 

#ifdef SIGH 
mehecki(n, “sbappend2"); 


#tendif 
} 
else 
n->m_next = m; 
n = m; 
m= m->m_ next; 
n->m_next = 0; 
} 
} 
f* 


* Append data and address. 
* Return 6 if no space in sockbuf or if 
* can’t get mbuf to stuff address in. 
xf 
sbappendaddrisb, asa, m0) 

struct sockbuf *sb; 

struct sockaddr *asa; 

struct mbuf *mQ; 


struct sockaddr *msa; 

register struct mbuf *m; 

register int len = sizeof (struct sockaddr); 
struct sockaddr sa; 


sa = *asa; 
m= m0; 
if (m = Q) 

panic ("sbappendaddr") ; 

for (37) { 

den += m->m_len; 

Lf (m->m_next = 4) { 
m->m_act = (struct mbuf *)1; 
break; 

} 

/* This else clause is an sri bug-fix by JC Stewart */ 

else { 
m->m_act = (struct mbuf *) 0; 

jes) 

m = m->m_next; 

} 
if (len > sbspace(sb)) 
return (0); 
m = m_get (M DONTWAIT); 
if (m = 0) 
return (0); 
m~>m_off = MMINOFF; 
m->m_len = sizeof (struct sockaddr); 
MAPSAVE (); 
msa = mtod(m, struct sockaddr *); 
*mSa = sa; 
MAPREST(); 
m->m_act = (struct mbuf *)1; 
sbappend(sb, m); 
sbappend (sb, mQ); 
return (1); 
} 


/* 
* Free all mbufs on a sockbuf mbuf chain. 
* Check that resource allocations return to 0. 
*/ 
sbflush (sb) 
struct sockbuf *sb; 


if (sb->sb flags & SB LOCK) 
panic("“sbflush") ; 
if (sb->sb_cc) 
sbdrop(sb, sb->sb_cc); 
#ifdef SIGH 
/* 
else 
return; 
*f 
#endif 
if (sb->sb_cc || sb->sb_mbcnt || sb->sb_mb) { 
#ifdef SIGH 
extern struct mbuf *mfreep; 


printf("sbflush: sb_cc=%x, sb_mbcnt=%x, sb mb=%x, mfreep=tx\n", 
sb->sb_cc,sb->sb_mbcnt, sb->sb_mb, mfreep); 


#endif 
panic({“sbflush 2"); 
} 
} 
f* 
* Drop data from (the front of} a sockbuf chain. 
xf 


sbdrop{sb, len) 
register struct sockbuf *sb; 
register int len; 


register struct mbuf *m = sb->sb mb, *mn; 


#ifdef SIGH 
mcheck im, “sbdropl"); 
#endif 
while (len > 0) { 
if (m = Q) 
panic ({"sbdrop") ; 
if (m->m_len > len) { 
m->m_len -= len; 
m->m_off += len; 
sb->sb_cc -= len; 
break; 
} 
len -= m->m_len; 
sbfree(sb, m); 
MFREE (m, mn); 
m = mn; 
} 
sb->sb mb = m; 
#ifdef SIGH 
mcheck (m, “sbdrop2"); 
#tendif 
} 
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/* #define HOWFAR */ 


} sn_sizes{] = { 


/* $define WBBLK /* allows writing block 0 */ Qa, 800, /* a = filesystem */ 
/* #define UNISOFT /* allows access to restricted blocks on boot disk */ 201, 599, /* b = filesystem on a boot Sony */ 
fdefine KLUDGE /* kludge for format to work */ 0, 201, /* ¢ = 1-100 for lisa (serialization), 
{* : 101-200 for boot program */ 
* (C) Copyright 1983 UniSoft Systems of Berkeley CA 0, 0, /* d = unused */ 
x o, 0, /* e = unused */ 
* Sony driver Oo, a, /* £ = unused */ 
* and eject driver 6, 0, /* g = unused */ 
* 0, 800 /* h = entire disk */ 
xf he 
#include “sys/param.h" /* 
#include “sys/config.h" ® called from oem7init at (at least) level 1, so won’t be interrupted 
#include “sys/mnu.h" * by parallel port 0 or sony 
#include “sys/types.h™ */ 
#include "sys/sysmacraos.h" sninit () 
#include "sys/dir.h" { 
#include “sys/signal.h"® char c = 6x00; /* to avoid clear byte intstructions */ 
#include "sys/user.h" 
#include “sys/errno.h" if (SNIOB->type) { 
#include “sys/utsname.h" printf ("Microdiskette with td headts\n", SNIOB->type, 
#include “sys/buf.h" (SNIOB->type==1) 2™™:"s"); 
#include “sys/elog.h® } else { 
#include “sys/erec.h" printf("Unix sninit: not a sony drive\n"); 
#include “sys/iobuf.h" return; 
#include “sys/systm.h® } 
f#include "sys/var.h* SNIOB->drive=0x86; /* always lower drive */ 
#ineclude “sys/uioctl.h* SNIOB->side = c; /* always first side */ 
#include “sys/al ioctl.h" SNIOB->mask= Oxff; /* clear ints and enable */ 
#include “sys/diskformat.h" if {snwaitrdy()) { 
#include "set jmp.h" printf("Unix sninit: command to clear status failed\n"); 
#include “sys/pport.h* return; 
#include "sys/sony.h" } 
#include “sys/cops.h*" if (SNIOB->drv_connect != Oxff) { 
printf(*"Unix sninit: no drive connected\n"); 
#define NRETRY 5 return; 
} 
#define physical(d) ((minor(d)>>4)&0xF) /* physical unit number 6-15 */ SNIOB->gobyte=SN_CLRST; 
#define logical(d) (minor (d)&0x7) /* logical unit number, 6-7 */ SNIOB->mask =0x80; /* enable interrupts */ 
#define splsn spll if isnwaitrdy()) { 
printf("Unix sninit: command to clear status failed\n"); 
#define GETBUF (bp) splsn(y: \ } 
while (bp->b flags & B BUSY) { \ SNIOB->gobyte=SN_STMASK; 
bp->b_ flags |= B_WANTED; \ } 
(void) sleep{(caddr_t)bp, PRIBIO+1); \ 
1\ /* 
bp->b flags |= B_Busy; \ * check block 0 to see whether this is a boot disk 
sp1d() xf 
sncez (dev) 
#define FREEBUF (bp) splsni); \ register dev_t dev; 
if (bp->b flags & B WANTED) \ { <= 
wakeup((caddr_t)bp); \ static char hp{BSIZE]; 
bp->b_flags = 0; \ register struct buf *bp = ésnhbuf; 
sp10() register re = 0; 
struct buf snhbuf; /* header buffer (for reading block 0) */ GETBUF (bp) ; 
struct buf sncbuf; /* command buffer */ sn_bcount [boot (physical (dev))] = 0; /* for now set to nen-boot */ 
struct buf snrbuf; bp->b_bcount = BSIZE; 
struct iostat snstat[NSN]; bp->b_dev = dev | 7; /* set logical unit 7 */ 
struct lobuf sntab = tabinit(SN1,snstat); /* active buffer header */ bp->b_blkno = 0; 


#ifdef WBBLK 


char sn_bblk[512]; 

#endif WBBLK 

char sn_bcount (NSN*2]; /* 
char sn_ccount [NSN*2]; /* 
#define count (d) (d<<1) /* 
#define boot (d) ((a<<1)+1) /* 


char snbf; 


#ifdef KLUDGE 


char noerror; 


#endif KLUDGE 


struct s 


n_sizes { 
daddy _t sn_offset, sn_size; 


block opens */ 

character opens */ 

first char is how many opens */ 

2nd char {sn_bcount only) is whether a boot disk */ 


/* index into sn_fns array */ 


/* read before format is acceptable error */ 


bp->b_un.b addr = hp; 
bp->b_flags |= B READ; 
snbf = 1; 
snstrategy (bp) ; 
iowait (bp); 
if (bp->b_flags & B_ERROR) { 
ret+; 
snbf = 0; 
} 
FREEBUF (bp) 7 
return(re); 


don’t really check whether it’s a boot disk 
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xf 
/* ARGSUSED */ 
snconf (dev) 
dev_t dev; 
{ 
snbf = 1; 
return(0); 
} 


struct sn fns { 


int (*fne} (> 

} sn_fns[] = { 
sncz, /* the real routine to check block 0 */ 
snconf /* fake routine to confuse */ 


he 


snopen (dev) 
register dev_t dev; 
{ 
dey = physical (dev); 
if (dev >= NSN) { 
u.u_error = ENXIO; 
return(-1); 
} 
return (0); 
} 


snbopen (dev) 
register dev_t dev; 
{ 
if (snopen(dev) == 0) 
sn_bcount [count (physical (dev) )]++; 
} 


sncopen (dev) 
register dev_t dev; 
{ 
if (snopen(dev) == 0) 
sn_ccount [count (physical (dev) )]++: 
i 


snclose (dev) 
register dev_t dev; 
{ 
if (physical(dev) >= NSN) { 
u.U_error = ENXIO; 
return(-1); 
} 
snbf = 6; 
return (Q); 
} 


snbclose (dev) 
register dev_t dev; 
{ 
if (snclose(dev) == 0) 
sn_becount [count (physical (dev)})] = 0; 
} 


sneclose (dev) 
register dev_t dev; 
{ 
if (snclose(dev) == 0) 
sn_ccount [count (physical (dev))] = 4G; 
} 


snstrategy (bp) 
register struct buf *bp; 
{ 

register punit; 


punit = physical (bp->b_dev):; 

if (bp = ésncbuf) { /* if command */ 
snstat[punit].io misc++; /* errlog: */ 
splisn(); 
if (sntab.b actf — (struct buf *)NULL) /* set up links +/ 


sntab.b actf = bp; 
else 
sntab.b actl->av_forw = bp; 
sntab.b actl = bp; 
bp->av_forw = (struct buf *)NULL; 
} else { 
if ((*sn_fns[snbf].fnc) (pp->b_dev)) { 
bp->b_ flags |= B_ERROR; 
Lodone (bp) ; /* resets flags */ 
return; 
} 
snstat [punit].io_ops++; /* errlog: */ 
/* resid for disksort */ 
bp->b_resid = bp->b_blkno + sn_sizes[logical(bp->b_dev)].sn_offset; 
splsn(); = 
disksort (ésntab, bp); 
} 
if (sntab.b active = 4) 
snstart (); 


spl0(); 

} 

snstart () 

{ 
register struct buf *bp; 
register punit, lunit; 
register daddr_t bn; 
caddr_t addr; 

loop: 


if ({(bp = sntab.b actf) == (struct buf *)NULL) 
return; 
if (sntab.b active = 0) { 
sntab.b active = 1; 
if (bp {= &sncbuf) 
bp->b_resid = bp->b_bcount; 
; 
punit = physical (bp->b_dev); 
lunit = logical (bp->b_dev); 
blkacty |= (1<<SN1); 
if (bp = ésncbuf) { 


#ifdef WBBLK 


if (bp->b_resid == UIOCWBBLK) 
snwG (punit); 
else 


#endif WBBLK 


snemd (bp->b_resid); /* b resid holds the command */ 
return; 

} 
bn = bp->b_blkno + ({bp->b_bcount - bp->b_resid) >> 9); 
if (bp->b_resid < 512 |) 

bn >= sn_sizes[lunit].sn_size || 

((bn += sn_sizes[(lunit].sn_offset) >= SN_MAXBN) || 

(bn <= 200 &€ sn_bcount [boot (punit) ])) { 


#ifdef HOWFAR 


if (bp->b_resid != 0) 
printf("Unix snstart: blkno=%td resid=%d bn=%d\n", 
bp->b_blkno, bp->b_resid, bn); 


#endif HOWFAR 


} 


blkacty &= ~(1<<SN1); 
if (sntab.b errent) 
logberr(a&sntab, 0); /* errlog non-fatal errors */ 

sntab.b active = 0; 

sntab.b errent = 0; 

sntab.b actif = bp->av_forw; 

Lodone (bp) ; 

goto loop; 
} 
addr = bp->b_un.b addr + bp->b bcount - bp->b_resid: 
snrw(punit, bn, bp->b_flags&B_READ, addr); 


snread (dev) 
dev_t dev; 


{ 


physio(snstrategy, ésnrbuf, dev, B_READ); 
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} 


snwrite (dev) 
dev_t dev; 
{ 
physio(snstrategy, ésnrbuf, dev, B WRITE); 
} 


struct sn_blockmap { 
int maxblock, sectors; 
} sn_blockmap[] = { 
192, 12, 
i7¢6, ii, 
160, 10, 
144, 9, 
128, 8 
hs 


/* ARGSUSED */ 
snrw(unit, bn, rw, addr) /#* always called at priority sn 
int unit, rw; 
register daddr t bn; 
register caddr_t addr; 
{ 
register char *pm = (char *)SN_DATABUF; 
register struct sn_blockmap *p = sn_blockmap; 
register int i; 
int track, sector; 
char c = 0x00; 


track = Q; 
while( bn >= p->maxblock ) { 
bn -= p~>maxblock; 
track += 16; 
ptt; 
} 
sector = bn % p->sectors; 
track += bn / p->sectors; 
if (snwaitrdy()) 
return; 
SNIOB->side=c; 
SNIOB->drive=0x80; 
SNIOB~>track = track; 
SNIOB->sector= sector; 


if (rw) { 
SNIOB->cmd=SN READ; 
} else { ~ 
SNIOB->cmd=SN_WRITE; 
i= 511; 
do { 


(see splsn above) */ 


*pmt+t; /* cmos ram, every other byte */ 


*pmt++ = *addr++; 
} while (--i [= -1); 
} 
if (snwaitrdy ()) 
return; 
SNIOB->gobyte = SN_CMD; 
} 


/* ARGSUSED */ 
snioctl(dev, cmd, adr, flag) 
dev_t dev; 
caddr_t adr; 
{ 
int unit; 
register struct buf *bp; 


if ((unit = physical(dev)) >= NSN) { 

u.Uu_error = EFAULT; 

return; 
} 
bp = &sncbuf; 
switch (cmd) { 

case AL EJECT: 

if ((sn_becount [count (unit)] > G) 
tf (sn_ccount [count {unit)] > 1)} 


{ 


u.u_error = EINVAL; 
return; 
} 
break; 
case UIOCFORMAT: 
if (lsuser()) { 
u.u_error = EPERM; 
return; 
} 
#ifdef KLUDGE 
noerror=1; 
(void) (snez(9)); 
noerror=0; 
#endif KLUDGE 
break; 
#ifdef WBBLK 
case UIOCWBBLK: 
if (!suser()) { 
u.u_error = EPERM; 
return; 
} 


if (copyin(adr, (caddr_t)sn_bblk, sizeof{sn_bblk))) { 


u.u_error = EFAULT; 


return; 
} 
break; 
#endif WBBLK 
default: 
u.u_error = ENOTTY; 
return; 
} 
GETBUF (bp) 
bp->b_dev = dev; 
bp->b_resid = cmd; /* stash the command in 
u.u_error = 0; /* any error 


snstrategy (bp); 
iowait (bp) ; 
if (bp->b_flags & B_ERROR) 
u.u_errer = EIO; 
FREEBUF (bp) ; 
} 


resid */ 


on snez is OK */ 


snhemd (cmd) /* always called at priority sn (see splsn above) */ 


unsigned int cmd; 
{ 
if (snwaitrdy ()} 
return; 
switch (cmd) { 
case UIOCFORMAT: 
SNIOB->confirm=0xff; 
SNIOB->cmd=SN_FORMAT; 
break; 
case AL EJECT: 
SNIOB->cmd=SN_EJECT; 
break; 
default: 
return; 
} 
SNIOB->gobyte = SN_CMD; 
} 


#ifdef WBBLK 

snw0 (punit) 

int punit; 

{ 
register char *pm; 
struct sn_hdr sn_hdr: 
register char *addr; 
register i; 
char c = 0x00; 


if (snwaitrdy()) 
return; 
SNIOB->side=c; 
SNIOB->drive=0x80; 
SNIOB->track = 0; 
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SNIOB->sector= 4; 
SNIOB->cmd=SN_WRITE; 
sn_hdr.version = 0; 
sn_hdr.volume = 0; 
sn_hdr.fileid = FILEID; 
sn_hdr.relpg = 0; 
sn_hdr.duml = 6; 
sn_hdr.dum2 = 0; 

i = sizeof(sn_hdr) - 1; 


pm = (char *)SN_HDRBUF; /* write special 12-byte hdr */ 
addr = (char *)ésn_hdr; 
do { 

*pmt+; /* cmos ram, every other byte */ 


xpatt+ = (unsigned) *addr++; 
} while (--i != -1); 
i = 511; 


pm = (char *)SN DATABUF; /* write regular 512-byte buffer */ 


addr = (char *)sn_bblk; 
do { 
*pmt+; /* cmos ram, every other byte */ 
epomt+ = *addrt++; 
} while (--i [= -1); 
if (snwaitrdy (}) 
return; 
SNIOB->gobyte = SN CMD; 
} 
#endif WBBLK 


snintr () /* called at pl 1 */ 
{ 
struct buf *bp; 
register short i; 
register char *addr; 
register char *pm = (char *)SN DATABUF; 
int cnt; 
struct deverreg snreg[{1]; /* errlog: */ 


i = SNIOB->status; 
#ifdef HOWFAR 
if (i) 
printf£("Unix snintr: SNIOB->status = Ox%x\n",i); 
#endif HOWFAR 
if (sntab.b active == 0) { 
#ifdef HOWFAR 
printf("Unix snintr: b active==0\n"); 
#fendif HOWFAR = 
snbf = 0; /* force real check for boot disk */ 
SNIOB->mask = SN_CLEARMSK; 
SNIOB->gobyte=SN_CLRST; 
(void) snwaitrdy(); 
return; 
} 
if ((bp = sntab.b actf) == (struct buf *)NULL) { 
#ifdef HOWFAR 
printf("Unix snintr: bp==0\n"); 
#endif HOWFAR 
snbf = 0; /* force real check for boot disk */ 
SNIOB->mask = SN_CLEARMSK; 
SNIOB->gobyte=SN_CLRST; 
(void) snwaitrdy(); 


return; 
} 
ent = $12; 
if (i) { 

cnt = 6; 


/* errlog: */ 

sntab.io stp = &snstat [physical (bp->b dev)]; 

shreg(0].drvalue = i; ~ 

snreg[0].drname = "status"; 

snreg[0}.drbits = "status register"; 

fmtberr (ésntab, (unsigned) physical (bp->b_dev), 
(ansigned) (SNIOB->track), f* trk */ 
(unsigned) (SNIOB->side), /* head */ 
(unsigned) (SNIOB->sector), /* sector */ 
(long) (sizeof(snreg)/sizeof(snreg[0j)), /* regent 
ésnreg[0}); 


xf 


if (++sntab.b errent > NRETRY || bp = 
bp->b_ flags |= B_ERROR; 
logberr(ésntab, 1); /* errlog: 


} 


/* 
* because a single buffer can take several io 
* we leave it to snstart(}) to figure out when 
xf 
if (bp->b_flags&B_ERROR || bp == &sncbuf) { 
#ifdef KLUDGE 
if (!noerror) 
#endif KLUDGE 
if (bp->b flags & B_ERROR) { 


ésncbuf) {| 


*/ 


operations, 
it’s done 


printf("Unix: HARD I/O ERROR on /dev/s%dtc ", 
physical (bp->b_dev), logical (bp->b_dev)+’a’); 


if (bp != &sncbuf) 
printf("bn %d\n", 


bp->b_blkno + ({bp->b_bcount~-bp->b resid) >> 9) 
+ sn_sizes[logical (bp->b_dev)].sn_offset); 


else printf("\n"); 
} 
blkacty &= ~(1<<SN1); 
sntab.b active = 0; 
sntab.b errent = 0; 
sntab.b actf = bp->av_forw; 
iodone (bp); 
} else if (cnt && bp->b_flags & B READ) { 


addr = bp->b_un.b addr + bp->b_bcount - bp->b_resid; 


i = 511; 
do { 


*xpmtt; /* cmos ram, every other byte */ 


*addrt++ = *pmtt+; 
} while (--i != -1); 


if (!{bp->b_bikno + ((bp->b_bcount~bp->b_resid) >> 9) 


+ sn_sizes[logical(bp->b_dev}]. 


register caddr_t pm; 


register unsigned short fileid; 


pm = (char *)SN_HDRBUF; 
fileid = (*(pmt9))<<8; 
fileid |= *(pmtl1); 

if (fileid — FILEID) { 


sn_offset)) { /* bn=0 */ 


sn_beount [boot (physical (bp->b_dev))] = 1; 


#ifdef UNISOFT 


sn_bcount [boot (physical (bp->b_dev))] = 0; 


#endif UNISOFT 
} 
} 
} 
bp->b_resid -= cnt; 
SNIOB->mask = SN_CLEARMSK; 
SNIOB->gobyte=SN_CLRST; 
snstart ()>; 
} 


snwaitray () 
{ 
register int i, j, k; 


k = 1024; 
do { 
i = 1000; 


while (((PPADDR)->d_irb & DSKDIAG) == 0) { 


for (j=0;4<1024;4++); 
if (--i <0) { 


printf("Unix snwaitrdy: 


return(1); 
} 
} 
if (SNIOB->gobyte == 0) 
return (0); 
} while (--k); 
printf("Unix snwaitrdy: drive not ready\n"); 
return (1); 


/* floppy is busy */ 
/* don’t access flpy */ 


DSKDIAG not ready\n"); 
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} 


snprint (dev, str) 
char *str; 
{ 
printf("%s on sn drive %d, slice $d\n", str, (dev>>4)&0xF, devé0x7); 
} 


/* This is the eject driver 
* which uses a different major device so 
* it can tell whether the sony is being used or not 
*f 


#* ARGSUSED */ 
ejioctl(dev, cmd, adr, flag) 
dev_t dev; 
caddr_t adr; 
{ 
int unit; 
register struct buf *bp; 


if ((unit = physical(dev)) >= NSN) { 
u.u_error = EFAULT; 
return; 
} 
bp = ésncbuf; 
if ( cmd != AL EJECT ) { 
u.u_error = ENOTTY; 
return; 
} 
if ({sn_beount [count (unit)} {= 6) || (sn_ccount[count(unit)] != 0)) { 
u.u_error = EINVAL; 
return; 
} 
GETBUF (bp) ; 
bp->b_dev = dev; 
bp->b_resid = cmd; /* stash the command in resid */ 
snstrategy (bp) ; 
iowait((struct buf *)bp); 
if (bp->b_flags & B_ERROR) 
u.u_error = EIO; 
FREEBUF (bp) ; 
return; 
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/* @(#)subr.c 1.4 */ 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


/* 

Bmap 
by re 
inode 
When 


+ + Fe eH OH 


for u 
*f 
daddr_t 
bmap (ip, 
register 
{ 


“sys/param.h" 
“sys/types.h" 
“sys/sysmacros.h" 
“sys/systm.h®" 
"sys/inode.h" 
*“sys/dir.h® 
“sys/signal.h" 
“sys/user.hA" 
"“sys/errno.h" 
“sys/buf.h" 
“sys/mount .h™ 
*sys/var.h® 


defines the structure of file system storage 

turning the physical block number on a device given the 
and the logical block number in a file. 

convenient, it also leaves the physical 


block number of the next block of the file in u.u_rablock 


se in read-ahead. 


readflg) 
struct inode *ip; 


register struct user *up; 
register i; 

register dev; 

daddr_t bn; 

daddr_ t nb, *bap: 

int raflag; 


up = éu; 
up->u_rablock = 0; 
raflag = 0; 
{ 
register sz, rem, type; 


type = ip->i_mode&IFMT; 
if (type = IFBLK) { 
dev = (dev_t)ip->i_rdev; 
for (i=0; i<v.v_mount; i++) 
if ((mount[i].m_flags==MINUSE) && 


{brdev (mount [i] .m_dev) ==brdev (dev) )) { 


dev = mount[i].m_dev; 
break; 
} 

} else 

dev = ip->i_dev; 
up->u_pbdev = dev; 
bn = FsBNO(dev, up->u_offset); 
if (bn < 0) { 

up->u_error = EFBIG; 

return ((daddr_t)-1); 
} 
if (({ip->i_lastr + 1) == bn) 

raflagt+; 
up->u_pboff = FsBOFF(dev, up->u_offset); 
sz = FSBSIZE(dev) - up->u_pboff; 
if (up->u_count < sz) { 

sz = up->u_count; 

raflag = 0; 
} else 

ip->i_lastr = bn; 


up->u_pbsize = sz; 
if (type == IFBLK) { 
if (raflag) 
up->u_rablock = bn + 1; 
return (bn); 
) 
if (readflg) { 
if (type == IFIFO) { 
raflag = 0; 
rem = ip->i size; 


} else 
rem = ip->i_size - up->u_offset; 

if {rem < 0) 
rem = 0; 

if (rem < sz) 
sz = rem; 

if ((up->u_pbsize = sz) = 0) 
return((daddr_t)-1); 

} else { 

if (bn >= FsPTOL(dev, up->u_limit)) { 
up->u_error = EFBIG; 
return ((daddr_t)-1)}; 


} 

{ 

register struct buf *bp; 
register j, sh; 


/* 
* blocks 0..NADDR-4 are direct blocks 
*f 
if {on < NADDR-3) { 
i = bn; 
nb = ip->i_addr{il; 
if (nb = 0) { 
if (readflg || (bp = alloc(dev) )==NULL) 
return ((daddr _t)-1); 
nb = FsPTOL(dev, bp->b_blkno); 
bdawrite (bp); 
ip->i_addr{i] = nb; 
ip->i_flag f= IUPD]|ICHG; 
} 
if ((i < NADDR-4) && raflag) 
up->u_rableck = ip->i_addr [itl]; 
return (nb); 
} 
/* 


* addresses NADDR-3, NADDR-2, and NADDR-1 
* have single, double, triple indirect blocks. 
* the first step is to determine 
* how many levels of indirection. 
xf 
sh = Q; 
nb = 1; 
bn -= NADDR-3; 
for(j=3; 3>0; j--) { 
sh t= FsNSHIFT (dev); 
nb <<= FSNSHIFT (dev); 
if (bn < nb) 
break; 
bn -= nb; 
} 
if (j = 9) { 
up->u_error = EFBIG; 
return ( (daddr_t)-1); 
} 


/* 
* fetch the address from the inode 
x] 
nb = ip->i_addr(NADDR-j]; 
if (nb = 0) { 
if {readflg || (bp = alloc(dev))==NULL) 
return ((daddr_t)-1); 
nb ~ FsPTOL(dev, bp->b_blkno); 
bwrite (bp) ; 
ip->i_addr[{NADDR-j] = nb; 
ip->i_flag |= IUPD|ICHG; 
} 


j* 
* fetch through the indirect blocks 
*/ 
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xf 


for(; j<=3; j++) { 
bp = bread(dev, nb); 
if (up->u_error) { 
brelse (bp); 
return( (daddr_t)-1); 
} 
bap = bp->b_un.b daddr; 
sh -= FsNSHIFT (dev) ; 
i = {bn>>sh) & FSNMASK (dev); 
nb = bap[i]; 
if (nb = 0) { 
register struct buf *nbp; 


if (readflg || (nbp = alloc(dev))==NULL) 
brelse (bp) ; 
return((daddr_t)-1); 

} 

nb = FsPTOL(dev, nbp->b_blkno); 

if (j <3) 
bwrite (nbp); 

else 
bdwrite (nbp); 

bap[i] = nb; 

bdwrite (bp); 


} else 
brelse (bp); 
} 
{* 
* calculate read-ahead. 
*f 


if ((i < FsNINDIR(dev)-1) && raflag) 
up->u_rablock = bap[itll]; 

return (nb) ; 

} 


Pass back c to the user at his location u_base; 
update u_base, u_count, and u_offset. Return -1 
on the last character of the user’s read. 

u_base is in the user data space. 


passc(c) 
register c; 


{ 


{* 


* 
* 
x 
bg 
* 


*/ 


register struct user *up; 


up = &u; 

if (subyte(up->u_base, c) < 0) { 
up~>u_error = EFAULT; 
return (-1); 

} 

up->u_count--; 

up->u_offsett++; 

up->u_baset+t+; 

return (up->u_count == 0? -1: 0); 


Pick up and return the next character from the user’s 
write call at location u_base; 

update u_base, u_count, and u_offset. Return -1 

when u_count is exhausted. 

u_base is in the user data space. 


cpass() 


{ 


register struct user *up; 
register c; 


up = &u; 

if (up->u_count == 0) 
return(-1); 

if ((c = fubyte(up->u_base)) < 0) { 
up->u_error = EFAULT; 


{ 


return ({-1); 
} 
up->u_count--; 
up->u_offsett+; 
up->u_base++; 
returni(c); 
} 


fe 
* Routine which sets a user error; placed in 

* illegal entries in the bdevsw and cdevsw tables. 
a 

nodev () 

{ 


u.Uu_error = ENODEV; 
} 


fk 
x Null routine; placed in insignificant entries 
* in the bdevsw and cdevsw tables. 


*/ 
nulldev{) 
{ 
} 
f* 
* Max function 
xf 
Max(a, b} 
unsigned a, b; 
{ 
if (a >= b) 
return(a); 
return (b); 
} 
f* 
* Min function 
xf 
min (a, b) 


unsigned a, b; 
{ 
if (a <= b) 
return{a); 
return (b); 
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/* @(#)sys.c 1.2 */ 


{* 

* 

*/ 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


indirect driver for controlling tty. 


“sys/param.h" 
“sys/types.h" 
“sys/sysmacros.h" 
“sys/dir.h" 
“sys/signal.h* 
“sys/user.h" 
“sys/errno.h" 
"sys/conf.h" 
“sys/proc.h" 


/* ARGSUSED */ 
syopen(dev, flag) 


{ 


} 


if (sycheck()) 
(*cdevsw[ (short) major (u.u_ttyd)}].d_open) (minor({u.u_ttyd), flag); 


/* ARGSUSED */ 
syread (dev) 


{ 


} 


if (sycheck{)) 
(*cdevsw{ (short) major (u.u_ttyd)].d_read) (minor (u.u_ttyd)); 


/* ARGSUSED */ 
sywrite (dev) 


{ 


} 


if (sycheck{)) 
(*cdevsw{ (short) major (u.u_ttyd)].d_write) (minor (u.u_ttyd)); 


/* ARGSUSED */ 
syloctl(dev, cmd, arg, mode) 


{ 


} 


sycheck ( 
{ 


Af (sycheck()) 
(*cdevsw[ (short) major (u.u_ttyd)].d_ioctl) (minor(u.u_ttyd), cmd, arg, mode); 


) 


if (u.u_ttyp == NULL) { 


} 


u.u_error = ENXIO; 
return (0); 


if (*u.u_ttyp != u.u_procp->p_pgrp) { 


} 


u.u_error = EIO; 
return (0); 


return (1); 
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/* #define HOWFAR */ 


/* @(#)sysl.c 1.8 */ 
#include “sys/param.h" 
#include “sys/config.h" 
#include "sys/mmu.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/map.h" 
#include “sys/dir.h®" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include "sys/proc.h" 
#include "sys/context.h" 
#include “sys/buf.h" 
#include “sys/reg.h" 
#include “sys/file.h" 
#include "sys/inode.h" 
#include "sys/seg.h" 
#include “sys/acct.h" 
#include "sys/sysinfo.h" 
f#include “sys/var.h" 
#include “sys/ipc.h" 
#include “sys/shm.h" 
#include “sys/scat.h" 


fe 
* exec system call, with and without environments. 
xf 

struct execa { 


char *fname; 
char *kkargp; 
char **envp; 


((struct execa *)u.u_ap)->envp = NULL; 
exece (); 


#define NCABLK (NCARGS+BSIZE~1) /BSIZE 
exece () 
{ 
register unsigned ne; 
register char *cp; 
register struct buf *bp; 
register struct execa *uap; 
register struct user *up; 
int na, ne, ucp, ap, c, bno; 
struct inode *ip; 
extern struct inode *gethead(); 
char *namep; 
extern int (*putchar) ():; 


sysinfo.sysexectt+; 
if ({ip = gethead()) == NULL) 
return; 
up = éu; 
bp = 0; na = 0; nc = 0; ne = 0; 
uap = (struct execa *)up->u_ap; 
/* collect arglist */ 
if ((bno = swapalloc(NCABLK, 0)) == 0) { 
printf("No swap space for exec args\n"); 
iput (ip); 
up->u_error = ENOMEM; 
return; 
} 
if (uap->argp) for (::) { 
ap = NULL; 
if (uap->argp) { 
ap = fuword({(caddr_t)uap->argp); 
uap->argptt+; 


1986 


} 
if (bp) 


bp = 6; 


} 
if (ap==NULL £& uap->envp) { 
uap->argp = NULL; 
if ((ap = fuword((caddr_t)uap->envp)) == NULL) 
break; 
uap->envptt+; 
ne+t+; 
} 
if (ap==NULL) 
break; 
nat+t; 
if (ap == -1) 
up->u_error = EFAULT; 
do { 
if (nc >= NCARGS-1) 
up->u_error = B2BIG; 
if ((c = fubyte((caddr_t)aptt+)) < 0) 
up~>u_error = EFAULT; 
if (up->u_error) 
goto bad; 
if ((nmc&BMASK) =— 0) { 
if (bp) 
bdwrite (bp); 
bp = getblk(swapdev, 





(daddr_t) (swplotbno+ (nc>>BSHIFT) )); 


cp = bp->b_un.b addr; 
} 
ne++; 
*ept+ = c; 
} while (c>6); 


bdwrite (bp); 


ne = (nc + NBPW-1) & ~(NBPW-1); 
getxfile(ip, (int) (nc + sizeof(char *)*na)); 
if (up->u_error) { 


} 


printf(“exec error: u_error $d u_dent.d_name “, up->u_error); 
for (namep = éup->u_dent.d_name[0]; namep && *namep && namep < éup->u_dent.d_name[DIRS 


{*putchar) (*namep) ; 
(*putchar) (\n‘); 
psignal{up->u_procp, SIGKILL); 
goto bad; 


/* copy back arglist */ 


ucp = v.v_uend - nc — NBPW; 
ap = ucp - na*NBPW - 3*NBPW; 
up->u_arQ{SP] = ap; 


#ifdef HOWFAR 


printf("Setting new stack pointer to Ox&x\n", ap); 


#endif 


(void) suword((caddr_t)ap, na-ne); 


ne = 0; 


for (37) 


{ 
ap += NBPW; 
if (na==ne) { 
ap += NBPW; 
} 
if (--na < 0) 
break; 
(void) suword({(caddr_t)ap, ucp); 
de { 
if ((nc&BMASK) == 0) { 
if (bp) { 
bp->b flags |= B_AGE; 
bp->b_flags &= ~B_DELWRI; 
brelse({bp): 
} 
bp = bread (swapdev, 


(daddr t) (swplotbnot (ne>>BSHIFT})})}) 


bp->b_flags |= B_AGE; 
bp->b_flags &£= ~B_DELWRI; 
cp = bp->b_un.b addr; 


> 
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(void) subyte((caddr t)ucpit+, (c = *eptt)); if (access(ip, IEXEC) || 
net+t+; (ip->i_mode & IFMT) != IFREG || 
} while (c&0377); {ip->i_mode & (IEXEC| (IEXEC>>3) | (IEXEC>>6})) == 9) { 
} up->u_error = EACCES; 
(void) suword((caddr_t)ap, 0); goto bad; 
if ({long)ucp é 1) } 
(void) subyte((caddr_t)ucpt+, 0); /* 
(void) suword((caddr_t)ucp, 0); * read in first few bytes of file for segment sizes 
setregs(); * ux mag = 407/410/411 
if (bp) { * 467 is plain executable 
bp->b_flags |= B_AGE; * 410 is RO text 
bp->b_ flags &= ~B_DELWRI; * 411 is separated ID 
brelse (bp); * 570 Common object 
} = “$75 
iput (ip); * set ux _tstart to start of text portion 
mfree(swapmap, NCABLK, bno}; af 
return; ep = s&exdata; 
bad: up->u_base = (caddr_t)ep; 
if (bp) up~>u_count = sizeof (*ep); 
brelse (bp); up->u_offset = 0; 
iput (ip); up->u_segflg = 1; 
for (nc = Q; nce < NCABLK; nett) { readi (ip); 
bp = getbik(swapdev, (daddr_t) (swplotbno+tnc)); #ifdef notdef 
bp->b_flags |= B_AGE; if (ep->ux_mag == 6570 [| ep->ux_mag == 0575) { 
bp->b_flags &= ~B_DELWRI; up->u_base = {caddr_t)ep; 
brelse (bp); up->u_count = sizeof (*ep); 
} up->u_offset = sizeof(struct filhd); 
mfree(swapmap, NCABLK, bno); up->u_segflg = 1; 


} 


struct inode * 


readi (ip); 
ep->ux_tstart = sizeof(strnuct nacut) + 
sizeof(struct filhd) + (3 * sizeof(struct scnhdr))}; 


gethead () ep->ux_entloc = ep->ux_ssize; 
{ } else { 
register struct exdata *ep; ep->ux_tstart = sizeof (up->u_exdata); 
register struct inode *ip; } 
register unsigned ds, ts; #endif 
register struct user *up; up->u_segflg = 4; 
struct exdata exdata; if (up->u_count !=0) 
ep->ux_mag = GO; 
struct naout { if (ep->ux_mag — 6407) { 
short magic; ds = btoc{{(long)ep->ux_tsize + 
short vstamp; (long) ep->ux_dsize + (long) ep->ux_bsize); 
long tsize, ts = 0; 
dsize, ep->ux_dsize += ep->ux_tsize; 
bsize, ep->ux_tsize = 0; 
entry, } else { 
ts, ts = btoc(ep->ux_tsize); 
ds; ds = btoc(ep->ux_dsizetep->ux_bsize) ; 
}3 if ((ip->i_flag&ITEXT)==0 && ip->i_count!=1) { 
register struct file *fp; 
struct filhd { 
unsigned short magic; for (fp = file; fp < (struct file *)v.ve_file: fptt) 
unsigned short nscns; if (fp->f_count && fp->f_inode == ip && 
long timdat, (fp->f_flagéFWRITE)) { 
symptr, up->u_error = ETXTBSY; 
nsyms; goto bad; 
unsigned short opthdr, } 
flags; } 
}; if (ep->ux_mag != 0410) { 
up->u_error = ENOEXEC; 
struct scnhdr { goto bad; 
char s_name[8]; } 
long s_paddr, } 
s_vaddr, (void) chksize(ts, ds, (unsigned) (SSIZEtbtoc(NCARGS~1))); 
s_ size, up->u_exdata = exdata; 
s_scnptr, bad: 
s_relptr, if {up->u_error) { 
s_innoptr; iput (ip); 
unsigned short s_nreloc, ip = NULL: 
s3_ninno; } 
long s_ flags; return(ip); 
}: } 
if ((ip = namei(uchar, 0)) == NULL) j* 
return (NULL); * Read in and set up memory for executed file. 
up = &u; af 
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getxfile(ip, nargc} 

register struct inode *ip; 

{ 
register struct exdata *ep; 
register struct user *up; 
register struct proc *p; 
register unsigned ts, ds, ss; 
register i; 


up = &u; 
p = up->u_procp; 
ep = é&up->u_exdata; 
#ifdef HOWFAR 
printf ("getxfile:reading in program\n"); 
#endif 
shmexec(); 
(vold) punlock(); 
xfree(); 
ts = btoc(ep->ux_tsize); 
ds = btec(ep->ux_dsize + ep->ux_bsize); 
ss = SSIZEB + ¥v.v_usize + btoc(nargc); 
i = v.v_usizetdstss; 
expand ({i); 
(void) estabur((unsigned)0, ds, ss, 6, RO); 
procclear (p); 
f* 
while (--i >= v.v_usize) 
Clearseg( (int) (p->p_addrti)); 
af 
xalloc{ip): 
up->u_prof.pr_ scale = 4; 


/* 
* read in data segment 
xf 


(void) estabur(ts, ds, (unsigned)0, 9, RO); 
if (v.v_doffset} 
up->u_base = (caddr t)v.v_doffset; 
else 
up->u_base = {caddr t)iv.v_ustart + cteb{stcc(ctos{ts}}})}; 
up->u_offset = sizeof(up->u_exdata) + ep->ux_tsize; 
up->u_count = ep->ux_dsize; 
readi (ip); 
if (up->u_count !=0) 
up->u_error = EFAULT; 


/* 
* set SUID/SGID protections, if no tracing 
xf 
if ((p->p_flag&STRC)==0) { 
if (ip->i_modesISUID) 
up->u_uid = ip->i_uid; 
if (ip->1i_modeaéISGID) 
up->u_gid = ip->i_gid; 
p->p_suid = up->u_uid; 
} else 
psignal(p, SIGTRAP); 
up->u_tsize = ts; 
up->u_dsize = ds; 
up->u_ssize = ss; 
(void) estabur(ts, ds, ss, 0, RO); 
} 


{* 

* Clear registers on exec 

*/ 

setregs() 

{ 
register struct user *up; 
register char *cp; 
register int *rp; 
register i; 


up = &4u; 
for (rp = &up->u_signal[0]: rp < &up->u_signal[NSIGj; rpt+) 


if ((*rp @ 1) = 0) 
*rp = 0; 
for (cp = é&regloc[0]; cp < éregloc[i5];: ) 
up->u_arO[*cpt+) = 0; 
up->u_ar0[PC] = up->u_exdata.ux_entloc & ~01; 
#ifdef HOWFAR 
printf (“New pc = 0x$x\n", up->u_arO[PC]); 


tendif 
for (i=O; i<NOFILE; i++) { 
if ((up->u_pofile[i]&EXCLOSE) && up->u_ofilefi] != NULL) { 
closef (up->u_ofile[il]); 
up->u_ofile[i] = NULL; 
} 
} 
fe 
* Remember file name for accounting. 
xf 
up->u_acflag &= ~AFORK; 
beopy{{caddr_t)up->u_dent.d_ name, (caddr_t)up->u_comm, DIRSI2Z); 
} 
fs 
* clear the data space for a process 
x} 
#ifdef NONSCATLOAD 
procclear{p) 


struct proc *p; 
{ 
register i, a; 


a = p->p_addr; 
i = p->p_size; 
while(--i >= v.v_usize) 
clearseg{at+i);: 
} 
#else 
procclear {p) 
struct proc *p; 
{ 
register struct scatter *s; 
register i, al; 


Ss = scatmap; 

al = p->p_scat; 

for (i=0; i<v.v_usize; i++) 
al = s{al].sc_index; 

while (al != SCATEND) { 
clearseg(ixtoc(al)); 
al = s({al].sc_index; 


} 
$endif 


{* 
* exit system call: 
* pass back caller’s arg 


xf 
rexit () 
{ 

register struct a { 

int rval; 

} *uap; 

uap = (struct a *)u.u_ap; 

exit ((uap->rval & 0377) << 8); 
} 
/* 


* Release resources. 
* Enter zombie state. 
* Wake up parent and init processes, 
* and dispose of children. 
*/ 
exit (rv) 
{ 
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register struct user *up; 
register int i; 
register struct proc *p, *q; 


#ifdef mc6ésssl /* MC68881 floating-point coprocessor */ 


extern short fp881; /* is there an MC68881? */ 


fendif mc63331 


up = &u; 
p = up->u_procp; 
p->p_flag &= ~(STRC); 
p->p_clktim = 0; 
for {i=0; i<NSIG; i++) 
up->u_signal[i] = 1; 
expandiv.v_usize); 
(void) estabur((unsigned)0, (unsigned)O, (unsigned)0, 0, RO); 
if ((p->p_pid == p->p_pgrp) 
&& (up->u_ttyp != NULL) 
&& (*up->u_ttyp == p->p_pgrp)) { 
*up->u_ttyp = 0; 
signal (p->p_pgrp, SIGHUP); 
} 
p->p_pgorp = 0; 
for (1=0; i<NOFILE; i++) { 
if (up->u_ofile[i] != NULL) 
closef (up->u_ofile[i]); 
} 
(void) punlock(); 
plock (up->u_cdir); 
iput (up->u_cdir); 
if (up->u_rdir) { 
plock (up->u_rdir); 
iput (up->u_rdir); 
} 


#ifdef FLOAT /* sky floating point board */ 

j* 

* If this process was using the SKY FFP, restore 

= the board to a known state. 

*f 

if (up->u_fpinuse) 

Savipi}; 

#endif 
#ifdef mc68881 #* MC68881 floating-point coprocessor */ 

{* 


* If there is an MC68881, save the internal state and user 
* registers so they’1l be available in a core image. 


* Then reset the coprocessor by restoring it to a null state. 


*f 
Lf (fp8s1) { 
fpsave(); 
fpreset (); 
} 


#endif mc68881 


[* 
* call OEM supplied subroutine on process exit 
*f 

oemexit (p) ; 


xfree(); 


semexit ({); 
shmexit (); 


acct (rv): 


#ifdef NONSCATLOAD 


#else 


tendif 


mfree(coremap, p->p_size, p->p addr); 


memfree(p->p scat); 
p->p_scat = SCATEND; 


cxrelse(p->p context) ; 

p->p_stat = SZOMB; 

((struct xproc *)p)->xp_ xstat = rv; 

((struct xproc *)p)->xp_utime ~ up->u_cutime + up->u_utime; 
((struct xproc *)p)->ap_stime = up->u_cstime + up->u_stime; 


for (q = éproc{1]: q < (struct proc *)v.ve_proc; qtt) { 
if (p->p_pid — q->p_ppid) { 
q->p_ppid = 1; 
if (q->p_stat == SZOMB) 
psignal (&proc[1], SIGCLD); 
if tg->p stat = SSTOP) 
setrun (q); 
} else 
if (p->p_ppid = q->p_pid) 
psignal(q, SIGCLD); 
if (p->p_pid == q->p_pgrp) 
q->p_pgrp = 0: 
} 
#ifdef NONSCATLOAD 
resume (proc[0].p_addr, up->u_qsav); 
#else 
resume (ixtoc{proc{0].p scat), up->u_qsav); 
#endif 
/* no deposit, no return */ 
} 


* Wait system call. 

* Search for a terminated (zombie) child, 

* finally lay it to rest, and collect its status. 
* Look also for stopped (traced) children, 

* and pass back status from them. 


xf 
wait () 
{ 
register struct user *up; 
register f; 
register struct proc *p; 
up = &u; 
loop: 
f= 0; 
for (p = éproc{l]: p < (struct proc *)v.ve_ proc; ptt) 
if (p->p_ppid — up->u_procp->p_pid) { 
f++; 
if (p->p_stat = SZOMB) { 
freeproc(p, 1); 
return; 
} 
if (p->p_stat == SSTOP) { 
if ((p->p_flagsSWTED) = 0) { 
p->p_flag |= SWTED; 
up->u_rvall = p->p_pid; 
up~>u_rval2 = (fsigi(p)<<8) | 0177; 
return; 
} 
continue; 
} 
} 
if (f) { 
(void) sleep((caddr_t)up->u_procp, PWAIT); 
goto loop; 
} 
up->u_error = ECHILD; 
} 
j* 
* Remove zombie children from the process table. 
*/ 


freeproc(p, flag) 
register struct proc *p; 
{ 
register struct user *up; 


up ~ &u; 
if (flag) { 
register n; 


N = up->u_procp->p_cpu + p->p cpu; 
if (n > 80) 
n= 80; 
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/* 
* fork 
«f 

fork() 
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up->Uu_procp->p cpu = n; 

up->u_rvall = p->p pid; 

up->u_rval2 = ((struct xproc *)p)->xp_xstat; 
} 
up->u_cutime t= ((struct xproc *)p)->xp_utime; 
up->u_cstime += ({struct xproc *}p)}->xp_stime; 
p->p_stat = NULL; 
p->p_pid = 0; 
p->p_ppid = 0; 
p->p_sig = OL: 
p->p_flag = 0; 
Pp->p_wehan = 0; 


system call. 


register struct user *up; 
register a, i: 
int sz, xsize[NSCATSWAP], xaddr [NSCATSWAP]; 


up = é&u; 

sysinfo.sysfork++; 
i* 

* Disallow if 

No processes at all; 

not su and too many procs owned; or 
not su and would take last slot; or 
not su and no space on swap. 
Part of check done in newproc{). 


+ ee He 


xf 
if (up->u_uid && up->u_ruid) { 


if ((a = malloc(swapmap, ctod{maxmem))) == NULL) { 


sz = ctod(maxmem) ; 
for (i = 0; i < NSCATSWAP; i++) 
if (sz = 0) { 
xsize[i] = 0; 
break; 
} else { 


a = MIN(mallocl(swapmap), sz); 


xsize[{i] = a; 


xaddr[i] = malloc(swapmap, a); 


SZ ~-= a; 
} 
for {i = 0; i < NSCATSWAP; i++) 
if (xsize[i] == 0) 
break; 
else 


mfree(swapmap, xsize{i], xaddr[i]); 


if (sz != 0) { 


printf("Not enough swap space to fork\n"); 


up->u_error = ENOMEM; 
goto out; 

} 

} else 
mfree{swapmap, ctod(maxmem), a); 

} 
switch( newproc(1) }) { 

case 1: /* child -- successful newproc */ 
up->u_rvall = up->u_procp->p_ppid: 
up->u_rval2 = 1; /* child */ 
up->u_start = time; 
up->u_ticks = lbolt; 
up->u_mem = v 
up->u_ior = 0; 
up->u_iow = 0; 
up->u_ioch = 0; 
up->u_cstime = 0; 
up->u_stime = 0; 
up->u_cutime = 0; 
up->u_utime = 0; 
up->u_acflag = AFORK; 
return; 

case (: /* parent -- successful newproc */ 


-v_usize + procsize(up->u_procp); 


/* up->u_rvall = pid-of-child; */ 
break; 
defanit: /* unsuccessful newproc */ 
up->n_error = EAGAIN; 
break; 
} 


out: 
up->u_rval2 = 0; /* parent */ 
up->u_ar6@[PC] t= 2; 
} 
/* 
* break system call. 
* -- bad planning: “break" is a dirty word in C. 
xf 
#ifdef NONSCATLOAD 
sbreak () 
{ 


bigger: 


#else 


register struct user *up; 
struct a { 
unsigned nsiz; 
he 
register n, d, a; 


int i: 
up = &u; 
{* 


* set n to new data size 
* set d to new-old 
* set n to new total size 


nf 


if (v.v_doffset) 
n = btoc{ (int) (({struct a *)up->u_ap)->nsiz)) 
btoc(v.v_doffset) ; 


else { 
n = btoc{(int) ((({struct a *)up->u_ap)->nsiz)) 
btoc(v.v_ustart); 
n -= stoc(ctos{up->u_tsize)); 
} 
if (n < Q) 
n= 06; 
d =n - up->u_dsize; 
if (d == 0) 
return; 


n t= v.v_usizetup->u_ssize; 
if (chksize(up->u_tsize, up->u_dsizetd, up->u_ssize)) 
return; 
up->u_dsize t= d; 
(void) estabur(up->u_tsize, up->u_dsize, up->u_ssize, 
Af (d > QO) 
goto bigger; 
a = up->u_procp->p_addr + n - up->u_ssize; 
i=n; 
if (ad < 0) { 
n = up->u_ssize; 
while (n--) { 
copyseg(a-d, a); 
att; 
} 
i 
expand (i); 
return; 


expand ({n); 
a = up->u_procp->p_addr + n; 
h = up~>u_ssize; 
while (n--) { 
a--; 
copyseg(a-d, a); 
} 
while (d--) 
Clearseg(--a); 


0, RO}; 
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sbreak {} 


{ 
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register struct scatter *s; 
register struct user *up; 
struct a { 
unsigned nsiz; 
Ie 
register n, d, al, a2; 
int i; 
short t; 


up = &u; 


* set n to new data size 
x set d to new-old 

* set n to new total size 
xf 


n = btoc( (int) (((struct a *)up->u_ap)->nsiz)) - btoc(v.v_ustart); 


n -™ stoc(ctos(up->u_tsize)); 
if (n < 0) 
n= 0; 
d =n - up->u_dsize; 
lf (d = 0) 
return; 
n += v.v_usizetup->u_ssize; 
if (chksize(up->u_tsize, up->u_dsize+d, up->u_ssize)) 
return; 
s = scatmap; 
up->u_dsize t= d; 
if (ad > 6) 
goto bigger; 
nscatfree -= d; /* note: d is negative */ 
up~>u_procp->p_size = n; 
al = up->u_procp->p_scat; 
nh = up->u_dsize + v.v_usize; 
for (i=1; i<n; i++) 
al = s{al].sc_index; 
a2 = al; 
while (d++ < 6) 
a2 = s{a2].sc_index; 
t = scatfreelist.sc_index; 
scatfreelist.sc_index = s[al].sc_index; 
s({al].sc_index = s[a2].sc_index; 
s{a2].sc_index = t; 


(void) estabur(up->u_tsize, up->u_dsize, up->u_ssize, 0, 


#ifdef OLD 


#endif 


bigger: 


a = up->u_procp->p_ addr + n - up->u_ssize; 
i =n; 
if (a <0) { 
Nn = up->u_ssize; 
while {n--) { 
copyseg(a-d, a); 
att; 
} 
} 
expand (i); 


up->u_procp->p flag &= ~SCONTIG; 
return; 


expand (n); 
al = up->u_procp->p_ scat; 
{* 7 ~ 
* find last index of original data space 
*f 
n= up->u_dsize + v.v_usize - d; 
if (n == 0) 
printf ("sbreak:original size is zero\n"); 
for (i=l; i<n; i++) 
al =~ sf{al].sc_index; 
/* 
* move stack if necessary 
*/ 
if (up->u_ssize !=0 && (int) (up->u_dsize-d) <= 0) 


RO); 


printf ("sbreak:bigger: unusual condition #1\n"); 
if (up->u_ssize = 0) { 
while (d-- > 0) 
clearseg(ixtoc(al = s[al].sc_index)); 
if (s[al].sc_index != SCATEND) 
printf (“sbreak:not at end of list\n"); 
} else { 
{* 
* find end of original stack space 
*f 
a2 = al; 
for (i=0; i<up->u_ssize; i++) 
a2 = s({a2].sc_index; 
t = s{al].sc_index; 
s{a1].sc_index = s[a2].sc_index; 
s{a2].sc_index = SCATEND; 
while (d-- > 0) 
clearseg{ixtoc(al = s[al].sc_index)); 
sf{al].sc_index = t; 
} 
(void) estabur(up->u_tsize, up->u_dsize, up->u_ssize, 0, RO); 
up~>u_procp->p flag &= ~SCONTIG; 
#ifdef OLD 
a = up->u_procp->p_addr + n; 
nh = up->u_ssize; 
while (n--) { 
a--; 
cepyseg{a-d, a): 
} 
while (d--) 
clearseg{--a}; 
#endif 
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/* @(#)sys2.c 1.6 */ 
#include “sys/param.h" 
#include “sys/types.h" 
#include "sys/systm.h" 
#include “sys/dir.h" 
finclude "sys/signal.h" 
#include “sys/user.h" 
#include “sys/proc.h" 
finclude “sys/errno.h" 
#include “sys/file.h" 
#include “sys/inode.h" 
#include "sys/sysinfo.h" 
#ifdef UCB NET 

#include "net/misc.h" 
#include “net/socket.h" 
#include “net/socketvar.h" 
fendif 


{* 
* read system call 
xf 
read()} 
{ 
sysinfo.sysread++; 
rdwr (FREAD) ; 
} 


/* 
* write system call 
af 
write ({) 
{ 
sysinfo.syswritet++; 
rawr (FWRITE) ; 


* common code for read and write calls: 
* check permissions, set base, count, and offset, 
* and switch out to readi or writei code. 
nf 
rdwr (mode) 
register mode; 
{ 
register struct user *up; 
register struct file *fp; 
register struct inode *ip; 
register struct a { 
int fdes; 
char *cbuf; 
unsigned count; 
} *uap; 
register int type: 


up = éu; 

uap = (struct a *)up->u_ap; 

fp = getf(uap->fdes) ; 

if (fp == NULL) 
return; 

if ((fp->f_flagemode) == 0) { 
up~>u_error = EBADF; 
return; 

} 

up->u_base = (caddr_t)uap->cbuf; 

up->u_count = uap->count; 

up->u_segflg = 0; 

up->u_fmode = fp->f_ flag; 

ip = fp->f_inode; 

type = ip->i_mode&gIFMT; 


/* 
a Fix from ROOT: check for file iock before attempting 
7 to lock the inode. 
xf 


if (type=-IFREG) { 
if ((up->u_fmode&FAPPEND) && (mode == FWRITE)) 


fp->f offset = ip->i_size; 
up~>u_offset = fp->f_offset; 
if (ip->i_locklist && 
locked{1, ip, up->u_offset, 
{off_t) (up->v_offsett+up->u_count))) 
return; 
} 
#ifdef UCB_NET 
if (fp->f_flag & FSOCKET) { 
if (mode == FREAD) 


u.u_error = soreceive((struct socket *)fp->f_socket, (struct sockaddr *)4); 


else 


tt 


u.u_error sosend({((struct socket *) fp->f_socket, 
} else 
#endif 
{ 
if (type==IFREG || type==IFDIR) { 
Pplock{ip); 
if ((up->u_fmodeé&FAPPEND) && (mode == FWRITE)) 
fp->f_offset = ip->i_size; 
} else if (type == IFIFO) { 
plock (ip); 
fp->f_offset = 0; 
} 
up->u_offset = fp->f_offset; 
if (mode == FREAD) 
readi(ip); 
else 
writei (ip}; 
if (type==IFREG || type==IFDIR || type=—-IFIFO) 
prele{ip); 
fp->f_offset += uap->count-up~>u_count; 
} 
up->u_rvall = uap->count-up->u_count; 
up->u_loch += (unsigned) up->u_rvall; 
if (mode == FREAD) 
sysinfo.readch t= (unsigned) up->u_rvall; 


else 
sysinfo.writech += (unsigned) up->u_rvall; 
} 
f* 
* open system call 
*/ 
open {) 
{ 
register struct a { 
char *xfname; 
int mode; 
int crtmode; 
} *uap-; 
uap = (struct a *)u.u_ap; 
copen (uap->mode-FOPEN, uap->crtmode) ; 
} 
/* 
* creat system call 
*/ 
creat () 
{ 
struct a { 
char *fname; 
int fmode; 
} *uap; 
uap =~ (struct a *)u.u_ap; 
copen (FWRITE|FCREAT{FTRUNC, uap->fmode) ; 
} 
fe 


* common code for open and creat. 

* Check permissions, allocate an open file structure, 
* and call the device open routine if any. 

*/ 
copen(mode, arg} 


(struct sockaddr *)0); 
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register mode; 

{ 
register struct user *up; 
register struct inode *ip; 
register struct file *fp; 
int i; 


up = &u; 

if ((modeé (PREAD|FWRITE)) == 0) { 
up~>u_error = EINVAL; 
return; 


1 
s 
if (modeéFCREAT) { 
ip = namei(uchar, 1); 
if (ip = NULL) { 
for (i=0; i<NOFILE; itt) 


4£ (up->u_ofile[i] == NULL) 


break; 
if (i >= NOFILB) { 
iput (u.u_pdir); 
up~>u_error = EMFILE; 
} 
if (up->u_error) 
return; 
ip = maknode(argé07777& (~ISVTX) ) ; 
if (ip — NULL) 
return; 
mode &= ~FTRUNC; 
} else { 
if (ip->i_locklist [= NULL && 


(ip->i_flag&IFMT) == IFREG 4é 
locked(2, ip, (long) (GL), (long) (1L<<30))) { 


iput (ip); 
return; 
} 
if (mode&FEXCL) { 
up->u_error = EEXIST; 
iput (ip): 
return; 
} 
mode &= ~FCREAT; 
} 
#ifndef VIRTUAL451 
xmfree (ip); 
#endif 
} else { 
ip = namei({uchar, 4); 
if (ip = NULL) 
return; 
} 
if (!(mode&FCREAT)}) { 
if (mode&FREAD) 
(void) access(ip, IREAD); 
if (mode& (FWRITE|FTRUNC)) { 
(void) access(ip, IWRITE); 
if ( (ip->i_mode&IFMT) == IFDIR) 
up->u_error = EISDIR; 
} 
} 


if (up->u_error || (fp = falloc(ip, modeé&FMASK)) == NULL) { 


iput (ip); 
return; 
} 
if (mode&FTRUNC) 
itrunc (ip); 
prele({ip); 
i = up->u_rvall; 
if (save(up->u_qsav)) { /* catch half-opens */ 
if (up->u_error == 0) 
up->u_error = EINTR; 
up->u_ofile[i] =~ NULL; 
#ifdef UCB_NET 
fp->f_flag |= FISUSER; 
tendif 
Closef (fp); 
} else { 


openi(ip, mode); 

if (up->u_error == 6) 
return: 

up->u_ofile{i] = NULL; 

if ((--fp->f_count) <= 0) { 
fp->f_next = ffreelist; 
ffreelist = fp; 

} 


iput (ip); 
} 
} 
/* 
* close system call 
xf 
close {) 
{ 
register struct file *fp; 
register struct a { 
int fdes; 
} *uap; 
uap = (struct a *)u.u_ap; 
fp = getf(uap->fdes); 
if (fp == NULL) 
return; 
u.u_ofilef[uap->fdes] = NULL; 
#ifdef UCB_NET /* so sockets close correctly */ 
fp->f_flag |= FISUSER; 
#endif 
closef (fp); 
} 
/* 
* seek system call 
xf 
seek () 


register struct file *fp; 
register struct inode *ip; 
register struct a { 


int fdes; 
off t off; 
int sbase; 


} *uap; 
register struct user *up; 


up = &u; 

uap = (struct a *)up->u_ap; 

fp = getf(uap->fdes) ; 

if (fp == NULL) 
return; 

#ifdef UCB_NET 

if (fp->f_flag&FSOCKET) { 
u.u_error = ESPIPE; 
return; 

} 

tendif 

ip = fp->f_inode; 

if ((ip->i_modeéIFMT)==IFIFO) { 
up->u_error = ESPIPE; 
return; 

} 

if (uap->sbase == 1) 
uap->off += fp->f_offset; 

else if (uap->sbase == 2) 
uap->off += fp->f_inode->i_size; 

else if (uap->sbase != 0) { 
up->u_error = EINVAL; 
psignal (up->u_procp, SIGSYS}; 
return; 

} 

if (uap->off < 0) { 
up->u_error = EINVAL; 
return; 
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fp->f_offset = uap->off; 
up->u_roff = uap->off; 


f* 


* link system call 


w 
er 


link) 


register struct user *up; 
register struct inode *ip, *xp; 
register struct a { 
char *target; 
char *linkname; 
} *uap; 


up = &4u; 

uap = (struct a *)up->u_ap; 

ip = namei(uchar, 0); 

if (ip — NULL) 
return; 

if (ip->i_nlink >= MAXLINK) { 
up->u_error = EMLINK; 
geto outn; 


if ((ip->i_modesIFMT)=-IFDIR && !suser()) 
goto outn; 


* Unlock to avoid possibly hanging the namei. 
* Sadly, this means races. (Suppose someone 
* deletes the file in the meantime?) 

* Nor can it be locked again later 

* because then there will be deadly 

* embraces. 

* Update inode first for robustness. 


ip->i_nlink++; 
ip->i_flag |= ICHG|ISYN: 
iupdat(ip, «time, étime); 
prele(ip); 
up->u_dirp = (caddr_t}uap->linkname; 
Xp = namei(uchar, 1); 
if (xp != NULL) { 
iput (xp); 
up->u_error = EEXIST; 
goto out; 
} 
if (up->u_error) 
goto out; 
if (up->u_pdir->i_dev != ip->i_dev) { 
iput (up->u_pdir); 
up->u_error = EXDEV; 
goto out; 
} 
wdir(ip); 
out: 
plock (ip); 
if (up->u_error) { 
ip->i_nlink--; 
ip->i_flag |= ICHG; 
} 
outn: 
iput (ip): 
return; 
} 


/* 
* mknod system call 
af 
mknod {) 
{ 
register struct inode *ip; 
register struct a { 
char *fname; 
int fmode; 
int dev; 


} 


/* 
* access system call 


*/ 


} *uap; 


uap = (struct a *)u.u_ap; 
if ((uap->fmode&IFMT) != IFIFO && !suser()) 
return; 
ip = namei(uchar, 1); 
if (ip != NULL) { 
iput (ip); 
u.u_error = EEXIST; 
return; 
} 
if (u.u_error) 
return; 
ip = maknode (uap->fmode) ; 
if (ip == NULL) 
return; 
switch (ip->i_mode&IFMT) { 
case IFCHR: 
case IFBLK: 
ip->i_rdev = (dev_t)uap->dev; 
ip->i_flag |= ICHG; 
} 


iput (ip); 


saccess() 


{ 


register struct user *up; 
register svuid, svgid; 
register struct inode *ip; 
register struct a { 
char *fname; 
int fmode; 
} *uap; 


up = éu; 
uap = (struct a *)up->u_ap; 
svuid = up->u_uid; 
svgid = up->u_gid; 
up->u_uid = up->u_ruid; 
up->u_gid = up->u_rgid; 
ip = namei(uchar, 8); 
if (ip != NULL) { 
if (uap->fmodeé (IREAD>>6}) 
(void) access(ip, IREAD); 
if (uap->fmodeé (IWRITE>>6) ) 
(void) access({ip, IWRITE); 
if (vap->fmodeé& (IEXEC>>6) ) 
(void) access(ip, IEXEC); 
iput (ip); 
} 
up->u_uid = svuid; 
up->u_gid = svgid; 
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/* @(#)sys3.c 1.4 */ 
#include "sys/param.h" 
#include "sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/systm.h" 
#include “sys/mount.h" 
f#finclude "sys/ino.h" 
#include “sys/buf.h" 
#include "sys/filsys.h" 
f#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/inode.h" 
#include “sys/file.h" 
#include “sys/conf.h" 
#include “sys/stat.h" 
#include "sys/ttold.h" 
#include “sys/var.h" 
#ifdef UCB_NET 

#include “sys/termio.h" 
#include "net/misc.h" 
#include “net/socketvar.h" 
fendif 


{* 
* the fstat system call. 
*/ 
fstat (} 
{ 
register struct file *fp; 
register struct a { 
int fdes; 
struct stat *sb; 
} *uap; 


uap = (struct a *)u.u_ap; 
fp = getf(uap->fdes) ; 
if(fp — NULL) 
return; 
#ifdef UCB NET 
if (fp->f_flag & FSOCKET) 


u.u_error = sostat( (struct socket *)fp->f socket, 


else 
#endif 
stati(fp->f_inode, uap->sb) ; 
} 
f* 
* the stat system call. 
xf 
stat () 


{ 
register struct inode *ip; 
register struct a { 
char *fname; 
struct stat *sb; 
} *uap; 


uap = (struct a *)u.u_ap; 
ip = namei(uchar, 0); 
if(ip == NULL) 
return; 
statl(ip, uap->sb); 
iput (ip): 
} 


{* 
* The basic routine for fstat and stat: 
* get the inode and pass appropriate parts back. 
*/ 

statl(ip, ub) 

register struct inode *ip; 

struct stat *ub; 

{ 


register struct dinode *dp; 
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uap->sb) ; 


} 
{* 


register struct buf *bp; 
register struct stat *dsp; 
struct stat ds; 


if (ip->i_flagé (IACC] IUPD| ICHG) ) 
iupdat(ip, &time, étime); 

/* 

x first copy from inode table 

*f 
dsp = éds; 
dsp->st_dev = brdev(ip->i_dev); 
dsp->st_ine = ip->i_number; 
dsp->st_mode = ip->i_mode; 
dsp->st_nlink = ip->i_nlink; 
dsp->st_uid = ip->i_uid; 
dsp->st_gid = ip->i_gid; 
dsp->st_rdev = (dev_t)ip->i_rdev; 
dsp->st_size = ip->i_size; 
{* 

* next the dates in the disk 

*f 
bp = bread(ip->i_dev, FsITOD(ip->i_dev, ip->i_number)); 
dp = bp->b_un.b dino; 
dp += FsiT0O(ip->i_dev, ip->i_number}); 
dsp->st_atime = dp->di_atime; 
dsp->st_mtime = dp->di_mtime; 
dsp->st_ctime = dp->di_ctime; 
brelse (bp) ; 
if (copyout ((caddr_tj)dsp, (caddr_t)ub, sizeof(ds)} < 0) 

u.u_error = EFAULT; 


* the dup system call. 


xf 
dup () 
{ 


} 


i* 


register struct file *fip; 


int i; 
struct a { 

int fdes; 
} *uap; 


uap = (struct a *)u.u_ap; 
fp = getft(uap->fdes); 
if(fp = NULL) 
return; 
if ((i = ufalloc(@)) < 0) 
return; 
u.u_ofile[i] = fp; 
fp->f_count++; 


* the file control system call. 


*/ 
fentl() 
{ 


register struct file *fp; 
register struct a { 


int fdes; 
int cmd; 
int arg: 


} *uap; 
register i; 
register struct user *up; 


up = &u; 
uap = (struct a *)up->u_ap; 
fp = getf(uap->fdes); 
if (fp — NULL) 
return; 
switch (uap->cmd) { 
case 0: 
i = uap->arg:; 
if (i < 0 jj 1 > NOFILE) { 
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up->u_error = EINVAL; 
return; 
} 
if ((i = ufalloc(ijy) < 0) 
return; 
up->u_ofilel[i] = fp; 
fp->f£_count++; 
break; 


up->u_rvall = up->u_pofile[uap->fdes]; 
break; 


up->u_pofile[uap->fdes] = uap->arg; 
break; 


up~>u_rvall = fp->f_flag+FOPEN; 
break; 


fp->f_flag &= (FREAD|FWRITE) > 
fp->f_flag |= (uap->arg-FOPEN) & ~(FREAD|FWRITE): 
break; 


up->u_error = EINVAL; 


* character special i/o control 
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case 1: 
case 2: 
case 3: 
case 4; 
default: 
} 

} 

{* 

xf 
ioctl () 


{ 


register struct file *fp; 
register struct inode *ip; 
register struct a { 


} *uap; 


int fdes; 
int cmd; 
int arg: 


register dev _t dev; 


#ifdef UCB_NET 


register unsigned fmt; 


#tendif 


uap = (struct a *)u.u_ap; 


if ((fp 


#ifdef UCB NET 


= getf(uap->fdes)) == NULL) 
return; 


if (fp->f_flag & FSOCKET) { 


} 
#endif 


soioctl((struct socket *)fp->f_socket, uap->cmd, (caddr_t)uap->arg); 


return; 


ip = fp->f_inode; 


#ifdef UCB_NET 


fmt = ip->i_mode & IFMT; 


if (fmt 


{m TFCHR) { 


if (uap->cmd=="FIONREAD && (fmt == IFREG || fmt == IFDIR 


{| fmt == IFIFO)) { 
off_t nread; 


if ((ip->i_modeéIFMT) ==IFIFO) 
nread = ip->i_size; 
else 
nread = ip->i_size - fp->f_offset; 


if (copyout {(caddr_t) énread, (caddr_t)uap->arg, 


sizeof(off t))) 
u.u_error = EFAULT; 


} else if (uap->cmd == FIONBIO /*|! uap->cmd == FIOASYNC*/} 


return; 
else 
u.u_error = ENOTTY; 


return; 
} 
#else 
if ((ip->i_modeéIFMT) {= IFCHR) { 
u.u_error = ENOTTY; 
return; 
} 
#endif UCB_NET 
dev = (dev_t)ip->i_rdev; 
(*cdevsw[ (short)major (dev) ].d_ioctl) (minor (dev) , uap->cmd, uap->arg, fp->f_flag) ; 


} 
/* 
® old stty and gtty 
*] 
stty() 
{ 
register struct a { 
int fdes; 
int arg; 
int narg: 
} *uap; 
uap = (struct a *)u.u_ap; 
uap->narg = uap->arg; 
uap->arg = TIOCSETP; 
Loctl1(); 
} 
gtty() 
{ 
register struct a { 
int fdes; 
int arg; 
int narg; 
} *uap; 
uap = {struct a *)u.u_ap; 
uap->narg = uap->arg: 
uap->arg = TIOCGETP; 
ioctl): 
} 
7* 
* the mount system call. 
sf 
smount () 


{ 
register struct user *up; 
register dev_t dev; 
register struct inode *ip; 
register struct mount *mp; 
struct mount *smp; 
register struct filsys *fp; 
struct inode *bip = NULL; 
register struct a { 


char *fspec; 
char *freg; 
int ronly; 
} *uap; 
up = &uU; 


uap = (struct a *)up->u_ap; 
if (!suser()) 
return; 
ip = namei{uchar, 9); 
if(ip == NULL) 
return; 
if ¢(ip->i_modesIFMT) $= IFBLK) 
up->u_error = ENOTBLK; 
dev = (dev_t)ip->i_rdev; 
if (bmajor (dev) >= bdevcnt) 
if ({up->u_error) 
up->u_error = ENXIO; 
if (up->u_error) 
goto out; 
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bip = ip; 

up->u_dirp = (caddr_t)uap->freg; 

ip = namei(uchar, 6); 

if(ip — NULL) { 
iput (bip) ; 
return; 

} 

i£ ((ip->i_modesIFMT) != IFDIR) { 
up->u_error = ENOTDIR; 
goto out; 

} 

if (ip->i_count [= 1) 


goto out; 

if (ip->i_number == ROOTINO) 
goto out; 

smp = NULL; 


for(mp = émount[0]; mp < (struct mount *)v.ve_mount; mpt++) { 
if(mp~>m_flags != MFREE) { 
if (brdevidev) == brdev(mp->m_dev) ) 


goto out; 
} else 
if(smp == NULL) 
smp = mp; 

} 
mp = smp; 
if(mp —= NULL) 

goto out; 


mp->m_flags = MINTER; 
mp->m_dev = brdevi(dev)}; 
{*bdevsw[ (short) bmajor (dev) ].d_open) (minor (dev), 
uap->ronly 2? (FREAD | FKERNEL) : (FREAD | FWRITE | FKERNEL)): 
if (up->u_error) 
goto outi; 
mp->m_bufp = geteblk{); 
fp = mp->m_bufp->b_un.b filsys; 
up->u_offset = SUPERBOFF; 
up->u_count = sizeof(struct filsys); 
up->u_base = (caddr t)fp; 
up->u_segflg = 1; 
readi (bip); 
if (up->u_error) { 
brelse {mp->m_bufp) ; 
goto outl; 
} 
mp->m_inodp = ip; 
mp~>m_flags = MINUSE; 
if (fp->s_magic != FsMAGIC) 
fp->s_ type = Fsilb; /* assume old file system */ 
if (fp->s_type == Fs2b) 
mp->m_dev |= Fs2BLK; 


#if FsTYPE == 4 


#endif 


outi: 


out: 


if (fp->s_type == Fs4b) 
mp->m_dev |= Fs4BLK; 


if (prdev(pipedev) == brdev(mp->m_dev) ) 
pipedev = mp->m_dev; 

fp->s ilock = 0; 

fp->s_ flock = 0; 

fp->s_ninode = 0; 

fp->s_inode[0] = 0; 

fp->s_ronly = uap->ronly & 1; 

if (mp->m_mount = iget(mp->m_dev, ROOTINO) ) 
prele (mp->m_mount) ; 

else { 
brelse (mp->m_bufp) ; 
goto outl; 

} 

ip->i_flag |= IMOUNT; 

iput (bip) : 

prele(ip); 

return; 


mp->m_flags = MFREE; 


if (bip != NULL) 


iput (bip); 
if (up->u_error == 90) 
up->u_error = EBUSY; 
iput (ip); 
} 


/* 

* the umount system call. 

x} 

sumount () 

{ 
register dev_t dev; 
register struct inode *ip; 
register struct mount *mp; 
register struct a { 

char *fspec; 

he 


if(!suser()) 
return; 
dev = getmdev(); 
if (u.u_error) 
return; 
for({mp = émount[0]; mp < (struct mount *)v.ve_mount; mptt) 


if (mp->m_flags == MINUSE && brdevidev) == brdev(mp->m_dev})) 


goto found; 
u.u_error = EINVAL; 
return; 


found: 
dev = mp->m_dev; 


{void) xumount (dev); /* remove unused sticky files from text table */ 


update (); 
if (mp->m_mount) { 
Plock (mp->m_mount); 
iput (mp->m_mount}; 
mp->m_mount = NULL; 
} 
for{ip = sinode[0]; ip < (struct inode *)v.ve_inode; ipt+) 
if(ip->i_number != 0 && dev = ip->i_dev) { 
u.u_error = EBUSY; 
return; 
} 
(*bdevsw[ (short) bmajor (dev) ].d_close) (minor (dev), FKERNEL) ; 
binval (dev); 
ip = mp->m_inodp; 
ip->i_flag &= ~IMOUNT; 
plock (ip); 
iput (ip); 
brelse (mp->m_bufp) ; 
mp->m_bufp = NULL; 
mp->m_flags = MFREE; 
} 


J* 
* Common code for mount and umount. 
* Check that the user’s argument is a reasonable 
* thing on which to mount, and return the device number if so. 
wf 
dev_t 
getmdev () 
{ 
dev_t dev; 
register struct inode *ip; 


ip = namei(uchar, 0); 

if(ip == NULL) 
return (NODEV) ; 

if ((ip->i_mode&IFMT) != IFBLK) 
u.u_error = ENOTBLK; 

dev = (dev_t)ip->i_rdev; 

if (bmajor(dev) >= bdevcnt) 
u.u_error = ENXIO; 

iput (ip); 

return (dev); 
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/* @(#)sys4.c 1.5 */ 
#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/mmu.h® 
#tinclude “sys/types.h" 
#include "sys/sysmacres.h" 
finclude “sys/systm.h" 
#include “sys/dir.h" 
f#include “sys/signal.h* 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/inode.h" 
#include “sys/file.h™ 
#include “sys/filsys.h" 
#include “sys/proc.h" 
#include “sys/var.h" 


f* 


* Everything in this file is a routine implementing a system call. 


af 


gtime() 
{ 

u.u_rtime = time; 
} 


stime () 


register struct a { 
time t time; 

} *uap; 

struct filsys *fp; 


uap = (struct a *}u.u_ap; 
if (suser()) { 
logtchg (uap->time}) ; 
time = uap->time; 
if (fp = getfs(rootdev) ) 
fp->s_fmod = 1; 


} 


setuid{) 

{ 
register unsigned uid; 
register struct a { 

int uid; 

} *uap; 

register struct user *up; 


up = &u; 

wap = (struct a *}up->u_ap; 

uid = uap->uid; 

if (uid >= MAXUID) { 
up->u_error = EINVAL; 
return; 


Lf (uid && (uid == up->u_ruid || uid == up->u_procp->p_suid)) 


up->u_uid = uid; 

else if (suser{)) { 
up->u_uid = uid; 
up->u_procp->p uid = uid; 
up->u_procp->p_suid = uid; 
up->u_ruid = uid; 


} 


getuid() 
{ 
register struct user *up; 


up = &u; 
up->u_rvali = up->u_ruid; 
up->u_rval2 = up~>u_uid; 
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setgid() 
i 


} 


getgid() 
{ 


} 


getpid{) 
{ 


} 


register unsigned gid; 
register struct a { 
int gid; 
} *uap; 
register struct user *up; 


up = &u; 

uap = {struct a *)up->u_ap; 

gid = uap->gid; 

if (gid >= MAXUID) { 
up->u_error = BINVAL; 
return; 

} 

if (up->u_rgid == gid || suser()) { 
up->u_gid = gid; 
up->u_rgid = gid; 


register struct user *up; 


up = &u; 
up->u_rvall = up->u_rgid: 
up->u_rval2 = up->u_gid; 


register struct user *up; 


up = éu; 
up->u_rvall = up->u_procp->p_pid; 
up->u_rval2 = up->u_procp->p_ppid; 


setpgrp() 


{ 


sync {) 


nice () 


register struct proc *p = u.u_procp; 
register struct a { 

int flag; 
} *uap; 


uap = (struct a *)u.u_ap; 
if (uap->flag) { 
if (p->p_pgrp != p->p_pid) 
u.u_ttyp = NULL; 
P->p_pgrp = p->p_ pid; 
} 
u.u_rvall = p->p_pgrp; 


update (); 


register n; 

register struct a { 

int niceness; 
} *uap; 

register struct user *up; 


up = &u; 

uap = (struct a *)up->u_ap; 

n = uap->niceness; 

if ((n < 0 |] n > 2*NZERO) && !suser()) 
n= 0; 

n t= up->u_procp->p_nice; 

if (n >= 2*NZERO) 
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pend 
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n = 2*NZERO -1; 

if (n < 0) 
n= 0; 


up->u_procp->p nice = n; 
up->u_rvall = n ~- N2ZERO; 


* Unlink system call. 


* Hard 


to avoid races here, especially 


x in unlinking directories. 


xf 
unlink () 
{ 


out: 
outi: 
} 


ehdir() 
{ 


} 


chroot {) 
{ 


register struct inade *ip, *pp; 
struct a { 
char *fname; 
} 
register struct user *up; 


up = &u; 
pp = namei(uchar, 2); 
if (pp == NULL) 
return; 
{* 
* Check for unlink(".™") 
* to avoid hanging on the iget 


*/ 
if (pp->i_number == up->u_dent.d_ino) { 
ip = pps 
ip->i_count++; 
} else 


ip = iget(pp->i_dev, up->u_dent.d_ino); 
if (ip <= NULL) 


goto outl; 
if ((ip->i_modeéIFMT) == IFDIR && !suser()) 
goto out; 
fr 
* Don’t unlink a mounted file. 
xf 


if (ip->i_dev != pp->i_dev) | 
up->u_error = EBUSY; 
goto out; 
} 
if (ip->i_flagséITExt) 
xrele (ip); /* try once to free text */ 
if (ip->i_flagéITEXT && ip->i_nlink == 1) { 
up->u_error = ETXTBSY; 
goto out; 
} 
up->u_offset -= sizeof(struct direct); 
up->u_base = (caddr_t)é&up->u_dent; 
up->u_count = sizeof (struct direct); 
up->u_dent.d_ino = 0; 
up->u_segflg = 1; 
up->u_fmode = FWRITE|FSYNC; 
writei (pp); 
if (up->u_error) 
goto out; 
ip->i_nlink--; 
ip->i_flag |= ICHG: 


iput (ip); 


iput (pp); 


chdirec(&u.u_cdir); 


if ({suser({)) 


return; 
chdirec(éu.u_rdir); 
} 


chdirec(ipp) 
register struct inode **ipp; 
{ 
register struct inode *ip; 
struct a { 
char *fname; 
he 


ip = namei{uchar, 6); 

if (ip = NULL) 
return; 

if ((ip->i_modeéIFMT) != IFDIR) { 
u.u_error = ENOTDIR; 
goto bad; 

} 

if {access(ip, IEXEC)) 
goto bad; 

prele (ip); 

if (*ipp) { 
plock (*ipp); 
iput (*ipp); 

} 

*ipp = ip; 

return; 


iput (ip); 


chmod ()} 
{ 
register struct inode *ip; 
register struct a { 
char *fname; 
int fmode; 
} *uap; 


wap = {struct a *)u.u_ap; 
if ((ip = owner()) == NULL) 
return; 
ip->i_mode &= ~07777; 
if (u.u_uid) { 
uap->fmode &= ~ISVTX; 
if (u.u_gid {= ip->i_gid) 
uap->fmode &= ~ISGID; 
} 
ip->i_mode |= uap->fmode&07777; 
ip->i_flag |= ICHG; 
if (ip->i_flag&ITEXT && (ip->i_mode&ISVTX)==0) 
xrele (ip); 
iput (ip); 


chown ({) 


register struct inode *ip; 
register struct a { 


char *fname; 
int uid; 
int gid; 


} *uap; 


uap = (struct a *)u.u_ap; 
if ((ip = owner()) == NULL) 
return; 
ip->i_uid = uap->uid; 
ip->i_gid = uap->gid; 
if ({u.u_uid != 0) 
ip->i_mode &= ~(ISUID|ISGID); 
ip->i_flag |= ICHG; 
iput (ip); 
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ssig() 


} 


kill) 
{ 


register a; 
register struct proc *p; 
struct a { 
int signo; 
int fun; 
} *uap; 
register struct user *up; 


up = &u; 
vap = (struct a *)up->u_ap; 
a = wap->signo; 
if (a <~ 0 |{ a > NSIG || a == SIGKILL) { 
up->u_error = EINVAL; 
return; 
} 
up->u_rvall = up->u_signal[a-1]; 
up->u_signal[a-1] = uap->fun; 
up->u_procp=>p_sig &= ~(1L<<ja-1)); 
if (a == SIGCLD) { 
a = up->u_procp->p_pid; 
for (p = &proc[1]; p < (struct proc *)v.ve_ proc; ptt} 
if (a == p->p_ppid && p->p_stat == SZOMB) 
psignal (up->u_procp, SIGCLD); 
} 
} 
if (uap->funé1) 
up->u_procp->p_sigign |= (1<<{uap->signo-~1)}; 
else 
up->u_procp->p_sigign &= ~(1<<(uap->signo-1)); 


register struct proc *p, *q: 
register arg; 
register struct a { 
int pid; 
int signo; 
} *uap; 
int f; 
register struct user *up; 


up = &u; 
pap = (struct a *)up->u_ap; 
if (uap->signo < 0 || uap->signo > NSIG) { 
up->u_error = EINVAL; 
return; 
} 
/* Prevent proc 1 (init) from being SIGKILLed */ 
if (uap->signo = SIGKILL && uap->pid = 1) { 
up~>u_error = EINVAL; 
return; 
} 
f= 0; 
arg = uap->pid; 
if (arg > 0) 
p = &proc{1]}; 
else 
p = &proc[2]; 
q = up->u_procp; 
if (arg == 0 && q->p_pgrp — 0) { 
up->u_error = ESRCH; 
return; 


for(; p < (struct proc *)v.ve_proc; pt+) { 

if (p->p_etat == NULL) 
continue; 

if (arg > 0 && p->p_pid != arg) 
continue; 

if (arg == 0 && p->p_pgrp |= q->p_pgrp) 
continue; 

if (arg < -1 &&@ p->p_pgrp != -arg) 
continue; 


times () 


} 


profil() 


{ 


} 


{* 


if (! (up->u_uid = 6 |] 
up->u_uid == p->p_uid || 
up->u_ruid == p->p uid {| 
up->u_uid == p->p_suid || 
up->u_ruid == p->p_suid )) 
if {arg > 0) { 
up~>u_error = EPERM; 
return; 
} else 
continue; 
f++; 
if (uap->signo) 
psignal(p, uap->signo) ; 
if (arg > 0) 
break; 
} 
if (f = 0) 
up->u_error = ESRCH; 


register struct a { 

time t (*times) [4]: 
} *uap; 
register struct user *up; 
time_t loctime[4]; 


up = &u; 
yap = (struct a *)up->u_ap; 
if (v.v_hz=60) { 
if (copyout ((caddr_t)éup->u_utime, (caddr_t)uap->times, 
sizeof (*uap->times) )) 
up->u_error = EFAULT; 
SPL? (); 
up->n_rtime = lbolt; 
SPLO{); 
} else { 
loctime[0] = up->u_utime * 60 / v.v_hz; 
loctime[1] = up->u_stime * 60 / v.v_hz; 
loctime[2] = up->u_cutime * 60 / v.v_hz; 
lectime[3] = up->u_cstime * 60 / v.v_hz; 
if (copyout ((caddr_t)éloctime[0], (caddr_t)uap->times, 
sizeof(loctime)) < 06) 
up->u_error = EFAULT; 
SPL7(); 
up->u_rtime = lbolt*60/v.v_hz; 
SPLO(); 


register struct a { 
short *bufbase; 
unsigned bufsize; 
unsigned pcoffset 
unsigned pcscale; 

} *uap; 

register struct user *up; 


we 


up = &u; 

uap = {struct a *)up->u_ap; 
up->u_prof.pr_base = uap->bufbase; 
up->u_prof.pr_size = uap->bufsize; 
up->u_prof.pr_off = uap->pcoffset; 
up->u_prof.pr_ scale = uap->pcescale; 


* alarm clock signal 


a] 
alarm () 
{ 


register struct proc *p; 
register c; 
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register struct a { 
int deltat; 
} *uap; 


uap = (struct a *)u.u_ap; 
p = u.u_procp; 
c = p->p_clktim; 
p->p_clktim = uap->deltat; 
u.u_rvall = c; 

} 


{* 
* indefinite wait. 
* no one should wakeup (su) 


af 
pause () 
{ 
for(::) 
{void) sleep((caddr_t)&u, PSLEP); 
} 
_f* 
* mode mask for creation of files 
xf 
umask {) 
{ 
register struct a { 
int mask; 
} *uap: 
register t; 
register struct user *up; 
up = &u; 
uap = (struct a *jup->u_ap; 
t = up->u_cmask; 
up->u_cmask = uap->mask & 0777; 
up->u_rvall = t; 
} 
/* 
* Set IUPD and IACC times on file. 
xf 
utime () 


{ 
register struct a { 
char *fname; 
time t *tptr; 
} *uap; 
register struct inode *ip; 
time _t tv[2]; 


uap = (struct a *)u.u_ap; 
if (uap->tptr != NULL) { 
if (copyin((caddr_t)uap->tptr, (caddr_t)tv, sizeof(tv))) { 
u.u_error = EFAULT; 
return; 
} 
} else { 
tv({0] = time; 
tv[1] = time; 


ip = namei(uchar, 0); 
if (ip = NULL) 
return; 
if (ua.u_uid != ip->i_uid && u.u_uid != 0) { 
if (uap->tptr != NULL) 
u.u_error = EPERM; 
else 
(void) access(ip, IWRITE); 
} 
if (f!u.u_error) { 
ip->i_flag |= IACC|IUPD|ICHG; 
dupdat(ip, «tv[0], &tv(1l]); 
} 
iput (ip): 


} 


ulimit (j 
{ 
register struct a { 
int cmd ; 
long arg; 
} *uap; 
register struct user *up; 
register n, ts; 


up = éu; 

uap = (struct a *)up->u_ap; 
switch(uap->cmd) { 

case 2: 


if (uap->arg > up->u_limit s& !suser()) 


return; 


up->u_limit = uap->arg; 


case 1: 


up->u_roff = up->u_limit; 


break; 


case 3: 
ts = up->u_tsize; 


n = maxmem ~ up->u_ssize - v.v_usize; 


if (ts > minmem) 


n = MAX(({int)n-ts, (int)minmem-up->u_ssize-v.v_usize); 
n = MIN(n, MAXMEM-stoc (ctos (ts) )-stoc(ctos(up->u_ssize))); 
up->u_roff = v.v_ustart + ctob(stoc(ctos(ts)) + n): 


break; 
default: 


up->u_error = EINVAL; 
} 


f* 


* phys - Set up a physical address in user’s address space. 
*f 


phys () 
{ 


register struct a { 
unsigned phnum; 
unsigned laddr; 
unsigned bcount; 
unsigned phaddr; 
} *uap; 


if ('suser()} return; 
uap = (struct a *)u.u_ap; 


dophys(uap->phnum, uap->laddr, 


} 


i* 

* reboot the system 
*] 

reboot () 

{ 


register i; 


update (); 
for (i = 0; i < 1000000; i++) 


doboot (); 


/* phys segment number */ 
/* logical address */ 

/* byte count */ 

/* physical address */ 


uap->bcount, uap->phaddr); 


sysent.c Fri Sep 5 19:08:04 1986 1 


/* @(#)sysent.c 1.3 */ int sconnect (); 
#include “sys/param.h" int saccept (): 
#include "sys/types.h" int ssend(}; 
#include "sys/systm.h" int sreceive(); 
int ssocketaddr (}; 
/* int netreset(); 
* This table is the switch used to transfer #endif 
* to the appropriate routine for processing a system call. 
xf {* 
* Local system calls 
int alarm(); xf 
int chdir(}; int locking(); 
int chmod (); int phys (); 
int chown (); int reboot {); 
int chroot {}; 
int close(); struct sysent sysent[] = 
int creat (); { 
int dup (): nosys, /* 0 = indir */ 
int exec(); rexit, 7* 1 = exit */ 
int exece (); fork, /*® 2 = fork */ 
int fentl()}; read, /* 3 = read */ 
int fork(); write, /* 4 = write */ 
int fstat(); open, /* § = open */ 
int getgid(); close, /* 6 = close */ 
int getpid(); wait, {/* 7 = wait */ 
int getuid(); creat, /* 8 = creat */ 
int gtime(); link, /* 9 = link */ 
int gttyQ); unlink, /* 10 = unlink */ 
int joctli):; exec, /* 11 = exec */ 
int kill(); chdir, {* 12 = chdir */ 
int link (); gtime, /* 13 = time */ 
int lock(): mknod, /* 14 = mknod */ 
int mknod{); chmod, /* 15 = chmod */ 
int msgsys{): chown, /* 16 = chown; now 3 args */ 
int nice({); sbreak, /* 17 = break */ 
int nosys{); stat, /* 18 = stat */ 
int nulisys(); seek, /* 19 = seek */ 
int epen{); getpid, /* 20 = getpid */ 
int pause (); smount, /* 21 = mount */ 
int pipe (): sumount, /* 22 = umount */ 
int profil(); setuid, /* 23 = setuid */ 
int ptrace({); getuid, /* 24 = getuid */ 
int read(); stime, /* 25 = stime */ 
int rexit (); ptrace, /* 26 = ptrace */ 
int saccess(); alarm, /* 27 = alarm */ 
int sbreak{); fstat, /* 28 = fstat */ 
int seek (); pause, /* 29 = pause */ 
int semsys()}; utime, {* 30 = utime */ 
int setgid(); stty, /* 31 = stty */ 
int setpgrp(); gtty, /* 32 = gtty */ 
int setuid{); saccess, #* 33 = access */ 
int shmsys (); nice, /* 34 = nice */ 
int smount (); nosys, /* 35 = sleep; inoperative */ 
int ssig(); sync, /* 36 = sync */ 
int stat():; kill, /* 37 = kill */ 
int stime(); nosys, /* 38 = x */ 
int stty(): setpgrp, /* 39 = setpgrp */ 
int sumount () ; nosys, {* 40 = tell - obsolete */ 
int sync (); dup, /* 41 = dup */ 
int sysacct (); pipe, /* 42 = pipe */ 
int times (); times, /* 43 = times */ 
int ulimit (); profil, /* 44 = prof */ 
int umask (}; lock, /* 45 = proc lock */ 
int unlink (); setgid, /* 46 = setgid */ 
int utime(); getgid, /* 47 = getgid */ 
int utssys(): ssig, /* 48 = sig */ 
int wait(); msgsys, /* 49 = IPC Messages */ 
int write(); nosys, /* 50 = reserved for local use */ 
sysacct, /* 51 = turn acct off/on */ 
#ifdef UCB_NET shmsys, /* 52 = IPC Shared Memory */ 
#include "net/misc.h" semsys, /* 53 = IPC Semaphores */ 
/* net stuff */ ioctl, /* 54 = loctl */ 
int select {); /* not implimented for character devices yet */ phys, /* 55 = phys */ 
int gethostname (}; locking, /* 56 = file locking */ 
int sethostname (); utssys, /* 57 = utssys */ 


int ssocket (); nosys, /* 58 = reserved for USG */ 


MM MMM OM 


af 
*] 
*/ 
xf 
*/ 
x] 
*/ 
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exece, /* 59 = exece */ nosys, /* 121 
umask, /* 60 = umask */ nosys, /* 122 
chroot, /* 61 = chroot */ nosys, /* 123 
fentl, /* 62 = fentl */ nosys, /* 124 
ulimit, /* 63 = ulimit */ nosys, /* 125 
nosys, /* 126 
reboot, /* 64 = reboot */ nosys, /* 127 
nosys, /* 65 = x */ }e 
nosys, /* 66= x */ 
nosys, /* 67 = x */ 
nosys, /* 68 = x */ 
nosys, /* 69 = x */ 
#ifdef UCB_NET 
select, /* 70 = select */ 
gethostname, f* 71 = gethostname */ 
sethostname, /* 72 = sethostname */ 
ssocket, /* 73 = socket */ 
Saccept, {* 74 = accept */ 
sconnect, /* 75 = connect */ 
sreceive, /* 76 = receive */ 
ssend, /* 77 = send */ 
ssocketaddr, /* 78 = socketaddr */ 
netreset, /* 793 = netreset */ 
#else 
nosys, /* 70 = x */ 
nosys, f* 7L = x *f 
nosys, f* 72 =x *f 
nosys, /* 732 = x *f/ 
nosys, /* 74 =x */ 
nosys, f*® 75 = x *f 
nosys, {* 76 = x */ 
nosys, ft 772 = Rx */ 
nosys, /* 78 = x */ 
nosys, {* 79 = x *f 
#endif UCB_NET 
nosys, /* 80 = x */ 
nosys, /* 81 = x */ 
nosys, f* 82 = x */ 
nosys, /* 83 = x */ 
nosys, /* 84 = x */ 
nosys, fx 85 = x */ 
nosys, f* 86 =x */ 
nosys, /* 87 = x */ 
nosys, /* 88 = x *f 
nosys, /* 89 = x */ 
nosys, /* 90 = x */ 
nosys, {* 91 = x */ 
nosys, /* 92 = x *f 
nosys, /* 93 = x */ 
nosys, {* 94 = x */ 
nosys, f* 95 = x */ 
nosys, {/* 96 = x */ 
nosys, /* 97 = x */ 
nosys, f* 98 = x */ 
nosys, f* 99 = x */ 
nosys, /* 100 = x */ 
nosys, /* 101 = x */ 
nosys, {* 102 = x */ 
nosys, {* 103 = x */ 
nosys, /* 104 = x */ 
nosys, /* 105 = x */ 
nosys, /* 106 = x */ 
nosys, /* 107 = x */ 
nosys, /* 108 = x */ 
nosys, /* 109 = x */ 
nosys, /* 110 = x */ 
nosys, /* 111 = x */ 
nosys, {* 112 = x */ 
nosys, /* 113 =x *f/ 
nosys, /* 114 = x */ 
nosys, 7* 115 =x */ 
nosys, /* 116 = x */ 
nosys, /* 117 = x */ 
nosys, /* 118 = x */ 
nosys, /* 119 = x */ 
x 


nosys, /* 120 = x] 
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#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/types.h" 
#include “sys/mmu.h" 
#include “sys/sysmacros.h" 
#include “sys/dir.h" 
#include “sys/proc.h" 
#include “sys/seg.h"™ 
#include “sys/signal.h" 
#include “sys/errno.h" 
#include "“sys/user.h" 
finclude “sys/systm.h" 
#include “sys/inode.h" 
#include “sys/ino.h" 
#include “sys/file.h" 
#include “sys/conft.h" 
#include “net/misc.h" 
#include “"net/protosw.h" 
#include “net/socket.h" 
#include “"net/socketvar.h" 
#include “net/ubavar.h" 
finclude “sys/map.h" 
#include “sys/callo.h" 
#include “net/if.h" 
#include “net/in.h" 
#include "net/in_systm.h" 
#include “net/ip.h" 
#include “net/ip _var.h" 
#include “sys/var.h" 


/*® 
* sccs id @t#)syslocal.c 1.6 (Berkeley) 2/27/82 
*f 
{* 
* These routines implement local system calls 
*f 
short netoff = 0; 
int protoslow; 
int protofast; 
int ifnetslow; 
int nselcoll; 
char netstak[{3000]; /* stack when system is “in the network" (mch.s} */ 
char * svstak; /* globle where mch.s saves current stack */ 
f* 
* Initialize network code. Called from main(). 
xf 
netinit () 
{ 
extern struct uba_device ubdinit{]; 
register struct uba_driver *udp; 
register struct uba_device *ui = éubdinit [0]; 
if(netoff) return; 
mbinit{); 
for(ui = gubdinit(0] ; udp = ui->ui_driver ; ui++) { 
/* ud _probe could go here */ 
ui->ui_alive = 1; 
udp->ud_dinfo[ui->ui_unit] = ui; 
(*udp->ud_attach) (ul); 
} 
#ifdef INET 
loattach({); {* XXX */ 
ifinit(); 
pfinit(); /* must follow interfaces */ 
#endif 


#ifdef TCPACKMOST 


{* 

* Fool some systems into thinking that tcp_maxseg == sbspace == 

* max window. Ergo, force acking of most packets when talking to 
* (the vax) 


#endif 


} 


sf 
extern int tcp_sendspace, tcp recvspace; 


tcp _sendspace = tep_recvspace = 1024; 


/* netreset -- network reset system call */ 
/* 3/23/83 billn: doesnt quite work yet */ 
netreset () 


{ 


register wait = 100000; 
register s = splé6{); 
register struct file *fp; 
extern int netisr; 


netoff = 1; /* prevent net traffic (during resets) */ 
netisr = 0; 


/* unbeknownst sockets to UNIX */ 
for (fp = &file[0]; fp < (struct file *}v.ve_file; fp+t) { 
if ((fp->f_flag & FSOCKET) && fp->f_count) { 
bzero ((char *)fp, sizeof {struct file)); 
} 
} 


mbinit (); /* relink mbufs */ 
#ifdef INET 
ifinit(); /* re-init interfaces */ 
pfinit(); /* must follow interfaces */ 
tendif 
splx(s); 
while {(wait--); /* wait for pending ints. */ 
netoff = 6G; 7* allow traffic */ 
} 
splimp i) 
{ 
return splé(); 
} 
splnet {) 
{ 
return splé({); 
} 
/* 


* Entered via software interrupt vector at spli. Check netisr bit array 
* for tasks requesting service. 


*/ 


netintr () 


{ 


register int onetisr; 


while (spl7(), (onetisr = netisr)) { 
netisr = 0; 
(void) splnet(); 
if (onetisr & (1<<NETISR_RAW) ) 
rawintr(); 
if (onetisr & (1<<NETISR_IP)) 
ipintr(); 
if (protofast <= 0) { 
protofast = HZ / PR_FASTHZ; 
pffasttimo(); 


} 

if (protoslow <= 0) { 
protoslow = HZ / PR_SLOWHZ; 
pfslowtimo(); 


if {ifnetslow <= 6) { 
ifnetslow = HZ / IFNET_SLOWH2; 
if_slowtimo(); 
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int enprint = Q; /* enable nprintf */ 
{* 
* net printf. prints to net log area in memory (nlbase, nlsize). 
xf 
/* VARARGS1 */ 
nprintf (fmt, x1) 
char *fmt; 


unsigned x1; 


{ 


} 
/* 


if (enprint == 0) return; 

/* pbilln -- do regular printf for now 
prf (fmt, &xi, 4); 

*/ 

printf (fmt, x1); 


* Select system call. 


*f 
select () 
{ 


retry: 


register struct uap { 


int nfd; 
fd_set *rp, *wp; 
long timo; 


} *ap = (struct uap *)u.u_ap; 
fd_set rd, wr; 

int nfds = 4; 

long selscan(); 

extern setrun(); 

long readable = 6, writeable = 0; 
time_t t = time; 

int s, tsel, ncoll, rem; 

label_t lqsav; 


if (ap->nfd > NOFILE) 
ap->nfd = NOFILE; 

if (ap->nfd < 0) { 
u.u_error = EBADF; 
return; 

} 

if (ap->rp && copyin((caddr_t)ap->rp, (caddr_t)érd, sizeof (fd_set))) 
return; = 

if (ap->wp && copyin( (caddr_t)ap->wp, (caddr_t) &wr, sizeof (fd_set))) 
return; 


neoll = nselcoll; 
u.u_procp~>p flag |= SSEL; 
if (ap->rp} 

readable = selscan(ap->nfd, rd, énfds, FREAD); 
if (ap->wp) 

writeable = selscan(ap->nfd, wr, &nfds, FWRITE); 
if (u.u_error) 

goto done; 
if (readable || writeable) 


goto done; 
rem = (ap->timo+999)/1000 - (time - t); 
if (ap->timo — 0 || rem <= 0) 

goto done; 
s = spl6(); 


if ((u.u_procp~>p_ flag & SSEL) == 0 |{ nselcoll != ncoll) { 
u.u_procp->p flag é= ~SSEL; 
splx(s); 
goto retry; 
} 
u.u_procp->p flag &= ~SSEL; 
1f (rem) { 
beopy((caddr_t)u.u_qsav, (caddr_t)lqsav, sizeof (label t)); 
if (save(u.u_qsav)) { 
rm_callout(setrun, (caddr_t})u.u_procp); 
u.u_error = EINTR; 


done: 


} 
f* 


splx(s); 
goto done; 
} 
rem = rem*v.v_hz; 
timeout (setrun, (caddr_t)u.u_procp, rem); 
} 
sleep({caddr_t)éselwait, PZERO+1); 
if (rem) { 
beopy((caddr_t)lqsav, (caddr_t)u.u_qsav, sizeof (label _t)); 
rm_callout(setrun, (caddr_t)}u.u_procp); 
} 
splx(s); 
goto retry; 


rd.fds bits[0] = readable; 
wr.fds bits{0] = writeable; 
u.u_rvall = nfds; 
if (ap->rp) 
(void) copyout((caddr_t)érd, (caddr_t)ap->rp, sizeof (fd_set)); 
if (ap->wp) 
(void) copyout({caddr_t)&wr, (caddr_t)ap->wp, sizeof(fd_set)); 


* remove entry in callout vector 
* which is scanned by clock interrupt 


*f 


rm_callout (func, arg) 
int (*func) (); 
caddr_t arg; 


{ 


} 


long 


register struct callo *pl, *p2; 
register int tt; 
int pri; 


pl = écallout [0]; 
pri = spl7(); 
while (pl->c_func != 0) { 
if ((pl->c_fune == func) && (pl->c_arg == arg)) 
break; 
pltt; 
} 
if (pl >= (struct callo *)v.ve_call-1) { 
printf("Timeout entry not found, not deleted\n"); 
return; 
} 
/* copy everything that follows in the list up one 
position, adding our unused time to theirs */ 
tt = pl->c_time; 
p2 = pl; 
while(pl->c_func [= 6) { 
p2t+t; 
pl->c_time = p2->c_time + tt; 
pl->c_fune = p2->c_func; 
pl->c_arg = p2->c_arg; 
pl = p2; 
} 
splx(pri); 


selscan(nfd, fds, nfdp, flag) 


int nfd; 
fd_set fds; 
int *nfdp, flag; 


struct file *fp; 
struct inode *ip; 
long bits,res = 0; 
int i, able: 


bits = fds.fds bits[0]; 
while (i = ffs{bits)) { 
if (i >= nfd) 
break; 
bits &= ~(1L<<(i-1))}; 
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fp = u.u_ofile[i-l]; 
if (fp == NULL) { 
u.u_error = EBADF; 
return (0); 
} 
if (fp->f_flag & FSOCKET) 
able = soselect((struct socket *)fp->f_socket, flag); 


else { 
ip = fp->f_inode; 
switch (ip->i_mode & IFMT) { 
case IFCHR: 
fifdef notdef 
able = 
(*cdevsw [major (ip~>i_rdev) ] .d_select) 
((int)ip->i_rdev, flag); 
#telse 
{* 
* for now the only char device we need 
* to select on is the control side of 
* ptys -- for the rlogin deamon. At 
* some point someone can put general 
* select code into all char. devices. 
xf 
{ 
extern int ptc_dev; 
if (major((int) (ip->i_rdev)) == ptc_dev} 
able = ptcselect({int)ip->i_rdev, flag); 
else 
able = Q; 
} 
tendif 
break; 
case IFIFO: 
case IFBLK: 
case IFREG: 
case IFDIR: 
able = 1; 
break; 
} 
} 
if (able) { 
res |= (1L<<(i-1)); 
(*nfdp) ++; 
} 
} 
return (res); 
} 
ffs (mask) 


{ 


} 


long mask; 


register int i; 
register imask; 


if (mask == 0) return (0); 
imask = loint (mask); 
for(i=l; i<=16; i++) { 
if (imask & 1) 
return (i); 
imask >>= 1; 
} 
imask = hiint (mask); 
for(; i<=32; itt) { 
if (imask & 1) 
return (i); 
imask >>= 1; 
} 
return (0); /* can’t get here anyway! */ 


#ifdef notdef 
/*ARGSUSED*/ 
seltrue(dev, flag) 


dev_t dev; 
int flag; 


return (1); 


} 
#endif 


selwakeup(p, coll) 
register struct proc *p; 
int coll; 


int s; 


if (coll) { 
nselcoll++; 
wakeup ( (caddr_t)&selwait); 
} 
s = spl6{); 
if (p) { 
if (p->p_wchan == (caddr_t)éselwait) 
setrunip); 


else { 
if (p->p_flag & SSEL} 
p->p_flag &= ~SSEL; 
} 
} 
splx{s); 
} 
#ifdef notdef 
/* ARGSUSED */ 
nulselect{x, y) 
{ 
return Q; 
} 
#endif 
char hostname[32] = “hostnameunknown"; 
int hestnamelen = 16; 


gethostname {) 
{ 
register struct a { 
char *hostname; 
int len; 
} *uap = (struct a *)u.u_ap; 
register int len; 


len = uap->len; 

if (len > hostnamelen) 
len = hostnamelen; 

if (copyout({caddr_t)hostname, (caddr_t)uap->hostname, len)) 
u.u_error = EFAULT; 


} 


sethostname {) 
{ 
register struct a { 
char *hostname; 
int len; 
} *uap = (struct a *)u.u_ap; 


if (!suser()) 
return; 
if (uap->len > sizeof (hostname) - 1) { 
u.u_error = EINVAL; 
return; 
} 
hostnamelen = uap->len; 
if {copyin { (caddr_t) uap->hostname, hostname, uap->len + 1)) 
u.u_error = EFAULT; 


/* 
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Some misc. subroutines. Prob should be in a sep module 
xf 


#ifdef notdef /* system 3 has it’s own */ 
j* 

* Provide about n microseconds of delay 

xf 
delay {n) 
long n; 

{ 

register hi, low; 


low = (n&0177777); 
hi = n>>16; 
if(hi==0) hi=1; 
do { 
do { } while (--low); 
} while (--hi); 
} 
f#endif 


i* 
* compare bytes; same result as VAX cmpc3. 
xf 

bemp{sl, s2, n) 

register char *sl, *s2; 

register n; 

{ 

do 
Lf(*slt++ {= *s2++) break; 
while{--n); 
return(n); 
} 


f* 
* Insert an entry onto queue. 
*/ 
_insque{e,prev) 
register struct vaxque *e, *prev; 


register x = spl7{}; 
e->vq_prev = prev; 
e->vq_next = prev->vq_next; 
if (prev->vq_next) 
prev->vq_next->vq_prev = e; 
prev->vq_next = e; 
splx(x); 
} 


{x 
* Remove an entry from queue. 
*/ 
_remque (e) 
register struct vaxque *e; 


register x = spl7(); 


e->vq_prev->vq_next = e->vq_ next; 
if (e->vq_next) 

e->vq_next->vq_prev = e->vq_prev; 
Splx (x); 


struct proc * 
pfind (pid) 
int pid; 
{ 
register struct proc *p; 


for (p=proc; p < éproc{v.v_proc]; pt+) 
if (p->p_pid == pid) 
return (p); 
return ((struct proc *)0); 


/* bzero(p,n) -- zero n bytes starting at p */ 


bzero(p,n) 
register char * p; 
register n; 

{ 


if (n) 
do { 
eptt = 0; 

} while (--n); 
} 
{* 
* iomalloc -- allocate clks of mem. for io. 
* Right now, no dma. 


xf 
mbioalloc() 
{ 
return @; 
} 
<* 


* mballoc should be combined with/done like memap{). THIS STUFF DEPENDS 
* ON MSIZE BEING A POWER OF 2. 

xf 
#define MBUFCONFIG 1 /* undef extern of Mbuf, mbuf */ 
#include <net/mbuf.h> 


char mbufbufs[ (NMBUFS+1) *MSIZE]; 


struct mbuf * 

mballoc() 

{ 
unsigned int location = {unsigned int) (émbufbufs[0]); 
int slop = location & (MSIZE-1); 


/* round actual buffers to MSIZE boundry */ 
return ((struct mbuf*) (location + MSIZE - slop)); 
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{* tep_debug.c 4.3 82/03/29 «/ 


#include "sys/param.h*" 
#include “sys/config.h" 
#include “sys/errno.h" 
tinclude “sys/types.h" 
f#include “sys/systm.h" 
#include “net/misc.h" 
#include “net/mbuf.h™ 
f#include “net/socket.h" 
#include “net/socketvar.h" 
#define PRUREQUESTS 
#include “net/protosw.h" 
#include “net/in.h" 
#include “net/route.h" 
#include “net/in_peb.h" 
#include “net/in_systm.h" 
#include "net/if.n" 
#include “net/ip.h™ 
#include “net/ip_var.h" 
#include “net/tcp.h" 
#define TCPSTATES 

#include “net/tcp fsm.h" 
#include “net/tcp seq.h" 
#define TCPTIMERS 

#include “net/tcp timer.h" 
#include “net/tcp var.h" 
#include “net/tcpip.h" 
#define TANAMES 

#include “net/tcp debug.h" 
#include “errno.h" 


int tepconsdebug = 1; 
i* 

* Top debug routines 

xf 


tep_trace{act, ostate, tp, ti, req) 
short act, ostate; 
struct tcpcb *tp; 
struct tcpiphdr *ti; 
int req; 


tcp_seq seq, ack; 
int len, flags: 
struct tep debug *td = 4tcp_debug[tcp_debxtt]; 


if (tcep_debx == TCP_NDEBUG) 
tep_debx = 0; 
td->td_time = iptime(); 
td->td_act = act; 
td->td_ostate = ostate; 
td->td_tcb = (caddr_t)tp; 
if (tp) 
td->td_cb = *tp; 
else 
bzero ((caddr_t)&td->td_cb, sizeof (*tp)); 
if (ti) 
td->td_ti = *ti; 
else 
bzero((caddr_t)&td->td_ti, sizeof (*ti)); 
td->td_req = req; 
if (tcpconsdebug == 0) 
return; 
if (tp) 
printf("&%x %s:", tp, tepstates[ostate]); 
else 
printf ("22222222 "); 
printf("%s ", tanames[act]); 
switch fact) { 


case TA_INPUT: 
case TA OUTPUT: 
seq = ti->ti_seq: 
ack = ti->ti_ack; 
len = ti->ti_len; 
#ifndef WATCHOUT 


#endif 


if {act == TA_OUTPUT) { 

seq = ntohl(seq); 

ack = ntohl (ack); 

len = ntohs((u_short)len); 
} 


if (act == TA_OUTPUT) 
len -= sizeof (struct tcphdr); 
if (len) 
printf ("[%x..%x)", seg, seqtlen); 
else 
printf£("$x", seq); 
printft("@&x", ack); 
flags = ti->ti_flags; 
if (flags) { 


#ifndef lint 


#define pf(f) { 


tendif 


char *cp = men, 
pf(SYN); pf{ACK); pf (FIN); pf (RST); 


printf (">"); 
} 
break; 


case TA_USER: 
printfi("ts", prurequests[reqs0xff]); 
if ((req & Oxff) = PRU_SLOWTIMO) 
printf("<%s>", tcptimers[req>>8]); 
break; 
} 
if (tp) 
printf(" -> %s", tcpstates{tp->t_state]); 
/* print out internal state of tp !2! */ 
printf ("\n"); 
if (tp = 6 [| tepconsdebug == 2) 
return; 


printf ("\trev_(nxt,wnd) (%x,%x) snd_(una,nxt,max) (%x,%x,%x)\n", 
tp->rev_nxt, tp->rev_wnd, tp->snd_una, tp->snd_nxt, tp->snd_max); 


printf("\tsnd_(wll,wl2,wnd) (%x,%x,%x)\n", 
tp->snd_wll, tp->snd_wl2, tp->snd_wnd); 


Lf (ti->ti_flagssTH_/**/f) { printf("%st&s", cp, "£"); cp = ","5 } } 
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/* SMS $I% SES xf 


#include “"sys/param.h" 
#include “sys/config.h" 
#include “sys/errno.h" 
#include “sys/types.h" 
#include “sys/systm.h" 
#include “net/misc.h" 
#include "net /mbuf.h" 
#include “net/protosw.h" 
#include “net/socket.h" 
#include “net/socketvar.h" 
#include “net/in.h" 
#include “"net/route.h" 
#include “net/in_pcb.h" 
#include “net/in_systm.h" 
#include “net/if.h" 
#include “net/ip.h® 
#include "net/ip var.h" 
#include "net/tcp.h" 
f#include “"net/tcp_fsm.h" 
#include “net/tcp_seq.h" 
#include “net/tcp timer.h" 
#include “net /tcp_var.h" 
#include “net/tcpip.h" 
#include “net/tcp_debug.h" 
#include “errno.h" 


int tepprintfs = 1; /* l=print, 2= panic */ 
short tepceksum = 1; 

struct sockaddr_in tep_in = { AF INET }; 
struct tcpiphdr tcp saveti; 

extern tcpnodelack; 


struct tepcb *tcp newtcpcb{); 
fe 
* TCP input routine, follows pages 65-76 of the 
* protocol specification dated September, 1981 very closely. 
*/ 
tep_input (m0) 
register struct mbuf *m0; 
{ 
register struct tcpiphdr *ti; 
register struct inpcb *inp; 
register struct mbuf *m; 
struct mbuf *om = 0; 
int len, tlen, off: 
register struct tepcb *tp = 0; 
register int tiflags; 
register struct socket *so; 
register int todrop, acked; 
short ostate; 
struct in_addr laddr; 


/* 
* Get IP and TCP header together in first mbuf. 
* Note: IP leaves IP header in first mbuf. 
af 
#ifdef SIGH 
{ extern int intcpinput; } 


if (intcpinput) printf("intcpinput..."); else intcpinput++; 


tendif 
m = m0; 
ti = mtod(m, struct tcpiphdr *); 


Lf (((struct ip *)ti)->ip hl > (sizeof (struct ip) >> 2)) 
ip_stripoptions((struct ip *)ti, (struct mbuf *)0); 

if (m->m_off > MMAXOFF || m->m_len < sizeof (struct tcpiphdr)) 
if ({m = m_pullup(m, sizeof (struct tepiphdr))) == 0) { 


tepstat.teps hdrops++; 
#ifdef SIGH ~ 
intcpinput--; 
ftendif 
return; 
} 
ti = mtod(m, struct tcpiphdr *); 


#ifndef 


#endif 


{int i; 


fr 
* Checksum extended TCP header and data. 
x] 

tlen = ({(struct ip *)ti)->ip_len; 

len = sizeof (struct ip) + tlen; 


{* 
if ((tlen > 576) || (len > 700)) 

printf ("len=%d, tlen=%d !!!'\n", len, tlen); 
*/ 


if (tepcksum) { 
register sum; 
ti->ti_next = ti->ti_prev = 9; 
ti->ti_xl = 0; 
ti->ti_len = (u_short)tlen; 
WATCHOUT 
ti->ti_len = htons({(u_short)ti->ti_len); 


mbprint(m, “tin before ck"); 
nprintf("len%o\n", (unsigned) len); 
{x 
if (len — 46) 
int j; printf ("segment:\n") >for (j=0;4<4:4++) {for (i=0;1<10;i++) printf ("$x ", ({(char *)ti) [i+1o* 
1f (ti->ti_sum = in_cksum({m, len)) { 
*f 
if (sum = in_cksum(m, len)) { 
nprintf("badsumto\n", ti->ti_sum); 
tepstat.tcps_badsumt+; 
if (tcepprintfs) 
f* 
printf("tep cksum %x, length %d, loca %x\n",ti->ti_sum,len,ti); 
xf 
printf(“tcep cksum &x, length td, loca %x\n“,sum,len,tij; 
if (len = 40) 
{int i; int 3; printf ("segment:\n") ; for (j=0;4<4; 4++) {for (1=0;1<10sit+) printt ("sx “, (((char *)t 
if (tepprintfs==-2) panic("“tcp ck\n"); 
goto drop; 
} 
ti->ti_sum = sum; 
} 


/* 
* Check that TCP offset makes sense, 
* pull out TCP options and adjust length. 
xf 
off = ti->ti_off << 2; 
if (off < sizeof (struct tcphdr) || off > tlen) { 
tepstat.tcps badoff++; 
goto drop; 
} 
tlen -= off; 
ti->ti_len = tlen; 
if (off > sizeof (struct tephdr)) { 
if ({(m = m_pullup(m, sizeof (struct ip) + off)) == 4) { 
tepstat.tcps hdrops++; 


#ifdef SIGH 


tendif 


intcpinput--; 


return; 

} 

ti = mtod(m, struct tcpiphdr *); 

om = m_get (M_DONTWAIT); 

if (om == 0) 

goto drop; 

om->m_off = MMINOFF; 

om->m_len = off - sizeof (struct tcphdr); 

{ caddr_t op = mtod(m, caddr_t) + sizeof {struct tcpiphdr); 
MBCOPY(m, sizeof(struct tcpiphdr), om, 0, om->m_len) ; 
m->m_len -= om->m_len; 
beopy (optom->m_len, op, 

(int) (m->m_len-sizeof (struct tcpiphdr))); 

} 


} 
tiflags = ti->ti_flags;: 


/* 
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* Drop TCP and IP headers. 

*f 
m->m_off += sizeof(struct tcpiphdr); 
m->m_len -= sizeof(struct tcpiphdr); 


WATCHOUT 

/* 
* Convert TCP protocol specific fields to hest format. 
*f 

ti->ti_seq = ntohl(ti->ti_seq); 

ti->ti_ack = ntohl(ti->ti_ack); 

ti->ti_win = ntohs(ti->ti_win); 

ti->ti_urp = ntohs(ti~>ti_urp); 


fe 
* Locate pcb for segment. On match, update the local 
* address stored in the block to reflect anchoring. 
xf 
inp = in_pcblookup 
(&tceb, ti->ti_sre, ti->ti_sport, ti->ti_dst, ti->ti_dport, 
INPLOOKUP_WILDCARD) ; 


{* 
* If the state is CLOSED (i.e., TCB does not exist) then 
* all data in the incoming segment is discarded. 
xf 
if (inp = 0) 
goto dropwithreset; 
tp = intotepeb (inp); 
if (tp = 0) 
goto dropwithreset; 
so = inp->inp_socket; 
if {so->so_options & SO DEBUG) { 
ostate = tp->t_state; 
tep_saveti = *ti; 
} 


{* 
* Segment received on connection. 
* Reset idle time and keep-alive timer. 
xf 

tp->t_idle = 4; 

tp->t_timer [TCPT_KEEP] = TCPTV KEEP; 


{* 
* Process options. 
*} 
if (om) { 
tep_dooptions(tp, om); 
om = 0; 


} 


/* 
* Calculate amount of space in receive window, 
* and then do TCP input processing. 

*/ 
tp->rev_wnd = sbspace(&so->so_ rev); 
if (tp->rev_wnd < 0) 
tp->rev_wnd = 0; 


switch (tp->t_state) { 


/ 
If the state is LISTEN then ignore segment if it contains an RST. 
If the segment contains an ACK then it is bad and send a RST. 
If it does not contain a SYN then it is not interesting; drop it. 
Otherwise initialize tp->rcv_nxt, and tp->irs, select an initial 
tp->iss, and send a segment: 

<SEQ=ISS><ACK=RCV_NXT><CTL=SYN, ACK> 


Fill in remote peer address fields if not previously specified. 
Enter SYN_RECEIVED state, and process any other fields of this 
segment in this state. 


* +e Fe he Fe eH Fe OOF 


™ 


case TCPS LISTEN: 


Also initialize tp->snd_nxt to tp->iss+1l and tp->snd_una to tp->iss. 


if (tiflags & TH_RST) 
goto drop; 
if (tiflags & TH ACK) 
goto dropwithreset; 
if ({tiflags & TH_SYN) == 6) 
goto drop; 
tep_in.sin_ addr = ti->ti_sre; 
tep_in.sin port = ti->ti_sport; 
laddr = inp->inp laddr; 
if (inp->inp_laddr.s addr == 0) 
inp->inp laddr = ti->ti_dst; 
if (in_pebeonnect (inp, (struct sockaddr_in *)&tcp_in)) { 
inp->inp_laddr = laddr; 
goto drop; 
} 
tp->t_template = tcp template (tp); 
if (tp->t_template == 0) { 
in_pcbdisconnect (inp); 
inp->inp laddr = laddr; 
tp = 0; 
goto drop; 
} 
tp->iss = tcp_iss; tcp iss += TCP_ISSINCR/2; 
tp->irs = ti->ti_seq: 
tcep_sendseqinit (tp); 
tep_revseqinit (tp); 
tp->t_state = TCPS S¥N_RECEIVED; 
tp->t_timer[TCPT_KEEP] = TCPTV_KEEP; 
goto trimthenstep6; 


{* 
* If the state is SYN SENT: 

* if seg contains an ACK, but not for our SYN, drop the input. 
* if seg contains a RST, then drop the connection. 

* if seg does not contain SYN, then drop it. 


* Otherwise this is an acceptable SYN segment 


7 initialize tp->rcv_nxt and tp->irs 

* if seg contains ack then advance tp->snd_una 

* if SYN has been acked change to ESTABLISHED else SYN_RCVD state 
* arrange for segment to be acked (eventually) 

* continue processing rest of data/controls, beginning with URG 
*] 


case TCPS SYN SENT: 
if ({tiflags & TH_ACK) && 


/* this should be SEQ LT; is SEQ LEQ for BBN vax TCP only */ 


(SEQ LT(ti->ti_ack, tp->iss) [| 
SEQ GT(ti->ti_ack, tp->snd_max))) 
goto dropwithreset; 
if (tiflags & TH_RST) { 
if {tiflags & TH_ACK) { 
tep_ drop(tp, ECONNREFUSED) ; 
tp = 0; 
} 
goto drop; 
} 
if ((tiflags & TH_SYN) == 0) 
goto drop; 
tp->snd_una = ti->ti_ack; 
if (SEQ_LT(tp->snd_nxt, tp->snd_una)) 
tp->snd_nxt = tp->snd_una; 
tp->t_timer[TCPT REXMT] = 0; 
tp->irs = ti->ti_seq: 
tep_revseginit (tp); 
tp->t_flags |= TF_ACKNOW; 
if (SEQ _GT(tp->snd_una, tp->iss)) { 
if (so->so_options & SO ACCEPTCONN) 
so->so_ state |= SS_CONNAWAITING; 
soisconnected (so); 
tp->t_state = TCPS ESTABLISHED; 
(void) tcp_reass(tp, (struct tcpiphdr *)0); 
} else 
tp->t_state = TCPS SYN RECEIVED: 
goto trimthenstep6; 


trimthenstep6: 


ft 
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* Advance ti->ti_seq to correspond to first data byte. 
* If data, trim to stay within window, 
* dropping FIN if necessary. 
*/ 
ti->ti_seqtt+; 
if (ti->ti_len > tp->rcev_wnd) { 
todrop = ti->ti_len - tp->rev_wnd; 
m_adj(m, ~todrop); 
ti->ti_len = tp->rcev_wnd; 
ti->ti_flags &= ~TH FIN; 
} 
tp->snd_wll = ti->ti_seq - 1; 
goto stepé; 


it 
* States other than LISTEN or SYN_SENT. 
* First check that at least some bytes of segment are within 
* receive window. 
xf 
Lf (tp->rev_wnd = 0) { 
{* 
* If window is closed can only take segments at 
* window edge, and have to drop data and PUSH from 
* incoming segments. 
*/ 
if (tp->rev_nxt != ti->ti_seq) 
goto dropafterack; 
if (ti->ti_len > 0) { 
m_adj(m, ti->ti_len); 
ti->ti_len = 0; 
ti->ti_flags &= ~(TH_PUSH|TH_FIN); 
} 
} else { 
/* 
* If segment begins before rev_nxt, drop leading 
* data (and SYN); if nothing left, just ack. 
*f 
todrop = tp->rev_nxt - ti->ti_seq; 
if {todrop > 6) { 
if (tiflags & TH_SYN) { 
tiflags &= ~TH_SYN: 
ti->ti_flags &= ~TH_SYN; 
ti->ti_seqt+: 
if (ti->ti_urp > 1) 
ti->ti_urp--; 
else 
tiflags &= ~TH_URG; 
todrop--; 
} 
if (todrop > ti->ti_len || 
todrop == ti->ti_len && (tiflags&TH FIN) == 0) 
goto dropafterack; 
m_adj(m, todrop); 
ti->ti_seq += todrop; 
ti->ti_len -= tedrop; 
if (ti->ti_urp > todrop) 
ti->ti_urp -= todrop; 
else { 
tiflags é= ~TH_URG: 
ti->ti_flags é= ~TH_URG; 
ti->ti_urp = 0; 


} 
/* 
* If segment ends after window, drop trailing data 
* (and PUSH and FIN); if nothing left, just ACK. 
+) 
todrop = (ti->ti_seqtti->ti_len) - (tp->rcv_nxtt+tp->rcv_wnd); 
if (todrop > 60) { 
if (todrop >= ti->ti_len) 
goto dropafterack; 
m_adj}(m, —todrop); 
ti->ti_len -= todrop; 
ti->ti_flags &= ~(TH_PUSH|TH_FIN); 


} 


/* 
* If a segment is received on a connection after the 
* user processes are gone, then RST the other end. 
xf 
if ((so->so_state & SS_USERGONE) && tp->t_state > TCPS CLOSE WAIT && 
ti->ti_len) { 
tep_close(tp); 
tp = 0; 
goto dropwithreset; 
} 


/* 
* If the RST bit is set examine the state: 


= SYN_RECEIVED STATE: 

* If passive open, return to LISTEN state. 

7 If active open, inform user that connection was refused. 
* ESTABLISHED, FIN_WAIT_1, FIN_WAIT2, CLOSE_WAIT STATES: 

* Inform user that connection was reset, and close tcb. 

= CLOSING, LAST_ACK, TIME WAIT STATES 

* Close the tcb. 

af 


if (tiflagséTH_RST) switch (tp->t_state) { 


case TCPS SYN_ RECEIVED: 
if (inp->inp_socket->so_options & SO_ACCEPTCONN) { 

/* a miniature tcp close, but invisible to user */ 

if (tp->t_template) MSFREE(tp->t_template); 

MSFREE (tp) ; 

inp->inp ppcb = 6; 

tp = tcep_newtcpcb(inp); 

if (tp = 6) { /* unlikely but just in case */ 
tcp_drop(tp, ENOBUFS); 
tp = 4; 
goto drop; 

} 

tp->t_state = TCPS LISTEN; 

inp->inp faddr.s_ addr = 0; 

inp->inp fport = 0; 


inp->inp laddr.s_addr = 0; /* not quite right */ 
tp = 6; 
goto drop; 

} 

tep_drop(tp, ECONNREFUSED) ; 

tp = a; 

goto drop; 


case TCPS ESTABLISHED: 

case TCPS FIN WAIT 1: 

case TCPS FIN _WAIT 2: 

case TCPS CLOSE WAIT: 
tep_drop(tp, ECONNRESET) ; 
tp = Q; 
goto drop; 


case TCPS CLOSING: 
case TCPS LAST ACK: 
case TCPS TIME WAIT: 
tcp_close(tp); 
tp = 0; 
goto drop; 
} 


{* 
* If a SYN is in the window, then this is an 
* error and we send an RST and drop the connection. 
*/ 
if (tiflags & TH_SYN) { 
tep_drop(tp, ECONNRESET); 
tp = 0; 
goto dropwithreset; 
} 


/* 
* If the ACK bit is off we drop the segment and return. 
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*/ 
if ({tiflags & TH_ACK) == 4) 
goto drop; 


fe 
* Ack processing. 

xf 

switch (tp->t_state) { 


{* 
* In SYN_RECEIVED state if the ack ACKs our SYN then enter 
* ESTABLISHED state and continue processing, othewise 
* send an RST. 
xf 

case TCPS SYN_RECEIVED: 

if (SEQ_GT(tp->snd_una, ti->ti_ack) || 
SEQ GT(ti->ti_ack, tp->snd_max)) 
goto dropwithreset; 
tp->snd_unatt; /* SYN acked */ 
if (SEQ_LT(tp->snd_nxt, tp->snd_una)) 
tp->snd_nxt = tp->snd_una; 
tp->t_timer [TCPT_REXMT] = 0; 
if (so->so_options & SO_ACCEPTCONN) 
so->so_ state |= SS_CONNAWAITING; 
soisconnected (so); 
tp->t_state = TCPS ESTABLISHED; 
(void) tep_reass(tp, (struct tcepiphdr *)0); 
tp->snd_wll = ti->ti_seq - 1; 
/* fall into ... */ 


/* 
* In ESTABLISHED state: drop duplicate ACKs; ACK out of range 
ACKs. If the ack is in the range 
tp->snd_una < ti->ti_ack <= tp->snd_max 
then advance tp->snd_una to ti->ti_ack and drop 
data from the retransmission queve. If this ACK reflects 


+t ee OF 


*/ 

case TCPS ESTABLISHED: 
case TCPS FIN WAIT 1: 
case TCPS FIN WAIT 2: 
case TCPS CLOSE_WAIT: 
case TCPS CLOSING: 
case TCPS LAST ACK: 
case TCPS TIME WAIT: 


#define ourfinisacked (acked > 0) 


if (SEQ_LEQ(ti->ti_ack, tp->snd_una)) 
break; 

if (SEQ_GT(ti->ti_ack, tp->snd_max)) 
goto dropafterack; 

acked = ti->ti_ack - tp->snd_una; 


/* 
* If transmit timer is running and timed sequence 
* number was acked, update smoothed round trip time. 
*/ 
if (tp->t_rtt && SEQ GT(ti->ti_ack, tp->t_rtseq)) { 
if (tp->t_srtt == 0) 
tp->t_srtt = tp->t_rtt * 10; 
else 
tp->t_srit = 
{tcp_alpha * tp->t_srtt) / 10 + 
(10 - tcp_alpha) * tp->t_rtt; 


/* printf ("rtt td srtt(*10) now d\n", tp->t_rtt, tp->t_srtt); */ 


tp->t_rtt = 0; 
} 


if (ti->ti_ack == tp->snd_max) 
tp->t_timer(TCPT_REXMT] = 0; 

else { 
TCPT RANGESET(tp->t_timer[TCPT REXMT], 


(tcp_beta * tp->t_srtt)/100, TCPTV_MIN, TCPTV_MAX); 


tp->t_rtt = 1; 
tp->t_ratshift = 0; 


more up to date window information we update our window information. 


if (acked > so->so_snd.sb cc) { 
sbdrop(&so->so_snd, so->so_snd.sb cc); 
tp->snd_wnd -= so->so_snd.sb_ cc; 

} else { 
sbdrop(&so->so_snd, acked); 
tp->snd_wnd -= acked; 
acked = 4; 

} 

if {((so->so_snd.sb flags & SB WAIT) |! so->so_snd.sb sel} 
sowwakeup (so) ; 

tp->snd_una = ti->ti_ack; 

if (SEQ_LT(tp->snd_nxt, tp->snd_una)) 
tp->snd_nxt = tp->snd_una; 


switch (tp->t_state) { 


/* 
* In FIN WAIT _1 STATE in addition to the processing 
* for the ESTABLISHED state if our FIN is now acknowledged 
* then enter FIN WAIT 2. 
xf 
case TCPS FIN WAIT 1: 
Lf (ourfinisacked) { 
/* 
* If we can’t receive any more 
* data, then closing user can proceed. 
xf 
if (so->so_ state & SS_CANTRCVMORE) 
soisdisconnected (so) : 
tp->t_state = TCPS FIN WAIT 2; 
} 
break; 


* In CLOSING STATE in addition to the processing for 
* the ESTABLISHED state if the ACK acknowledges our FIN 
* then enter the TIME-WAIT state, otherwise ignore 
* the segment. 
xf 
case TCPS CLOSING: 
if (ourfinisacked) { 
tp->t_state = TCPS TIME WAIT; 
tep_canceltimers (tp); 
tp->t_timer[TCPT 2MSL] = 2 * TCPTV_MSL; 
soisdisconnected (so); 
} 
break; 


/* 
* The only thing that can arrive in LAST_ACK state 
* is an acknowledgment of our FIN. If our FIN is now 
* acknowledged, delete the TCB, enter the closed state 
* and return. 
*/ 
case TCPS LAST ACK: 
if (ourfinisacked) { 
tep_close (tp); 
tp = QO; 
} 
goto drop; 


/* 
* In TIME WAIT state the only thing that should arrive 
* is a retransmission of the remote FIN. Acknowledge 
* it and restart the finack timer. 

x] 
case TCPS TIME WAIT: 
tp->t_timer [TCPT_2MSL] = 2 * TCPTV_ MSL; 
goto dropafterack; 
} 


#undef ourfinisacked 


* Update window information. 
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x] 


if (SEQ _LT(tp->snd_wll, ti->ti_seq) || tp->snd_wll == ti->ti_seq && 


} 
i* 


(SEQ LT(tp->snd_w12, ti->ti_ack) || 
tp->snd_wl2 = ti->ti_ack && ti->ti_win > tp->snd_wnd)) { 
tp->snd_wnd = ti->ti_win: 
tp->snd_wll = ti->ti_sea; 
tp->snd_wl2 = ti->ti_ack; 
/* 
if (tp->snd_wnd > 6) 
wf 
if (tp->snd_wnd != 0) 
tp->t_timer[TCPT PERSIST] = 0; 


* Process segments with URG. 


mf 


if ((tiflags & TH_URG) && ti->ti_urp && 


TCPS HAVERCVDFIN(tp->t_state) == 4) { 


If this segment advances the known urgent pointer, 
then mark the data stream. This should not happen 


a FIN has been received from the remote side. 
In these states we ignore the URG. 
af 
if (SEQ_GT(ti->ti_seqtti->ti_urp, tp->rev_up)) { 
tp->rev_up = ti->ti_seq + ti->ti_urp; 
so~>so_oobmark = so->so_rev.sb cc + 
(tp->rev_up - tp->rcev_nxt} - 1; 
if (so->so_oobmark == 0) 
so->so_ state |= SS_RCVATMARK; 


* 
* 
* in CLOSE_WAIT, CLOSING, LAST ACK or TIME WAIT STATES since 
* 
* 


#ifdef TCPTRUEOOB 


#endif 


{* 


+e ee OF 


*/ 


1£ ((tp->t_flags & TF_DOOOB) = 9) 


sohasoutofband (so); 
tp->t_oobflags &= ~TCPOOB_HAVEDATA; 


data may creep in... ick. 
*/ 
if (ti->ti_urp <= ti->ti_len) { 
tep_pulloutofband(so, ti); 
I 


Process the segment text, merging it into the TCP sequencing queue, 
and arranging for acknowledgment of receipt if necessary. 
This process logically involves adjusting tp->rcv_wnd as data 
is presented to the user (this happens in tcp _usrreq.c, 
case PRU_RCVD). If a FIN has already been received on this 
connection then we just ignore the text. 


Lf ((ti->ti_len [|| (tiflags&TH_FIN)) && 


TCPS _HAVERCVDFIN(tp->t_state) == 0) { 
tiflags = tcp_reass(tp, ti); 
if (tcepnodelack == 0) 
tp->t_flags |= TF_DELACK; 
else 
tp->t_flags |= TF_ACKNOW; 


} else { 


} 
/* 


m_freem(m); 
tiflags &= ~TH_FIN; 


* If FIN is received ACK the FIN and let the user know 
* that the connection is closing. 


*/ 


if (tiflags & TH FIN) { 


if (TCPS HAVERCVDFIN(tp->t_state) == 0) { 
socantrcvmore (so); 
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Remove out of band data so doesn’t get presented to user. 
This can happen independent of advancing the URG pointer, 
but if two URG’s are pending at once, some out-of-band 


tp->t_flags |= TF_ACKNOW; 
tp->rev_nattt: 

} 

switch (tp->t_state) { 


{* 
* In SYN_RECEIVED and ESTABLISHED STATES 
* enter the CLOSE _WAIT state. 
*/ 
case TCPS_SYN RECEIVED: 
case TCPS ESTABLISHED: 
tp->t_state = TCPS CLOSE WAIT; 
break; 


/* 


* If still in FIN_WAIT_1 STATE FIN has not been acked so 


* enter the CLOSING state. 
xf 
case TCPS FIN WAIT 1: 
tp->t_state = TCPS CLOSING; 
break; 


/* 
* In FIN WAIT 2 state enter the TIME WAIT state, 


* starting the time-wait timer, turning off the other 


* standard timers. 
x} 
case TCPS FIN WAIT 2: 
tp->t_state = TCPS TIME WAIT; 
tcp_canceltimers (tp); 
tp->t_timer[TCPT_2MSL] = 2 * TCPTV_MSL; 
soisdisconnected{so); 


break; 
{* 
* In TIME WAIT state restart the 2 MSL time_wait 
af 


case TCPS TIME WAIT: 
tp->t_timer[TCPT_2MSL] = 2 * TCPTV_MSL; 
break; 
} 
} 
if {so->so_options & SO_DEBUG) 
tep trace(TA_INPUT, ostate, tp, step saveti, Oo); 


/* 

* Return any desired output. 
xf 

{void) tcp output (tp); 


#ifdef SIGH 


intcpinput--; 


return; 


dropafterack: 


{* 


timer. 


* Generate an ACK dropping incoming segment if it occupies 


* sequence space, where the ACK reflects our state. 
*f 
if ((tiflags&TH_RST) || 
tlen == 0 && (tiflags&(TH_SYN|TH_FIN)) == 0) 
goto drop; 
if (tp->t_inpcb->inp socket->so_ options & SO DEBUG) 
tcp trace (TA_RESPOND, ostate, tp, &tcp_saveti, 9) 
tep_respond(tp, ti, tp->rcv_nxt, tp->snd_nxt, TH_ACK); 


#ifdef SIGH 


intcpinput--; 


return; 


dropwithreset: 


if (om) 
(void) m_free(om); 
/* 
* Generate a RST, dropping incoming segment. 
* Make ACK acceptable to originator of segment. 
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xf 
if (tiflags & TH_RST) 
goto drop; 
Af (tiflags «& TH_ACR) 
tcp _respond(tp, ti, {tcp_seq)0, ti->ti_ack, TH_RST); 
else { 
if (tiflags & TH_SYN) 
ti->ti_lent+; 
tep respond(tp, ti, ti->ti_seqtti->ti_len, (tep_seq)0, 
TH_RST|TH_ACK); 
} 
#ifdef SIGH 


intepinput--; 
#endif 
return; 
drop: 
/* 
* Drop space held by incoming segment and return. 
xf 


if (tp && (tp->t_inpcb->inp socket->so_options & SO_DEBUG)) 
tep_trace(TA_DROP, ostate, tp, s&tcp_saveti, 0); 
m_freem{m) ; 
#ifdef SIGH 
intcpinput--; 
tendif 
return; 
} 


tep_dooptions(tp, om) 
register struct tepcb *tp; 
register struct mbuf *om; 


register u_char *cp; 
register int opt, optlen, cnt; 


MAPSAVE (); 

cp = mtod(om, u_char *); 

ent = om->m_len; 

for (; cnt > 0; cnt -= optlen, cp t= optlen) { 
opt = UCHAR(cp[0}}); 
if (opt — TCPOPT_EOL) 


break; 
if (opt = TCPOPT NOP) 
optien = 1; 


else 
optlen = UCHAR(cp[1]}); 
switch {opt) { 


default: 
break; 


case TCPOPT_MAXSEG: 
if (optlen != 4) 
continue; 

beopy ({caddr_t) (cpt2), (caddr_t)&tp->t_maxseg, 2); 
#ifdef SMALLTCP 

tp->t_maxseg = 256; 
fendif 
#ifndef WATCHOUT 

tp->t_maxseg = ntohs(({u_short)tp->t_maxseg); 
fendif 


break; 


#ifdef TCPTRUEOOB 
case TCPOPT WILLOOB: 
tp->t_flags |= TF_DOOOB; 
printf("tp %x dooob\n", tp); 
break; 


case TCPOPT OOBDATA: { 
int seq; 


register struct socket *so = tp->t_inpcb->inp socket; 


tcp_seq mark; 


Af (optlen != 8} 
continue; 
seq = UCHAR{(cp[2]); 
if (seq < UCHAR(tp->t_iobseq) } 
seq t= 256; 
printf (“oobdata cp[2] %d iobseq %d seq %d\n", cp[2], tp->t_iobseq, seq); 
if (seq - UCHAR(tp->t_iobseq) > 128) { 
printf ("bad seq\n"); 
tp->t_oobflags |= TCPOOB_OWEACK; 
break; 
} 
tp->t_iobseq = cp[2]; 
tp->t_iobe = cp[3]; 
beopy(cp+4, &mark, sizeof mark); 
#ifndef WATCHOUT 
mark = ntohl (mark); 
#endif 
so->so_oobmark = so->so_rcev.sb cc + (mark-tp->rev_nxt); 
if {so->so_cobmark == 6) 
so->so_state |= SS_RCVATMARK; 
printf("take oob data %x input iobseq now %x\n", tp->t_lobc, tp->t_iobseq);: 
sohasoutofband (so); 
break; 


} 


case TCPOPT OOBACK: { 
int seq: 


if (optlen != 4) 
continue; 
if (tp->t_cobseq {= ep[2]) { 
printf ("wrong ack\n"); 
break; 
} 
printf("take oob ack %x and cancel rexmt\n", cp[2]); 
tp->t_cobflags &= ~TCPOOB_NEEDACK; 
tp->t_timer [TCPT _OOBREXMT] = 0; 
break; 
} 
#endif TCPTRUECOB 
} 
} 
{void} m_free (om); 
MAPREST () ; 


{* 
* Pull out of band byte out of a segment so 
* it doesn’t appear in the user’s data queue. 
* It is still reflected in the segment length for 
* sequencing purposes. 
x} 
tcp _pulloutofband(so, ti) 
register struct socket *so; 
register struct tcpiphdr *ti; 


register struct mbuf *m; 
register int cnt = ti->ti_urp - 1; 


MAP SAVE () ; 
m = dtom(ti); 
while (cnt >= 0) ft 
if (m->m_len > cnt) { 
char *cp = mtod(m, caddr_t) + cnt; 
struct tepcb *tp = sototcpcb(so); 


tp->t_lobe = *cp; 
tp->t_oobflags |= TCPOOB_HAVEDATA; 
beopy({cp+1, cp, (int) (m->m_len - cnt - 1)); 
m->m_len--; 
goto out; 

} 

cnt -= m->m_len; 

m = m->m_next; 

if (m == 0) 
break; 
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} 

panic("tcp pulloutofband") ; 
out: 

MAPREST(); 
} 


$ifdef WATCHOUT /* this is for the 11 */ 

#define ti_mbuf ti_sum 

#define DTOM(d) { (struct mbuf *) ((d)->ti_mbuf) ) 

#define INSQUR(i,p) { \ 
struct tepiphdr *tii 
MSGET( (tii, struct te 
insque(tii,p): \ 
tii->ti_len = (i)->ti_len; tii->ti_seg = (i)->ti_seq; \ 
tii->ti_flags = (i)->ti_flags; tii->ti_mbuf = m0; i = tii: } 


\ 


: 
miphdr, O§; Af (bi 


Jo- 


== 0) goto drop; \ 


#else 

#define DTOM(d) dtom(d) 

#define INSQUE(i,p) insque(i,p)} 
#endif 


{* 
* Insert segment ti into reassembly queue of tep with 
* control block tp. Return TH FIN if reassembly now includes 
* a segment with FIN. 
af 
tep_reass(tp, ti) 
register struct tepcb *tp; 
register struct tepiphdr *ti; 


register struct tcpiphdr *q,*qp; 

register struct socket *so = tp->t_inpcb->inp socket; 
register struct mbuf *m,*m0; 

register int cnt,flags,empty = 0; 


{* 
* Call with ti==0 after become established to 
* force pre-ESTABLISHED data up to user socket. 
xf 
1f (ti == 0) 
goto present; 
mG = dtom(ti}; 


{* 
* Find a segment which begins after this one does. 
xf 

for (q = tp->seg_next; q != (struct tcpiphdr *)tp; 

q = (struct tepiphdr *)q->ti_next) 
if (SEQ_GT(q->ti_seq, ti->ti_seq)) 
break; 


fr 
* If there is a preceding segment, it may provide some of 
* our data already. If so, drop the data from the incoming 
* segment. If it provides all of our data, drop us. 
a 
if ((struct tepiphdr *)q->ti_prev != (struct tcpiphdr *)tp) { 
register int i; 
q = (struct tcpiphdr *)q->ti_prev; 
/* conversion to int (in i) handles seq wraparound */ 
i = q->ti_seq + q->ti_len - ti->ti_seq; 
if (i > 6) { 
if (i >= ti->ti_len) 
goto drop; 
m_adj(m0, i); 
ti->ti_len -= i; 
ti->ti_seq += i; 
} 


q = (struct tcepiphdr *) (q->ti_next); 
1 


{* 
* While we overlap succeeding segments trim them or, 
* if they are completely covered, dequeue them. 
wf 
while (q /= (struct tepiphdr *)tp) { 
register int 1 = (ti->ti_seq + ti->ti_len) - gq->ti_seq: 


if {i <= 0) 
break; 

if (i < q->ti_len) { 
q->ti_seq += i; 
q->ti_len -= i; 
m_adj{DTOM(q), i); 
break; 

} 

qp = q 

q = (struct tcpiphdr *)q->ti_next; 

m = DTOM{qp); 

remque (gp): 


#ifdef WATCHOUT 


#endif 


present: 


MSFREE (qp) : 


m_freem(m) ; 
} 


f* 
* Stick new segment in its place. Insque stuff can be expensive, 
* so avoid if possible. 


*f 
if (tp->seg_next == (struct tepiphdr *)tp) #* queue was empty */ 
emptytt; 
else 
INSQUE (ti, q->ti_prev); 
/* 


* Present data to user, advancing rcv_nxt through 
* completed sequence space. 
*/ 
if (TCPS_HAVERCVDSYN(tp->t_state) = 0) 
goto out; 
if (lempty) ti = tp->seg_next; 
if (ti — (struct tepiphdr *)tp || ti->ti_seq != tp->rcv_nxt) 
goto out; 
if (tp->t_state == TCPS SYN RECEIVED && ti->ti_len) 
goto out; 
if (empty) { 
tp->rev_nxt t= ti->ti_len; 
flags = ti->ti_flags & TH_FIN; 
if (so->so_state & SS_CANTRCVMORE) 
m_ freem(m0); 
else 
sbappend(&so->so_rev, m0); 


sorwakeup (so) ; 
return (flags); 


tp->rev_nxt += ti->ti_len; 

flags = ti->ti_flags & TH_FIN; 
remque (ti); 

m = DTOM(ti); 

qp = ti; 

ti = (struct tepiphdr *)ti->ti_next; 


#ifdef WATCHOUT 


#endif 


drop: 


out: 


MSFREE (qp) ; 


if (so->so_state & SS_CANTRCVMORE) 
m_freem(m); 
else 
sbappend (&so->so_rev, m); 
} while (ti != (struct tepiphdr *)tp && ti->ti_seq == tp->rcv_nxt); 
sorwakeup (so) ; 
return (flags); 


m_freem (m0); 
return (0); 


if (empty) INSQUE(ti, tp); 

{* 
* If there are more than 10 tcp segments already queued, 
* drop the oldest one from the queue. This sometimes happens 
* when we get flooded with packets from unbuffered writes and 
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* there are gaps in the sequence numbers. (Why are gaps so likely 
* with unbuffered writes?) A retransmit (covering all the 
* one byte segments queued) will occur in a moment. 


*/ 
cnt = 0; 
for {q = tp->seg_next; g != (struct tepiphdr *}tp; 
q = (struct tepiphdr *)q->ti_next) 


entt+t; 
if (cent > 10) { 
q = tp->seg_next; 
m = DTOM(q); 
remque (q); 
#ifdef WATCHOUT 
MSFREE (q); 
#endif 
m_freem(m) ; 
} 
return (0); 
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/* SMS S1% $ES xf 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/errno.h" 
tinclude “sys/types.h® 
#include “sys/systm.h" 
#include “net/misc.h" 
#include “net/mbuf.nh" 
#include “net/protosw.h" 
#include "net/socket.h" 
#include "net/socketvar.h" 
#include “net/in.n" 
#include "net/route.n" 
#include “net/in_pceb.h" 
#include “net/in_systm.h" 
#include "net/ip.h" 
#include “net/ip var.h" 
#include “net/tcp.h" 
#define TCPOUTFLAGS 
#include “net/tcp fsm.h" 
#include “net/tcp_seq.h" 
#include “net/tcp timer.h" 
#include “net/tcp_var.h" 
#include "net/tcpip.h" 
#include “net/tcp_debug.h" 
#include “errno.h" 


char *tepstates[]; /* Xxx */ 
#define returnerrie) { error = (e); goto out; } 


f* 
* Initial options: indicate max segment length 1/2 of space 
* allocated for receive; if TCPTRUEOOB is defined, indicate 
* willingness to do true out-of-band. 
xf 
#ifndef TCPTRUEOOB 
u_char tecp_initopt[4] = { TCPOPT_MAXSEG, 4, 0x0, 0x0, }; 
#else i 
u_char tcp initopt [6] 
fendif 


{* 
* Top output routine: figure out what should be sent and send it. 
xf 
tep_output (tp) 
register struct tcpcb *tp; 
{ 
register struct socket *so = tp->t_inpceb->inp socket; 
register int len; 
register struct mbuf *m0; 
int off, flags, win, error; 
register struct mbuf *n; 
register struct tepiphdr *ti; 
register u_char *opt = 0; 
register unsigned optlen = 0; 
register int sendalot; 


/* 
* Determine length of data that should be transmitted, 
* and flags that will be used. 
* If there is some data or critical controls (SYN, RST) 
* to send, then transmit; otherwise, investigate further. 
*/ 
#ifdef SIGH 
{ extern int intcpoutput; } 
{if (intcpoutput) printf("intcpoutput..."); intcpoutputt+; } 
fendif 
again: 
sendalot = 0; 
off = tp->snd_nxt - tp->snd_una; 
len = MIN(so~>so0_snd.sb cc, tp~>snd_wnd+tp->t_force) - off; 
if (len < 0) { 
returnerr (0); /* 222 */ /* past FIN */ 
} 


{ TCPOPT MAXSEG, 4, 0x0, 0x0, TCPOPT_WILLOOB, 2 }; 


if (len > tp->t_maxseg) { 
len = tp->t_maxseg; 
sendalot = 1; 

} 


flags = tcp outflags[tp->t_state]; 

if ( SEQ_LT((tp~>snd_nxt + len), (tp->snd_una + so->so_snd.sb cc)) } 
flags &= ~TH_FIN; 

if (flags & (TH_S¥YN|TH_RST|TH FIN)) 
goto send; 

if (SEQ_GT(tp->snd_up, tp->snd_una) ) 
goto send; 


{* 

* Sender silly window avoidance. If can send all data, 
* a maximum segment, at least 1/4 of window do it, 

* or are forced, do it; otherwise don’t bother. 


*/ 
if (len) { 
if (len = tp->t_maxseg || offt+tlen >= so->so_snd.sb_cc) 
goto send; 
if (len * 4 >= tp->snd_wnd) #* a lot */ 
goto send; 
if (tp->t_force) 
goto send; 
} 
f* 
* Send if we owe peer an ACK. 
*/ 
LE (tp->t_flagssTF_ACKNOW) 
goto send; 


#ifdef TCPTRUEOOB 


#endif 


/* 
* Send if an ont of band data or ack should be transmitted. 
xf 
if {tp->t_oobflagsé (TCPCOB_OWEACK | TCPCOB_NEEDACK} } ) 
gota send; 


/* 
* Calculate available window, and also amount 
* of window known to peer (as advertised window less 
* next expected input.) If this is 35% or more of the 
* maximum possible window, then want to send a segment to peer. 
*/ 
win = sbspace(&so->so_rcv}; 
if (win > 0 && 
((100* (win- (tp->rcev_adv-tp->rev_nxt))/so->so_rcv.sb hiwat) >= 35)) 
goto send; 


~ 
* 


TCP window updates are not reliable, rather a polling protocol 
using ‘*persist’’ packets is used to insure receipt of window 
updates. The three ‘‘states’’ for the output side are: 
idle not doing retransmits or persists 
persisting to move a zero window 
(re)transmitting and thereby not persisting 


tp->t_timer(TCPT_PERSIST] 
is set when we are in persist state. 
tp->t_force 
is set when we are called to send a persist packet. 
tp->t_timer [TCPT_REXMT] 
is set when we are retransmitting 
The output side is idle when both timers are zero. 


If send window is closed, there is data to transmit, and no 
retransmit or persist is pending, then go to persist state, 
arranging to force out a byte to get more current window information 
if nothing happens soon. 


ee ee 2 


*f 
if (tp->snd_wnd == 0 && so->so_snd.sb cc && 
tp->t_timer[TCPT_REXMT] == 0 && tp->t_timer[{TCPT PERSIST] == 9) { 
tp->t_ratshift = 0; 


tcp_output ic 


tep_setpersist (tp); 
} 


/* 
* No reason to send a segment, just return. 
zy; 

i 
returnerr (0); 


send: 
/* 
* Grab a header mbuf, attaching a copy of data to 
* be transmitted, and initialize the header from 
* the template for sends on this connection. 
*/ 
MGET(m, ©); 
if (m = 0) { 
#ifdef SIGH 
printf ("cant get header in tcpoutput\n"); 
tendif 
returnerr {ENOBUFS) ; 
} 
m->m_off = MMAXOFF - sizeof (struct tcpiphdr); 
m->m_len = sizeof (struct tcpiphdr); 
if (len) { 


m=->m_next = m_copy(so->so_snd.sb mb, off, len); 


if (m->m_next — 0) 
len = 0; 
} 
ti = mtod(m, struct tcpiphdr *); 
if (tp->t_template == 0) 
panic ("tcp output"); 


beopy((caddr_t)tp->t_template, (caddr_t)ti, sizeof (struct tcpiphdr)); 


/* 
* Fill in fields, remembering maximum advertised 


* window for use in delaying messages about window sizes. 


xy 

ti->ti_seq = tp->snd_nxt; 

ti->ti_ack = tp->rev_nxt; 
#ifndef WATCHOUT 

ti->ti_seq = htonl(ti->ti_seg); 

ti->ti_ack = htonl(ti->ti_ack); 
fendif 

/* 
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¥ifdef WATCHOUT 


#else 


¢endif 


m->m_next = m_get{M DONTWAIT); 
if (m->m_next == 0) { 
(void) m_free{m); 
m_freem{md) ; 
returnerr (ENOBUFS) ; 
} 
m->m_next->m_next = m0; 
m0 = m->m_next; 
mQ->m_off = MMINOFF; 
m0->m_len = optlen; 


if (opt = tep initopt) 

beopy({caddr_t)opt, mtod(m0d, caddr t), {int)optlen): 
else 

MBCOPY ({tp->t_tcpopt, 0, m0, 0, (int)optilen); 
beopy((caddr_tjopt, mtod(m0, caddr t), (int)optlen); 


opt = (u_char *) (mtod(mO, caddr_t) + optlen); 


#ifdef TCPTRUECOB 


if (tp->t_oobflags&TCPOOB_OWEACK) { 


printf(“tp %x send OOBACK for &x\n", tp->t_iobseq); 


toptt++ = TCPOPT OOBACK; 

xopt++ = 3; 

xoptt++ = tp->t_iobseq; 

m0->m_len += 3; 

tp->t_oobflags &= ~TCPOOB_OWEACK; 

/* sender should rexmt oob to force ack repeat */ 
} 
if (tp->t_oobflags&TCPOOB_NBEDACK) { 

tep_seq oobseq; 


printf(“tp %x send OCOBDATA seq %x data %x\n", tp->t_oebseg, tp->t_oobc); 


*xoptt+ = TCPOPT OOBDATA; 

*opt++ = 8; 

*optt+ = tp->t_oobseq; 

*opttt+ = tp->t_oobe; 

oobseq = tp->t_cobmark - tp->snd_ nxt; 


#ifndef WATCHOUT 


oobseg = htonl {oobseq) ; 


* Before ESTABLISHED, force sending of initial options 
* unless TCP set to not do any options. 
x/ 
if (tp->t_state < TCPS ESTABLISHED) { 
1f (tp->t_flagséTF_NOOPT) 
goto noopt; 
opt = tcp initopt; 
optlen = sizeof (tcp_initopt); 
*(u_short *) (opt + 2) = so->so_rev.sb_ hiwat / 2; 
#ifdef SMALLTCP 
*(u_short *) (opt + 2) = 256; 
#endif 
#ifdef TCPACKMOST 
*{u_short *) (opt + 2) = so->so_rcv.sb hiwat; 
#endif 
#ifndef WATCHOUT 
*(u_short *) (opt + 2) = htons({*(u_short *) (opt + 2)); 
fendif 7 


} else { 
1f (tp->t_tcpopt == 0) 
goto noopt; 
opt = mtod(tp->t_tcpopt, u_char *); 
optlen = tp->t_tcpopt->m_len; 
#ifndef TCPTRUEOOB 
if (opt) 
#else 
Lif (opt |{ (tp->t_oobflagsé (TCPOOB_OWEACK|TCPOOB_NEEDACK) )} 
fendif 
{ 


m0 = m->m_next; 


#endif 
beopy ({caddr_t)&oobseq, opt, sizeof oobseq); 
mO->m_len += 8; 
TCPT_RANGESET (tp->t_timer [TCPT_OOBREXMT], 
(tcp_beta*tp->t_srtt)/100, TCPTV_MIN, TCPTV_MAX); 
} 
#endif 
while (mO->m_len & 0x3) { 
*xopttt+t = TCPOPT_EOL; 
m0->m_len++; 
} 
optlien = mi->m_len; 
ti = mtod(m, struct tcepiphdr *); /* needed for 11 */ 
ti->ti_off = (sizeof (struct tcphdr) + optlen) >> 2; 
} 
noopt: 


ti->ti_flags = flags; 
win = sbspace(&so->so_rcv) ; 
#ifndef TCPACKMOST 


if (win < so->so_rev.sb hiwat / 4) /* avoid silly window */ 


#else 
if (win < so->so_rcv.sb hiwat) 
tendif 
win = 0; 
if (win > 0) 
#ifndef WATCHOUT 
ti->ti_win = htons((u_short)win); 
#else 
ti->ti_win = win; 
tendif 
if (SEQ_GT(tp->snd_up, tp->snd_nxt)} { 
ti->ti_urp = tp->snd_up - tp->snd_nxt; 
#ifndef WATCHOUT 
ti->ti_urp = htons(ti->ti_urp); 
tendif 
ti->ti_flags j= TH_URG; 
} else 


/* avoid silly window */ 


tcp_output:c 


#ifndef 


tendif 
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* If no urgent pointer to send, then we pull 

* the urgent pointer to the left edge of the send window 

* so that it doesn’t drift into the send window on sequence 
* number wraparound. 

xf 
tp->snd_up = tp->snd_una; /* arag it along */ 
* If anything to send and we can send it all, set PUSH. 

* (This will keep happy those implementations which only 

* give data to the user when a buffer fills or a PUSH comes in. 

*/ 
if (len && offt+len == so->so_snd.sb_ cc) 

ti->ti_flags |= TH PUSH: 


{* 
* Put TCP length in extended header, and then 
* checksum extended header and data. 
af 
if (len + optilen) { 
ti->ti_len = sizeof (struct tephdr) + optlen + len; 
WATCHOUT fc 
ti->ti_len = htons((u_short})ti->ti_len); 


} 
mbprint(m, “before tout ck"); 


ti->ti_sum = in_cksum(m, sizeof (struct tcpiphdr) + (int)optlen + len); 
nprintf ("tout sumtx len$x\n",ti->ti_sum, sizeof (struct tcpiphdr)+optlentlen); 


/* 
* In transmit state, time the transmission and arrange for 
* the retransmit. In persist state, reset persist time for 
* next persist. 


xf 
Lf (tp->t_force == 0) { 
f* 
* Advance snd nxt over sequence space of this segment. 
xf 


if (flags & (TH_SYN|TH FIN)) 
tp->snd_nxttt; 
tp->snd_nxt += len; 


/* 
* Time this transmission if not a retransmission and 
* not currently timing anything. 
*f 
if (SEQ_GT(tp->snd_nxt, tp->snd_max) && tp->t_rtt = 0) { 
tp->t_rtt = 1; 
tp->t_rtseq = tp->snd_nxt - len; 
} 
if (SEQ _GT(tp->snd_nxt, tp->snd_max) ) 
tp->snd_max = tp->snd_nxt; 


* Set retransmit timer if not currently set. 
* Initial value for retransmit timer to tcp_beta*tp->t_srtt. 
* Initialize shift counter which is used for exponential 
* backoff of retransmit time. 
af 
if (tp->t_timer[TCPT_REXMT] == 0 && 
tp->snd_nxt != tp->snd_una) { 
TCPT_RANGESET (tp->t_timer [TCPT_REXMT], 
(tcp_beta*tp->t_srtt)/100, TCPTV_MIN, TCPTV_MAX); 
tp->t_rxtshift = 0; 
} 
tp->t_timer [TCPT_PERSIST] = 0; 
} else { 
if (SBQ_GT(tp->snd_unatl, tp->snd_max)) 
tp->snd_max = tp->snd_una+l; 
} 


y* 
* Trace. 

*/ 

if (so->so_ options & SO DEBUG} 


out: 


tep trace(TA_OUTPUT, tp->t_state, tp, ti, 0); 


/* 
* Fill in IP length and desired time to live and 
* send to IP level. 
xf 


((struct ip *)ti)->ip_len = sizeof (struct tepiphdr) + optlen + len; 


((struct ip *)ti)->ip ttl = TCP_TTL; 


if (error = ip output(m, tp->t_ipopt, {(so->so_options & SO _DONTROUTE) 


&routetoif : étp->t_inpcb->inp route, 0)) { 
returnerr (error); 


/* 


* 


Data sent (as far as we can tell). 


* If this advertises a larger window than any other segment, 


* then remember the size of the advertised window. 
* Drop send for purpose of ACK requirements. 
a; 
if (win > 0 && SEQ GT(tp->rcv_nxttwin, tp->rev_adv) } 
tp->rev_adv = tp->rev_nxt + win; 
tp->t_flags &é= ~(TF_ACKNOW|TF_DELACK); 
if (sendalot && tp->t_force == 0) 
goto again; 
returnerr (6); 


#ifdef SIGH 


#endift 


} 


intcpoutput--; 


return (error); 


tep_setpersist (tp) 


{ 


register struct tepcb *tp; 


if (tp->t_timer [TCPT_REXMT]} 
panic("tcp output REXMI"); 
i* 
* Start/restart persistance timer. 
xf 
TCPT RANGESET (tp->t_timer[TCPT_ PERSIST], 
({tcp_beta * tp->t_srtt)/100) << tp->t_rxtshift, 
TCPTV_PERSMIN, TCPTV MAX); 
tp->t_rxtshiftt+; 
if (tp->t_rxtshift >= TCP_MAXRXTSHIFT) 
tp->t_rxtshift = 0; 
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{* 
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#include “sys/param.h" 
#include “sys/config.h" 
#include "sys/errno.h"# 
#include "sys/types.h" 
#include “sys/systm.h“ 
#include “net/misc.h"™ 
#include “net/mbuf.h" 
#include “net/socket.h” 
#include “net/socketvar.h" 
#include “net/protosw.h" 
f#include “net/in.h" 
#include "net/route.h" 
#include “net/in_peb.h" 
#include “net/in_systm.h" 
#include “net/if.h® 
#include “net/ip.h" 
#include “net/ip var.h" 
#include “net/ip icmp.h" 
#include "net/tep.h" 
#include "net/tcp_fsm.h®" 
#include “net/tcp_seq.h" 
#include “net/tcp_timer.h" 
#include “net/tcp_var.h" 
#include “net/tcpip.h" 
#include “errno.h" 


f* 
* Tep initialization 
*f 
tep_init() 
{ 
tep_iss = 1; /* wrong */ 
tcb.inp next = teb.inp prev = &tcb; 
tep_alpha = TCP_ALPHA; 
tep_beta = TCP BETA; 
} 
f* 


*} 


Create template to be used to send tcp packets on a connection. 
Call after host entry created, allocates an mbuf and fills 

in a skeletal tcp/ip header, minimizing the amount of work 
necessary when the connection is used. 


struct tcpiphdr * 
tep_ template (tp) 


{ 


— 


- * %  e & we & BH 


register struct tcpcb *tp; 


register struct inpcb *inp = tp->t_inpcb; 
register struct tcpiphdr *n; 


MSGET(n, struct tcpiphdr, 1); 
if (n == 0) 

return (0); 
n->ti_pr = IPPROTO_TCP; 
n~>ti_len = htons(sizeof (struct tcpiphdr) - sizeof (struct ip)); 
n->ti_src = inp->inp_laddr; 
n->ti_dst = inp->inp faddr; 
n->ti_sport = inp->inp_lport; 
n->ti_dport = inp->inp_fport; 
n->ti_off = 5; 
return (n); 


Send a single message to the TCP at address specified by 

the given TCP/IP header. If flags==0, then we make a copy 

of the tcpiphdr at ti and send directly to the addressed host. 
This is used to force keep alive messages out using the TCP 
template for a connection tp->t_template. If flags are given 
then we send a message back to the TCP which originated the 
segment ti, and discard the mbuf containing it and any other 
attached mbufs. 


* In any case the ack and sequence number of the transmitted 
* segment are as specified by the parameters. 
*/ 
tep_respond(tp, ti, ack, seq, flags) 
register struct tcpcb *tp; 
register struct tcpiphdr *ti; 
register tcp seq ack, seq; 
register int flags; 


register struct mbuf *m; 


register int win = 6, tlen; 
register struct route *ro = 0; 


if (tp) { 
win = sbspace(&tp->t_inpcb->inp socket->so_rev); 
re = &tp->t_inpcbh->inp route; 
} 
if (flags = 0) { 
m = m_get(M_DONTWAIT) ; 
if (m = 0) 
return; 
m~>m_off = MMINOFF; 
m->m_len = sizeof (struct tcpiphdr) + 1; 
beopy ({caddr t)ti, mtod(m, caddr_t), sizeof *ti); 
ti = mtod(m, struct tcpiphdr *); 
flags = TH_ACK; 
tlen = 1; 
} else { 
m = dtom(ti); 
m_freem(m->m_next) ; 
m->m_next = 0; 
#ifndef newmbufs 
m->m_off = (int)ti - (int)m: 
#else 
m~>m_off = (int)ti - mtobuf(m, int); 
#endif 
m->m_len = sizeof (struct tcpiphdr); 
#tdefine xchg(a,b,type) { type t: t=a; a=b; b=t; } 
xchg(ti->ti_dst.s addr, ti->ti_src.s addr, u_long); 
xchg(ti->ti_dport, ti->ti_sport, u_short); 
#undef xchg 
tlen = @; 
} 
ti->ti_next = ti->ti_prev = 0; 
ti->ti_xl = 0; 
ti->ti_len = sizeof (struct tephdr) + tlen; 
ti->ti_seq = seq: 
ti->ti_ack = ack; 
#ifndef WATCHOUT 
ti->ti_len = htons({u_short)ti->ti_len); 
ti->ti_seq = htonl(ti->ti_seq); 
ti->ti_ack = htonl (ti->ti_ack); 
#endift 
ti->ti_x2 = 0; 
ti->ti_off = sizeof (struct tephdr) >> 2; 
ti->ti_flags = flags; 
ti->ti_win = win; 
#ifndef WATCHOUT 
ti->ti_win = htons(ti->ti_win); 
#endif 
ti->ti_urp = 0; 


/* billn 
ti->ti_sum = 0; 
*/ 


ti->ti_sum = in _cksum(m, sizeof (struct tcpiphdr) + tlen); 
((struct ip *)ti)->ip_len = sizeof (struct tcpiphdr) + tlen; 
((struct ip *)ti)->ip ttl = TCP TTL; 

(void) ip_output(m, (struct mbuf *)0, ro, 0); 


{* 

* Create a new TCP control block, making an 

* empty reassembly queue and hooking it to the argument 
* protocol. cantral block. 
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xf 
struct tepcb * 
tep_newtcpcb (inp) 
register struct inpcb *inp; 
{ 


register struct tepch *tp; 


MSGET(tp, struct tepcb, 1); 
if (tp == 0) 
return (0); 
tp->seg_next = tp->seg_prev = (struct tepiphdr *)tp; 
/* Correction from Dan@sri-tse 


tp->t_maxseg = 576; /* satisfy the rest of the world */ 
tp->t_maxseg = 512; /* satisfy the rest of the world */ 
tp->t_flags = 0; /* sends options! */ 


tp->t_inpch = inp; 
inp->inp _ppeb = (caddr_t)tp; 
return (tp); 

} 


a* 
* Drop a TCP connection, reporting 
* the specified error. If connection is synchronized, 
* then send a RST to peer. 
Af 
tep_dropitp, errno) 
register struct tepcb *tp; 
register int errno; 


struct socket *so = tp->t_inpcb->inp socket; 


if (TCPS HAVERCVDSYN(tp->t_state)) { 
tp->t_state = TCPS CLOSED; 
(void) tep_output (tp); 
} 
so->so_ error = errno; 
tep_close(tp); 
} 


tep_abort (inp) 

register struct inpech *inp; 
{ 

tep_close((struct tepch *)inp->inp_ppcb) ; 
} 


#ifdef WATCHOUT 
#define ti_mbuf ti_sum 
#define DTOM(d) ( (struct mbuf *) ((d)->ti_mbuf) ) 


telse 
#define DTOM(d) dtom(d) 
#endif 
{* 
* Close a TCP control block: 
* discard all space held by the tcp 
* discard internet protocol block 
* wake up any sleepers 
xf 


tep_close (tp) 
register struct tcpcb *tp; 
{ 
register struct tepiphdr *t; 
#ifdef WATCHOUT 
register struct tcpiphdr *to; 
fendif 
register struct inpcb *inp = tp->t_inpcb; 
register struct socket *so = inp->inp_ socket; 


for (t = tp->seg_next; t {= (struct tepiphdr *)tp:) { 
m_freem(DTOM(t)); 
#ifdef WATCHOUT 
to = t; 
ftendif 
t = (struct tepiphdr *)t->ti_next; 
#ifdef WATCHOUT 
MSFREE (to) ; 


#endif 
} 
if (tp->t_template) 
MSFREE (tp->t_template) ; 
if {(tp->t_tcpopt) 
(void) m_free{tp->t_tcpopt); 
if (tp->t_ipopt) 
(void) m_free(tp->t_ipopt) ; 
MSFREE (tp) ; 
inp->inp ppcb = 0; 
soisdisconnected (30) ; 
in_pcbdetach (inp); 
} 


tep_drain() 
{ 


} 


tep_ctlinput{cmd, arg) 
register int cmd; 
register caddr _t arg; 


register struct in addr *sin; 
extern u_char inetctlerrmap[]; 


if (cmd < 0 || cmd > PRC_NCMDS) 
return; 
switch (cmd) { 


case PRC_ROUTEDEAD: 
break; 


case PRC QUENCH: 
break; 


/* these are handled by ip */ 
case PRC_IFDOWN: 
case PRC_HOSTDEAD: 
case PRC_HOSTUNREACH: 
preak; 


default: 
sin = &({struct icmp *)arg)->icmp_ip.ip dst; 
in_pebnotify(stcb, sin, inetctlerrmap[cmd], tcp_abort); 


| 
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i* tep_timer.c 4.23 82/06/20 xf 


#include “sys/param.h® 
#include “sys/config.h" 
#include “sys/errno.h" 
#include "sys/types.h®" 
#include “sys/systm.h"™ 
#include “net/misc.h"™ 
#include "net/mbuf.h" 
#include “net/socket.h™ 
#include "net/socketvar.h" 
#include “net/protosw.h" 
#include "net/in.h" 
#include “net/route.h" 
#include "net/in_peb.h" 
#include "net/in_systm.h" 
#include "net/if.h" 
#include "net/ip.h" 
#include “net/ip var.h" 
#include "net/tcp.h" 
f#include “net/tcp_fsm.h" 
#include "net/tcp_seq.h" 
#include “"net/tcp timer.h" 
#include “net/tcp_var.h" 
#include "net/tcpip.h" 
#include “errno.h" 


int tepnodelack = 0; 
#ifdef SIGH 

int infasttimo = 0; 
int inslowtimo = 0; 
#endif 

fr 


* Fast timeout routine for processing delayed acks 
xf 
tep_fasttimo() 
{ 
register struct inpcb *inp; 
register struct tepcb *tp; 
register int s = splnet(); 


#ifdef SIGH 
if (infasttimo) printf ("infasttimo..."); else infasttimot+; 
tendif 
inp = tcb.inp next; 
if (inp) 
for {; inp != 4&tcb; inp = inp->inp_ next) 
if (({tp = (struct tcpcb *)inp->inp_ppcb) «&& 
{tp->t_flags & TF_DELACK)) { 
tp->t_flags é= ~TF_DELACK; 
tp->t_flags |= TF_ACKNOW; 
(void) tcp output (tp); 
} 
#ifdef SIGH 
infasttimo--; 
fendif 
splx(s); 
} 


/* 
* Top protocol timeout routine called every 500 ms. 
* Updates the timers in all active tcb’s and 
* causes finite state machine actions if timers expire. 
x/ 
tcp slowtimo() 
{ 
register struct inpcb *ip, *ipnxt; 
register struct tepcb *tp; 
register int s = splnet(); 
register int i: 


/* 
* Search through tcb’s and update active timers. 
*/ 
#ifdef SIGH 
if (inslowtimo) printf ("inslowtimo..."); else inslowtimot+; 


#endif 
ip = teb.inp_nexat; 
if (ip = 0) { 
splxis); 
#ifdef SIGH 
inslowtimo--; 


#endif 
return; 
} 
while (ip != é&tcbh) { 
tp = intotcpcb(ip); 
if {tp = 46) 
continue; 
ipnxt = ip->inp next; 
for (i = 0; i < TCPT NTIMERS; itt) { 
if (tp->t_timer[i] && --tp->t_timer[i] = 0) { 
(void) tcp _usrreq{tp->t_inpcb->inp_socket, 
PRU_SLOWTIMO, (struct mbuf *)6, 
(caddr_t)i); 
if (ipnxt->inp_prev != ip) 
goto tpgone; 
} 
} 
tp->t_idlet++; 
if (tp->t_rtt) 
tp->t_rtt++; 
tpgone: 
ip = ipnxt; 
} 
tep_iss t= TCP_ISSINCR/PR_SLOWH2; /* increment iss */ 
splx(s); 
#ifdef SIGH 
inslowtimo--; 
tendif 
} 
[* 
* Cancel all timers for TCP tp. 
xf 


tcp _canceltimers (tp) 

register struct tcpcb *tp; 
{ 

register int i; 


for (i = 0; i < TCPT_NTIMERS; i++) 
tp->t_timer[i] = 0; 
} 


int tep backoff [TCP_MAXRXTSHIFT] = /* scaled by 10 */ 
{ 10, 12, 14, 17, 20, 30, 50, 80, 160, 320 }; 
int teprexmtprint = 1; 
int tcpexprexmtbackoff = 06; 
{[* 
* TCP timer processing. 
x} 


tcp_timers(tp, timer) 
register struct tcpcb *tp; 
register int timer; 


switch (timer) { 


/* 
* 2 MSL timeout in shutdown went off. Delete connection 
* control block. 
*/ 
case TCPT_2MSL: 
tep_close (tp); 
return; 


* Retransmission timer went off. Message has not 
been acked within retransmit interval. Back off 
te a longer retransmit interval and retransmit aii 
unacknowledged messages in the window. 


“ * & 


*/ 
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case TCPT REXMT: 
tp->t_rxtshifttt; 
if (tp->t_rxtshift > TCP_MAXRXTSHIFT) { 
tep_drop(tp, ETIMEDOUT) ; 
return; 
} 
TCPT_RANGESET (tp->t_timer[TCPT_REXMT], 
(int)tp->t_srtt/10, TCPTV_MIN, TCPTV_MAX); 
if (tcpexprexmtbackoff) { 
TCPT_RANGESET (tp->t_timer [TCPT_REXMT], 
tp->t_timer[TCPT_REXMT] << tp->t_rxtshift, 
TCPTY MIN, TCPTV_MAX); 
} else { 
TCPT_RANGESET (tp->t_timer[TCPT_REXMT], 
(tp->t_timer[TCPT_REXMT] * 
tep_backoff[(tp->t_rxtshift - 1])/10, 
TCPTIV_ MIN, TCPTV_MAX); 
} 
if (tceprexmtprint) 
printf (“reamt set to td\n", tp->t_timer[TCPT_REXMT]}; 
tp->snd_nxt = tp->snd_una; 
/* this only transmits one segment! */ 
{void) tcp output (tp); 
return; 


fr 
* Persistance timer into zero window. 
* Force a byte to be output, if possible. 
xf 
case TCPT PERSIST: 
tcp_setpersist (tp); 
tp->t_force = 1; 
tvoid) tcp_output (tp); 
tp->t_force = 0; 
return; 


/* 
* Keep-alive timer went off: send something 
* or drop connection if idle for too long. 
xf 
case TCPT KEEP: 
if (tp->t_state < TCPS ESTABLISHED) 
goto dropit; 
if (tp->t_inpcb->inp socket->so_options & SO _KEEPALIVE) { 
Af (tp->t_idle >= TCPTV_MAXIDLE) 
goto dropit; 


ee 
* 


Saying tp->rev_nxt-1 lies about what 

we have received, and by the protocol spec 
requires the correspondent TCP to respond. 
Saying tp->snd_una-1 causes the transmitted 
byte to lie outside the receive window; this 
is important because we don’t necessarily 
have a byte in the window to send (consider 
a one-way stream!) 


we Oe 


x] 
tcp respond (tp, 
tp->t_template, tp->rcv_nxt-1, tp->snd_una-1l, 

} else 

tp->t_idle = 0; 
tp->t_timer[TCPT_KEEP] = TCPTV_KEEP; 
return; 

dropit: 

tcp_drop(tp, ETIMEDOUT) ; 
return; 


#ifdef TCPTRUEOOB 
/* 
* Qut-of-band data retransmit timer. 
xf 
case TCPT OOBREXMT: 
if (tp->t_flags & TF_NOOPT) 
return; 
(vold) tep_output (tp); 
TCPT_RANGESET (tp->t_timer [TCPT_OOBREXMT], 
(2 * tp->t_srtt)/10, TCPTV_MIN, TCPTV_MAX); 


Q) 


#endif 


} 


return; 


tep_usrreq:c 


i* tep_usrreq.c 1.59 82/06/20 */ 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/errno.h*" 
#include “sys/types.h" 
#include “sys/systm.h" 
#include “net/misc.h" 
#tinclude “net /mbuf.h" 
#include “"net/socket.h"™ 
#include "net/socketvar.h" 
#include “net/protosw.h" 
#include "net/in.h" 
#include "net/route.h" 
#include "net/in pcb.h" 
#include "net/in systm.h" 
#include "net/if.h" 
f#include “"net/ip.h" 
#include “net/ip var.h" 
#include “"net/tep.h" 
#include “net/tcp_fsm.h® 
#include "net/tcp_seg.h" 
#include "net/tcp timer.h" 
#include “net/tcp_var.h" 
#include "net/tcpip.h" 
#include “net/tep debug.h" 
#include “errno.h" 


{* 
* TCP protocol interface to socket abstraction. 
xf 

extern char *tcpstates[]; 

struct tcpcb *tcp_newtcpcb(}; 


jn 
* Process a TCP user request for TCP tb. If this is a send request 
* then m is the mbuf chain of send data. If this is a timer expiration 


* (called from the software clock routine), then timertype tells which timer. 


*f 
tcp_usrreq(so, req, m, addr) 
struct socket *so; 
int req; 
struct mbuf *m; 
caddr_t addr; 


register struct inpcb *inp = sotoinpcb(so); 
register struct tepeb *tp; 

int s = splnet({); 

int error = 0; 

int ostate = 0; 

extern struct tepcb * tcp disconnect (); 
extern struct tepch * tcp_usrclosed(); 


/ 
When a TCP is attached to a socket, then there will be 
a (struct inpcb) pointed at by the socket, and this 
structure will point at a subsidary (struct tcpcb). 
The normal sequence of events is: 
PRU_ATTACH creating these structures 
PRU_CONNECT connecting to a remote peer 
(PRU_SEND | PRU_RCVD)* exchanging data 
PRU_DISCONNECT disconnecting from remote peer 
PRU_DETACH deleting the structures 
With the operations from PRU_CONNECT through PRU_DISCONNECT 
possible repeated several times. 


* * 2 * & bh FF eH HH HF HR OF 


MULTIPLE CONNECTS ARE NOT YET IMPLEMENTED. 
xf 
if (inp — 0 && req != PRU_ATTACH) { 
splx(s); 
return (EINVAL); /* XXX */ 
} 
if (inp) { 
tp = intotcpeb(inp); 
#ifdef KPROF 
tcp _acounts[tp->t_statej {[reqj+t+; 
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#endif 


ostate = tp->t_state; 
} 
switch (req) { 


f* 
* TCP attaches to socket via PRU_ATTACH, reserving space, 
* and internet and TCP control blocks. 

* If the socket is to receive connections, 

* then the LISTEN state is entered. 


xf 
case PRU_ATTACH: 
if (inp) { 
error = EISCONN; 
break; 
} 
error = tcp attach{so, (struct sockaddr *)addr); 
if (error) 
break; 
if {(se->so_options & SQ _DONTLINGER) == 0G) 
so->so_linger = TCP_LINGERTIME; 
tp = sototcpcb (so); 
break; 
/* 
* PRU DETACH detaches the TCP protocol from the socket. 
* If the protocol state is non-embryonic, then can’t 
* do this directly: have to initiate a PRU_DISCONNECT, 
* which may finish later; embryonic TCB’s can just 
* be discarded here. 


xf 

case PRU_DETACH: 
tp = tcp_disconnect (tp); 
break; 


* Initiate connection to peer. 
* Create a template for use in transmissions on this connection. 
* Enter SYN_SENT state, and mark socket as connecting. 
* Start keep-alive timer, and seed output sequence space. 
* Send initial segment on connection. 
xf 
case PRU_CONNECT: 
error = in pebconnect (inp, (struct sockaddr_in *)addr); 
if (error) 
break; 
tp->t_template = tcp _template(tp); 
if (tp->t_template == 0) { 
in_pcbdisconnect (inp); 
error = ENOBUFS; 
break; 
} 
soisconnecting (sa); 
tp->t_state = TCPS SYN SENT; 
tp->t_timer[TCPT_KEEP] = TCPTV_KEEP; 
tp->iss = tep_iss; tep_iss += TCP_ISSINCR/2; 
tep_sendseqinit (tp); 
error = tcp output(tp): 
break; 


~ 
* 


Initiate disconnect from peer. 

If connection never passed embryonic stage, just drop; 

else if don’t need to let data drain, then can just drop anyways, 
else have to begin TCP shutdown process: mark socket disconnecting, 
drain unread data, state switch to reflect user close, and 

send segment (e.g. FIN) to peer. Socket will be really disconnected 
when peer sends FIN and acks ours. 


+ Oe OF 


SHOULD IMPLEMENT LATER PRU_CONNECT VIA REALLOC TCPCB. 
*/ 

case PRU_DISCONNECT: 

tp = tcp_disconnect (tp); 

break; 


i* 
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* Accept a connection. Essentially all the work is 
* done at higher levels; just return the address 
* of the peer, storing through addr. 
*/ 
case PRU_ACCEPT: { 
struct sockaddr in *sin = (struct sockaddr in *)addr; 


if (sin) { 
bzere((caddr_t)sin, sizeof (*sin)); 
sin->sin_ family = AF_INET; 
sin->sin_ port = inp->inp fport; 
sin->sin addr = inp->inp_faddr; 


break; 
{* 
* Mark the connection as being incapable of further output. 
xf 


case PRU_SHUTDOWN: 
socantsendmore (so) ; 
if (tp = tep_usrclosed (tp)) 
error = tcp_ontput (tp); 


break; 
fe 
* After a receive, possibly send window update to peer. 
xf 


case PRU_RCVD: 
(void) tep_output (tp); 
break; 


jx 
* Do a send by putting data in output queue and updating urgent 
* marker if URG set. Possibly send more data. 
xf 
case PRU_SEND: 
sbappend(&so->so_snd, m); 
#ifdef notdef 
if (tp->t_flags & TF_PUSH) 
tp->snd_end = tp->snd_una + so->so_snd.sb_cc; 


#endif 
error = tcp output (tp); 
break; 
f* 
* Abort the TCP. 
xf 


case PRU_ABORT: 
tep_dropitp, ECONNABORTED) ; 
tp = 0; 
break; 


/* SOME AS YET UNIMPLEMENTED HOOKS */ 
case PRU_CONTROL: 
error = EOPNOTSUPP; 
break; 


case PRU_SENSE: 
error = EOPNOTSUPP; 
break; 
/* END UNIMPLEMENTED HOOKS */ 


case PRU_RCVOOB: 
if (so->so_oobmark == 0 && 
(so->so_ state & SS_RCVATMARK) == 0) { 

error = EINVAL; 
break; 

} 

if {(tp->t_oobflags & TCPOOB HAVEDATA) == 9) { 
error = EWOULDBLOCK; 
break; 

} 

*mtod(m, caddr_t) = tp->t_lobe; 

break; = 


case PRU_SENDOOB: 


#ifdef TCPTRUECOB 


if (tp->t_flags & TF_DOOOB) { 
tp->t_oobseqt+; 
tp->t_oobc = *mtod(m, caddr_t); 
ip->t_oobmark = tp->snd_una + so->so_snd.sb cc; 


printf(*sendoob seq now $x cobec %x\n", tp->t_oobseq, tp->t_oobc} ; 


tp->t_oobflags |= TCPOOB NEEDACK; 
/* what to do ...2 */ 
if {error = tcp output (tp)) 
break; 
} 


#endif 


if (sbspace(&so->so_snd) < -512) { 
error = ENOBUFS; 
break; 
} 
tp->snd_up = tp->snd_una + so->so_snd.sb_ cc + 1; 
sbappend{sso->so_ snd, m); 


#ifdef notdef 


Af (tp->t_flags & TF_PUSH) 
tp->snd_end = tp->snd_una + so->so_snd.sb cc; 


#endif 


} 


tp->t_force = 1; 

error = tep output (tp); 
tp->t_force = 0G; 

break; 


case PRU_SOCKADDR: 
in_setsockaddr({ (struct sockaddr_in *)addr, inp); 
break; 


{* 
* TCP slow timer went off; going through this 
* routine for tracing’s sake. 
xf 

case PRU_SLOWTIMO: 

tcp timers(tp, (int)addr); 
req |= (int)addr << 8; 
break; 


/* for debug’s sake */ 


default: 
panic(*tcp_usrreg"™) ; 
} 
if (so->so_options & SO DEBUG) 
tcp trace(TA_USER, ostate, tp, (struct tepiphdr *)0, req); 
splxi{s); 
return (error); 


int tep_sendspace = 1024*2; 
int tep_recvspace = 1024*2; 
/* 


* Attach TCP protocol to socket, allocating 

* internet protocol control block, tep control block, 

* bufer space, and entering LISTEN state if to accept connections. 
*/ 


tep_attach(so, sa) 


struct socket *so; 
struct sockaddr *sa; 


register struct tcpcb *tp; 
struct inpcb *inp; 
int error; 


error = in _pcbattach(so, &tcb, 
tep_sendspace, tcp recvspace, (struct sockaddr_in *) sa); 
if (error) 
return (error); 
inp = (struct inpcb *)so->so_pcb; 
tp = tcp newtcpcb(inp); 
if (tp == 0) { 
in_pcbdetach (inp) ; 
return (ENOBUFS); 


} 
if (so->so_options & SO _ACCEPTCONN) 
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tp->t_state = TCPS LISTEN; 
else 

tp->t_state = TCPS CLOSED; 
return (0); 


Initiate (or continue) disconnect. 

If embryonic state, just send reset fonce). 

If not in ‘*let data drain’’ option, just drop. 

Otherwise (hard), mark socket disconnecting and drop 
current input data; switch states based on user close, and 
send segment to peer (with FIN). 


* + © + + 


xf 
struct tcepcb * 
tep_ disconnect (tp) 
struct tepcb *tp; 
{ 
struct socket *so = tp->t_inpcb-—>inp socket; 


if (tp->t_state <= TCPS_LISTEN) { 
tep_closei(tp); 
tp = 6; 
} else if (so->so_linger = 0) { 
tep_drop(tp, 0); 
tp = Q; 
} else { 
soisdisconnecting (so); 
sbflush(&so->so_ rev); 
1f {tp = tep_usrclosed(tp)) 
(void) tcp_output (tp); 
} 
return (tp); 


we 


User issued close, and wish to trail through shutdown states: 

if never received SYN, just forget it. If got a SYN from peer, 
but haven’t sent FIN, then go to FIN WAIT_1 state to send peer a 
If already got a FIN from peer, then almost done; go to LAST ACK 
state. In all other cases, have already sent FIN to peer (e.g. 
after PRU_SHUTDOWN), and just have to play tedious game waiting 
for peer to send FIN or not respond to keep-alives, etc. 

We can let the user exit from the close as soon as the FIN is ac 


+ e 2 + Fe HF eH OF 


xf 
struct tepcb * 
tcp_usrelosed (tp) 
struct tcepcb *tp; 
{ 


switch (tp->t_state) { 


case TCPS LISTEN: 
case TCPS SYN SENT: 
tp->t_state = TCPS CLOSED; 
tcp_close (tp); 
tp = 0; 
break; 


case TCPS SYN RECEIVED: 

case TCPS ESTABLISHED: 
tp->t_state = TCPS FIN WAIT_1; 
break; 


case TCPS CLOSE_WAIT: 
tp->t_state = TCPS LAST ACK; 
break; 
} 
if (tp && tp->t_state >= TCPS FIN WAIT_2) 
soisdisconnected(tp->t_inpcb->inp socket): 
return (tp); 


1986 


FIN. 


ked. 
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/* 
* Lisa INS8250A device driver 

* Copyright 1984 UniSoft Corporation 
xf 


#include “sys/param.h" 
#include “sys/config.h" 
#include “sys/types.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include "sys/errno.h"” 
#include “sys/file.h" 
#include "sys/tty.h" 
#include "sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include “setjmp.h" 
#include "sys/req.h" 
#include “sys/mmu.h" 
#include “sys/proc.h" 


int teproc(); 

/* 
* structure to access Tecmar device registers 
*f 


struct tedevice { 
char filll; 


char te_rbr; /* +1 data register */ 
#define te_dvlsb te_rbr i* lsb of divisor latch */ 
char £1112; 
char te_ier; /* +3 interrupt enable register */ 
define te_dvmsb te_ier f* msb of divisor latch */ 
char £1113; 
char te_iir: /* +5 interrupt id register */ 
char £1114; 
char te_ler; /* +7 line control register */ 
char £1115; 
char te_mer; /#* +9 modem control register */ 
char £1116; 
char te_lsr; /* +11 line status register */ 
char fill7; 
char te_msr; /* +13 modem status register */ 
char fills; 
char te_scrat; /* +15 scratch register (8250-A only) */ 


char £111[0x200-16]; /* sized to make tedevice be 9x200 long */ 
}; 


/* 
* structure to access the interrupt reset bit 
xf 
struct teidevice { 

struct tedevice fi11[7];:/* filler */ 

char skip; 

char te_intr; /* interrupt reset location */ 
} 


j* 

* array used to remap ivec interrupt board slot number to tty slot 
*/ 
int te_remap[3]; 


/* 
* Slot id to interrupt reset address 
af 
struct teidevice *te_ idevice[3] = { 
(struct teidevice *) (STDIO), 
(struct teidevice *)} (STDIO+0x4000), 
(struct teidevice *) (STDIO+0x8000) 
}e 


extern struct tty te_tty[1}; 
extern struct ttyptr te_ttptr[1l]; 


extern char te_dparam[1]; 
extern char te_modem[1]; 
extern int te_cnt; 


#define MODEM 0x80 /* modem control on bit */ 
#define tedev{d) {(d)sOx7f) f* from unix device number to device */ 
#define BAUDSO 2304 

#define BAUDT75 1356 

#define BAUD116 1647 

#define BAUD134 857 

#define BAUD150 768 

#define BAUD300 384 

#define BAUDG600 192 

#define BAUD1200 96 

#define BAUD180600 64 

#define BAUD2060 58 

#define BAUD2400 48 

#define BAUD3600 32 

#define BAUD4800 24 

#define BAUD7200 16 

#define BAUDS600 12 

#define BAUD19200 6 

#define BAUD38400 3 

#define BAUD56000 2 


/* -1 means hangup, ~2 means invalid */ 
int tebaudmap[] = { 
~1, BAUDSS, BAUD7S, BAUD110, BAUD134, BAUD150, BAUD134, 
BAUD306, BAUD690, BAUD1200, BAUD1860, BAUD2400, 
BAUD4&60, BAUD9600, BAUD19200, BAUD38400 
}3 


/* Interrupt enable register bits */ 
#define ERBFI 0x01 /* Enable received data available interrupt */ 
#define ETBEI 0x02 /* Enable transmitter enable holding register empty interrupt */ 
#define ELSI 0x04 /#* Enable receiver line status interrupt */ 
#define EDSSI 0x08 /* Enable modem status interrupt */ 


/* Interrupt ident register bits */ 


#define IRQ 0x61 /* Interrupt request, 0 if interrupt pending */ 
#define THE 0x02 /* Transmitter holding register empty */ 
#define IID 0x06 /* Interrupt ID bit mask */ 

#define RID 0x04 /* Interrupt receive bit mask */ 


/* Line control register bits */ 
#define BITSS 0x00 /* S bits */ 
#define BITS6 0x01 /* 6 bits */ 
#define BITS7 0x02 /* 7 bits */ 
#define BITS8 6x63 4* 8 bits */ 
#define STOP1 6x00 /* One stop bit */ 
#define STOP2 6x04 /* Two stop bit */ 


#define PEN 0x08 /* Parity enable */ 
#define EPS 0x10 /* Even parity select */ 
#define SPS 0x20 /* Stick parity */ 


#define SBRK 0x40 /* Set break */ 
#define DLAB 0x86 /* Divisor latch access. i/o direction bit */ 


/* Modem control register bits */ 
#define DTR 0x01 /* Data terminal ready */ 
#define RTS 0x02 /* Request to send */ 


/* Line status register bits */ 
#define DATARDY 0x01 /* Data ready */ 
#define OV_ERR 0x02 /* Overrun error on receiver */ 
#define PE_ERR 0x04 /* Parity error */ 
#define FR_ERR 0x08 /* Framing error */ 
#define BR_INT 0x10 /* Break interrupt */ 
#define THRE 0x20 /* Transmitter holding register */ 
#define TEMT 0x40 /* Transmitter empty */ 


/* Modem status register bits */ 
#define DCTS 0x01 /* Delta clear to send */ 
#define DDSR 0x02 /* Delta data set ready */ 
#define TERI 0x04 /* Trailing edge ring indicator */ 
#define DDCD 0x08 /* Delta data carrier detect */ 
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#define cTS 0x10 /* Clear to send */ 

#define DSR 0x20 /* Data set ready */ 

#define RI 0x40 /* Ring indicator */ 

#define DCD 0x80 /* Data carrier detect */ 


int teslotsused = 0; 


i*® 


* Initialize the baud rate 


* 


*/ 


slot = 0, 1, or 2 


teinit (slot) 


{ 


} 


register i, val; 


if (teslotsused+4 > te cnt) { 


printf("\n\nSystem only configured for %d tecmar ports\n\n", te_cnt); 


return (1); 

} 

te_remap[slot] = teslotsused; 

val = STDIO + slot*0x4000 + 0x260; 

for (i = teslotsused; i < teslotsusedt4; i++) { 
te_ttptr[i].tt_addr = val; 
te_ttptr[i].tt_tty = &te tty[il; 
val += 0x200; 

} 

teslotsused += 4; 

return (0); 


/* ARGSUSED */ 
teopen(dev, flag) 
dev_t dev; 


{ 


register struct tedevice *addr; 
register struct tty *tp; 
register d; 


#ifdef SINGLEUSER 


register struct proc *p; 


#endif SINGLEUSER 


a = tedev (dev); 

if (d >= te_cnt) { 
u.U_error = ENXIO; 
return; 

} 

tp = te ttptr[d].tt_tty; 


#ifdef SINGLEUSER 


Pp = u.u_procp; 
if ((p->p_pid — p->p_pgrp) 
&& (u.u_ttyp == NULL) 
&& (tp->t_pgrp == 0)) { 
u.u_error = ENOTTY; 
return; 


} 


#endif SINGLEUSER 


addr = (struct tedevice *)te_ttptr{d].tt_addr; 
Lf (tp == 0 || addr = 0) { 
u.u_error = ENXIO; 
return; 
} 
tp->t_index = d; 
SPL5(); 
if ((tp->t_state&(ISOPEN|WOPEN)) == 0) { 
tp->t_proc = teproc; 
ttinit (tp); 
tp->t_iflag = ICRNL | ISTRIP; 
tp->t_oflag = OPOST | ONLCR | TAB3; 


tp->t_lflag = ISIG | ICANON | ECHO | ECHOK; 
tp->t_cflag = sspeed {| CS8 | CREAD | HUPCL; 


teparam(dev); 

} 

te_modem[d] = dev & MODEM; 

if {({deveéMODEM)==0 | | addr->te_msr&DSR) 
tp->t_state |= CARR_ON; 

else 


} 


tp->t_state &= ~CARR_ON; 
4£ (i (flag & FNDELAY)) 
while ({tp->t_state&CARR_ON) == 0) { 
tp->t_state |= WOPEN; 


(void) sleep{(caddr_t)&tp->t_rawq, TTOPRI); 


} 
SPLO{); 
(*linesw[tp->t_line].1_ open) (tp); 


/* ARGSUSED */ 
teclose(dev, flaq) 
dev_t dev; 

int flag: 


{ 


register struct tedevice *addr; 
register struct tty *tp; 
register d; 


d = tedev(dev); 

tp = te ttptr[d].tt_tty; 
(*linesw(tp->t_line].1_ close) (tp); 
if (tp->t_cflag&HUPCL) { 


addr = (struct tedevice *)te_ttptr[d].tt_addr; 


a= a0; 
addr->te mcr = d; 
} 
} 
teread (dev) 
dev _t dev; 
{ 
register struct tty *tp; 
tp = te ttptr[tedev(dev)]}.tt_tty: 
(*lLinesw([tp->t_line].1_read) (tp); 
} 
tewrite (dev) 


dev_t dev; 


{ 


} 


register struct tty *tp;: 


tp = te ttptr[tedev(dev)].tt_tty: 
(*linesw([tp->t_line].1 write) (tp); 


teproc(tp, cmd) 
register struct tty *tp; 


{ 


Start: 


register struct ccblock *tbuf; 
register struct tedevice *addr; 
register dev_t dev: 

int s; 

extern ttrstrt(); 


s = spltty(); 

dev = tp->t_index; 

addr = (struct tedevice *)te_ttptr[dev] .tt_addr; 
switch (cmd) { 


case T_ TIME: 
tp->t_state &= ~TIMEOUT; 
goto start; 


case T_WFLUSH: 
tbuf = &tp->t_tbuf; 
tbuf->c_size -= tbuf->c_count; 
tbuf->c_count = 0; 
/* fall through */ 

case T_RESUME: 
tp->t_state &= ~TTSTOP; 
goto start; 


case T_OUTPUT: 
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if (tp->t_state & (TTSTOP |TIMEOUT|BUSY)) { 
f* if ((tp->t_state & BUSY) == 0) { 
addr = (struct tedevice *}((int)addr «¢ OxFCC000); 
((struct teidevice *)addr)->te_intr = dev; 
} */ 
break; 
} 
if (tp->t_state & TTXOFF) { 
tp->t_state é= ~TTXOFF; 
tp->t_state |= BUSY; 
addr->te_rbr = CSTOP; 
break; 
} 
if (tp->t_state & TTXON) { 
tp->t_state &= ~TTXON; 
tp->t_state |= BUSY; 
addr->te_rbr = CSTART; 
break; 
} 
tbuf = étp->t_tbuf; 
if ((tbuf->c_ptr == 6) || (tbuf->c_count == 0)) { 
if (tbuf->c_ptr) 
tbuf->c_ptr -= tbuf->c_size - tbuf->c_count; 
Lf ({(CPRES & (*linesw[{tp->t_line].1 output) (tp))) { 
break; 
} 
} 
tp->t_state |= BUSY; 
addr->te_ier = ERBFI | ETBEI | ELSI | EDSSI; 
addr~>te_rbr = *tbuf->c_ptrt+; 
tbuf->c_count--; 
break; 


case T_SUSPEND: 


tp->t_state |= TTISTOP; 
break; 


case T BLOCK: 


tp->t_state &= ~TTXON; 
tp->t_state |= TBLOCK; 
tp->t_state |= TTXOFF; 
goto start; 


case T_RFLUSH: 


if ({(tp->t_state&TBLOCK) ) 
break; 
/* fall through */ 


case T_UNBLOCK: 


tp-ot_state é= ~(TTXOFF | TBLOCK); 
tp->t_state |= TTXON; 
goto start; 


case T_BREAK: 


} 


splx(s); 


} 


tp->t_state |= TIMEOUT; 
timeout (ttrstrt, (caddr_t)tp, v.v_hz>>2); 
break; 


teloctlidev, cmd, arg, mode) 


dev_t dev; 
{ 


if (ttiocom(te_ttptr[tedev(dev)].tt_tty, cmd, arg, mode)) 


} 


teparam (dev) 


teparam (dev) ; 


register dev_t dev; 


{ 


register struct tty *tp: 
register struct tedevice *addr; 
register int s, speed, oldpri; 


char c; 


tp = te _ttptr[tedev(dev)].tt_tty; 

addr = (struct tedevice *)te ttptr[tedev(dev)].tt_addr; 

/* check for invalid speed */ 

if ((speed = tebaudmap[tp->t_cflag & CBAUD]) == -2) { 
u.u_error = EINVAL; 


return: 
} 
s = 0; 
/* 
* hangup the line 
xf 


if (speed = -1) { 
addr->te_mcr = s; 
return; 

} 


if (tp->t_state & BUSY) { 
te_dparam[(tedev(dev)] = 1; 


return; 
} 
f* 
* set new speed 
x] 


oldpri = spltty(}; 
addr->te_lcr = DLAB; 
addr->te_dvlsb = speed; 
addr->te_dvmsb = speed >> &; 
addr->te_ ler = s; 


/* 
* set line control information 
xf 
if ((tp->t_cflag & CSIZE) == CS8} 
s |= BITS8; 
else if ((tp->t_cflag & CSIZE) == CS7) 
s {= BITS?; 
else if ((tp->t_cflag & CSIZE) == CS6) 
s |= BITS6; 
else if ((tp->t_cflag & CSIZE) == CS5) 
s [= BITSS; 
if (tp->t_cflag & CSTOPB) 
s |= STOP2; 
if (tp->t_cflag & PARENB) 
if ((tp->t_cflag & PARODD) == 6) 


s |= PEN|EPS; 
addr->te_lcr = s; 


/* 
* set modem control information 
*/ 
addr->te_mcr = DTR | RTS; 
/* 
* enable interrupts 
x] 
addr->te_ier = ERBFI | ETBEI | ELSI | EDSSI; 
/* 
* reset pending interrupts 
x} 


c = addr->te_rbr; 
c = addr->te_lsr; 
c = addr->te_msr; 
c = addr->te_iir; 


splx(oldpri): 


/* VARARGS */ 
teintr (ap) 
struct args *ap; 
{ 


register struct tedevice *addr; 
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struct ccblock *cbp; 

struct tty *tp; 

int c, lent, flg, iir, lsr: 
char ctmp; 


int i, any; 


struct t 


eidevice *iaddr; 


int index, s; 
char lbuf[3]; 


s = spls 
index = 
iaddr = 
c= 6; 

daddr->t 


any = 0; 


for (i = 


QF 
te_remap[ap->a_dev]; 
te_idevice[ap->a_dev]; 


e intr = c; /* reset master interrupt */ 


index; 4 < indext4; itt) { 
addr = (struct tedevice *)te_ttptr[i].tt_addr; 


dir = addr->te_iir; 
if (iir « IRQ) 
continue; 
tp = te ttptr(i].tt_tty: 
isr = addr->te_lsr; 
if (iir & RID) { 
sysinfo.revint++; 
c = addr->te_rbr & OxFF; 
if (tp->t_rbuf.c_ptr == NULL) { 
anytt+; 
goto restart; 
} 
Af ({1lsr & DATARDY) == 0) 
c= 0; 
if (tp->t_iflag & IXON) { 
ctmp =c & 0177; 
if (tp->t_state & TTSTOP) { 


if (ctmp == CSTART || tp->t_iflag & IXANY) 


anyt+t; 
goto restart; 
} 
} 
if (flgsPARMRK) { 
lpuf[21] = 9377; 
lbuf(1] = 0; 
lent = 3; 
sysinfo.rawch += 2; 
} else 
c= 0; 
} else { 
if (flgsISTRIP) 
c &= 6177; 
@lse { 
if {c == 0377 && flg&PARMRK) { 
lbuf[1] = 0377; 
lcnt = 2; 


} 
{* 
* Stash character in r_buf 
*f 
chp = é&tp->t_rbuf; 
if (cbp->c_ptr == NULL) { 
anyt+; 
goto restart; 
} 
if (lent != 1) { 
lbuf[Q] = c; 
while (lent) { 
*cbp->c_ptrt+ = lbuf[--lcnt]; 
if (--cbp->c_count == 0) { 
cbp~>c_ptr -= cbp->c_size; 


(*linesw[tp->t_line] .1_input) (tp); 


} 


(*tp->t_proc) (tp, T RESUME); 
} else { 
if (ctmp — CSTOP) 


(*tp->t_proc) (tp, T_SUSPEND); 


} 

if (ctmp == CSTART || ctmp == CSTOP) { 
anytt; 
goto restart; 


} 
/* 
* Check for errors 
xf 
lent = 1; 
flg = tp->t_iflag; 
if (1lsr & (PE_ERR|FR_ERR|OV_ERR|BR_INT)) { 
if ((lsr & PE_ERR) && (flg & INPCK)) 
c |= PERROR; 
if (1sr & OV_ERR) 
c |= OVERRUN; 
if (lsr & FR_ERR) 
c |= FRERROR; 
if (lsr & BR_INT) 


c = OVERRUN; /* reset char on a break */ 


} 
if (c& (FRERROR|PERROR|OVERRUN)) { 
if ((c&0377) == 0) { 
if (flg&IGNBRK) { 
anyt+; 
goto restart; 
} 
if (flg&BRKINT) { 
signal(tp->t_pgrp, SIGINT); 


ttyflush(tp, (FREAD|FWRITE)); 


anyt+; 
goto restart; 
} 
} else { 
if (flg&IGNPAR) { 


} else { 


} 
anyt+; 


} 

if (cbp->c_size != cbp->c_count) { 
ebp->c_ptr -= chp->c_size - cbhp->c_count; 
(*linesw[tp->t_line] .1_inpnt) (tp); 

} 


*cbp->c_ptr = c; 
cbhp->c_count--; 
(*linesw{tp->t_line].1_input) (tp); 


goto restart; 


} 
if (iireTHE) { 
sysinfo. 


xmtintt+t+; 


tp->t_state &= ~BUSY; 
if (te_dparam[i]) { 


} 


te_dparam[i] = 0; 
teparam(i); 


teproc(tp, T_OUTPUT):;: 


} else { 
/* 
* must 
af 


be a modem transition interrupt 


temodem(tp, addr->te_msr); 


} 

anyt+t+; 

goto restart; 
} 
if (any != 6) 

goto again; 
splix(s); 

} 


temodem(tp, msr) 
register struct tty *tp; 
{ 


if ((tp->t_stateé (ISOPEN | WOPEN) ) ==0) 
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return; 
if (msr & DSR || te_modem[tp->t_index] == 9) { 
if ((tp->t_state&CARR_ON) == 0) { 
tp->t_state |= CARR_ON; 
if (tp->t_state&WOPEN) 
wakeup ({caddr t)étp->t_rawq); 
} 
} else { 
if (tp->t_state&CARR_ON) { 
tp->t_state &= ~CARR_ON; 
if (tp->t_rbuf.c_ptr != NULL) { 
ttyflush(tp, FREAD|FWRITE); 
signal (tp->t_pgrp, SIGHUP); 
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f* 
* Lisa INS8250A device driver 

* 

* Copyright 1984 UniSoft Corporation 
*/ 


#include “sys/param.h" 
#include "sys/config.h* 
#include “sys/types.h" 
#include “sys/systm.h® 
#include “sys/dir.h" 
#include “sys/signal.h" 
f#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/file.h" 
#include “sys/tty.h" 
#include “sys/termio.h" 
#include “sys/conf.h" 
#include “sys/sysinfo.h" 
#include "sys/var.h" 
#include “setjmp.h" 
#include “"sys/reg.h*" 
#include “sys/mnu.h" 
#include “sys/proc.h" 


extern char te_dparam[1]; 
extern char te modem[1]; 
extern int te_cnt; 


#define MODEM 0x80 /* modem control on bit */ 
#define tedevld) ({d)eOx7f) /* from unix device number to device * 
#define BAUDS5S 2304 

#define BAUD75 1356 

#define BAUD110 1047 

#define BAUD134 $57 

#define BAUD1506 768 

#define BAUD300 384 

#define BAUDGOO 192 

#define BAUD1200 96 

#define BAUD1800 64 

#define BAUD2000 58 

#define BAUD2460 48 

#define BAUD3660 32 

#define BAUD4800 24 

#define BAUD7206 16 

#define BAUDS600 12 

#define BAUD19200 6 

#define BAUD384060 3 

#define BAUDS6000 2 


/* -1 means hangup, -2 means invalid */ 

int tebaudmap[] = { 
~1, BAUDSO, BAUD75, BAUD110, BAUD134, BAUD150, BAUD134, 
BAUD300, BAUD600, BAUD1200, BAUD1800, BAUD2400, 


#define 


BAUD4800, BAUD9600, BAUD19200, BAUD38406 


he 


/* Interrupt enable 
ERBFTI 0x61 f* 


register bits */ 
Enable received data available interrupt */ 


int teproc(); 
fe 
* structure to access Tecmar device registers 
*/ 

struct tedevice { 
char fil1li; 
char te_rbr: /* +1 data register */ 

#define te_dvlsb te_rbr /* isb of divisor latch */ 
char fill2; 
char te_ier; /* +3 interrupt enable register */ 

#define te_dvmsb te_ier /* msb of divisor latch */ 
char £1113; 
char te_iir; #* +5 interrupt id register */ 
char £1114; 
char te_ler; /* +7 line control register */ 
char £1115; 
char te_mer; /* +9 modem control register */ 
char £1116; 
char te_lsr; /* +11 line status register */ 
char fill7; 
char te_msr; /* +13 modem status register */ 
char £1118; 
char te_scrat; /* +15 scratch register (8250-A only) */ 


char £i11[0x200-16]; /* sized to make tedevice be 0x200 long */ 


f* 
* structure to access the interrupt reset bit 
*/ 
struct teidevice { 
struct tedevice fill{7];/* filler */ 
char skip; 
char te_intr; /* interrupt reset location */ 
}3 


/* 
* array used to remap ivec interrupt board slot number to tty slot 
*/ 

int te_remap[3]; 


/* 
* Slot id to interrupt reset address 
xf 
struct teldevice *te_idevice[3] = { 
(struct teidevice *) (STDIO), 
(struct teidevice *) (STDIO+0x4000), 
(struct teidevice *) (STDIO+0x8000) 
}e 


extern struct tty te tty(1]; 
extern struct ttyptr te _ttptr[1]; 


#define ETBEI 06x02 /* Enable transmitter enable holding register empty interrupt */ 


#define ELSI 0x04 /* Enable receiver line status interrupt */ 
#define EDSSI 06x08 /* Enable modem status interrupt */ 


/* Interrupt ident register bits */ 


#define IRQ 0x01 /* Interrupt request, 0 if interrupt pending */ 
#define THE 6x02 /* Transmitter holding register empty */ 
#define IID 0x06 /* Interrupt ID bit mask */ 

#define RID 6x04 /* Interrupt receive bit mask */ 


/* Line control register bits */ 
#define BITSS 6x00 /* 5 bits */ 
#define BITS6 0x01 /* 6 bits */ 
#define BITS? 0x02 /* 7 bits */ 
#define BITS 0x03 /* 8 bits */ 
#define STOP1 0x06 /* One stop bit */ 
#define STOP2 0x04 /* Two stop bit */ 


#define PEN 0x08 /* Parity enable */ 
#define EPS 0x10 /* Even parity select */ 
#define SPS 0x20 /* Stick parity */ 


#define SBRK 6x40 /* Set break */ 
#define DLAB 0x80 /* Divisor latch access. i/o direction bit */ 


/* Modem control register bits */ 
#define DTR 0x01 /* Data terminal ready */ 
#define RTS 0x02 /* Request to send */ 


/* Line status register bits */ 
#define DATARDY 6x01 /* Data ready */ 
#define OV_LERR 0x02 /* Overrun error on receiver */ 
#define PE_ERR 0x04 /* Parity error */ 
#define FR_ERR 0x08 /* Framing error */ 
#define BR_INT 0x10 /* Break interrupt */ 
#define THRE 0x20 /* Transmitter holding register */ 
#define TEMT 0x40 /* Transmitter empty */ 


/* Modem status register bits */ 
#define DCTS 0x01 /* Delta clear to send */ 
#define DDSR 0x02 /* Delta data set ready */ 
#define TERI 0x04 /* Trailing edge ring indicator */ 
#define DDCD 0x08 /* Delta data carrier detect */ 
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#define CTS 0x10 /* Clear to send */ 
#define DSR 0x20 /* Data set ready */ 
#define RI 0x40 /* Ring indicator */ 
#define DCD 0x80 /* Data carrier detect */ 


int teslotsused = @; 


f* 


* Initialize the baud rate 


* 


xf 


slot = @, 1, or 2 


teinit (slot) 


{ 


} 


register i, val; 


if (teslotsused+4 > te_cnt) { 


printf ("\n\nsystem only configured for %d tecmar 


return(1)}; 
} 
te_remap[slot] = teslotsused; 
val = STDIO + slot*@x46000 + 0x200; 


for (i = teslotsused; i < teslotsused+4; i++) 


te_ttptr[i].tt_addr = val; 
te_ttptr[i].tt_tty = ate tty[il; 
val += 0x200; 

} 

teslotsused += 4; 

return (0); 


/* ARGSUSED */ 
teopen(dev, flag) 
dev_t dev; 


{ 


register struct tedevice *addr: 
register struct tty *tp> 
register d; 


#ifdef SINGLEUSER 


register struct proc *p; 


fendif SINGLEUSER 


d = tedev(dev); 

if (d >= te_cnt) { 
u.u_error = ENXIO; 
return; 

} 

tp = te ttptr[d].tt_tty:; 


#ifdef SINGLEUSER 


p = u.u_procp; 
1f£ ((p->p_pid == p->p_pgrp) 
&& (u.u_ttyp — NULL) 
&& (tp->t_pgrp == 6)) { 
u.u_error = ENOTTY; 
return; 


} 


#endif SINGLEUSER 
addr = (struct tedevice *)te ttptr[d].tt_addr; 


if (tp == 0 || addr = 0) { 
u.u_error = ENXIO; 
return; 

} 

tp~->t_index = d; 

SPLS (); 

if ((tp->t_stateé (ISOPEN|WOPEN)) == 0) { 
tp->t_proc = teproc; 
ttinit (tp); 
tp->t_iflag = ICRNL | ISTRIP; 
tp->t_oflag = OPOST | ONLCR | TAB3; 
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{ 


tp->t_lflag ~ ISIG | ICANON | ECHO | ECHOK; 


tp->t_cflag = sspeed | CS8 | CREAD 
teparam (dev); 

} 

te_modem[{d] = dev & MODEM; 

Lf ((devaMODEM)==0 | | addr->te_ msr&DSR) 
tp->t_state |= CARR_ON; 

else 


| 


HUPCL; 


ports\n\n", te_ent); 


} 


tp->t_state &= ~CARR_ON; 
if (!(flag & FNDELAY)) 
while ((tp->t_state&CARR_ON) == 0) { 
tp->t_state |= WOPEN; 


(void) sleep{(caddr_t)&tp->t_rawq, TTOPRI); 


SPLO(); 
{*linesw[tp->t_line].1 open) (tp); 


/* ARGSUSED */ 
teclose(dev, flaq) 
dev_t dev; 

int flag; 


{ 


} 


register struct tedevice *addr; 
register struct tty *tp; 
register d; 


da = tedevidev); 

tp = te ttptr{[d].tt_tty; 
(*linesw[tp->t_line] .1_ close) (tp); 
if (tp->t_cflagéHUPCL) { 


addr = (struct tedevice *)te_ttptr{d].tt_addr; 


a= 0; 
addr->te mcr = d; 


teread (dev) 
dev_t dev; 


{ 


} 


register struct tty *tp; 


tp = te ttptr[tedev(dev)].tt_tty: 
(*linesw[tp->t_line].1_read) (tp); 


tewrite (dev) 
dev_t dev; 


{ 


} 


register struct tty *tp; 


tp = te_ttptr[tedev(dev)].tt_tty:; 
(*linesw[tp->t_line].1_ write) (tp); 


teproc(tp, cmd) 
register struct tty *tp; 


{ 


start: 


register struct ccblock *tbuf; 
register struct tedevice *addr; 
register dev_t dev; 

int s; 

extern ttrstrt({); 


s = spltty(); 
dev = tp->t_index; 


addr = (struct tedevice *)te ttptr[dev] .tt_addr; 


switch (cmd) { 


case T_ TIME: 
tp->t_state &= ~TIMEOUT; 
goto start; 


case T_WFLUSH: 
tbuf = étp->t_tbuf; 
tbuf->c_size -= tbuf->c_count; 
tbuf->c_count = 0; 
/* fall through */ 

case T_RESUME: 
tp->t_state é= ~TTSTOP; 
goto start; 


case T_OUTPUT: 
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} 


if (tp->t_state & {TTSTOP|TIMEOUT|BUSY)) { 
/* LE ((tp->t_state & BUSY) == 0) { 


addr = (struct tedevice *)({int)addr & OxFcC000); 
((struct teidevice *)addr)->te_intr = dev; 


} *f 
break; 
} 


if (tp->t_state & TTXOPFF) { 
tp->t_state &= ~TTXOFF; 
tp->t_state |= BUSY; 
addr->te_rbr = CSTOP; 


break: 


} 


if (tp->t_state & TTXON) { 


tp->t_state &= ~TTXON; 
tp->t_state |= BUSY; 
addr->te_rbr = CSTART; 


break; 

} 

tbuf = étp->t_tbuf; 

if ((tbuf->c_ptr = 0) || 
if (tbuf->c_ptr) 


tbuf->c_ptr -= tbuf->c_size - tbuf->c_count; 
if (!(CPRES s i*linesw(tp->t_line].1 output) (tp))) { 


break; 
} 
} 
tp->t_state |= BUSY; 


(tbuf->c_count == 0)) 


addr->te_ier = ERBFI | ETBEI | ELSI 
addr->te_rbr = *tbuf->c_ptrt+; 


tbuf->c_count--; 
break; 


case T SUSPEND: 
tp->t_state |= TTSTOP; 
break; 


case T BLOCK: 
tp->t_state &= ~TTXON; 
tp->t_state |= TBLOCK; 
tp->t_state |= TTXOFF; 
goto start; 


case T_RFLUSH: 


if (!(tp->t_state&TBLOCR) ) 


break; 
/* fall through */ 


case T_UNBLOCK: 


tp->t_state &= ~(TTXOFF|TBLOCK); 


tp->t_state |= TTXON; 
goto start; 


case T_BREAK: 
tp->t_state |= TIMEOUT; 


J EDSSI; 


timeout (ttrstrt, (caddr_t)tp, v.v_hz>>2); 


break; 
} 
Splx(s); 


teloctl(dev, cmd, arg, mode) 
dev_t dev; 


{ 


} 
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{ 


if (ttiocom(te_ttptr[tedev(dev)].tt_tty, cmd, arg, mode)) 


teparam (dev); 


teparam (dev) 
register dev_t dev; 


{ 


register struct tty *tp; 
register struct tedevice *addr; 
register int s, speed, oldpri; 
char c; 


tp = te_ttptr[tedevi(dev)].tt_tty: 

addr = (struct tedevice *)te ttptr[tedev{dev)].tt_addr; 

/* check for invalid speed */ 

if ((speed = tebaudmap[tp->t_cflag & CBAUD]) == -2) { 
u.u_error = EINVAL; 


return; 
} 
s = 0; 
i* 
* hangup the line 
*/ 


if (speed == -1) { 
addr->te mcr = s; 
return; 

} 


if (tp->t_state & BUSY) { 
te_dparam[tedev(dev)] = 1; 


return; 
} 
f* 
* set new speed 
*/ 


oldpri = spltty{): 
addr->te_lcr = DLAB; 
addr->te_dvlsb = speed; 
addr->te_dvmsb = speed >> 8; 
addr->te_lcr = s; 


fr 
* set line control information 
af 
if ((tp->t_cflag & CSIZE) == CS8) 
s |= BITS8; 
else if ({tp->t_cflag & CSIZE) == CS?) 
s |= BITS7?; 
else if ((tp->t_cflag & CSIZE) == CS6) 
s |= BITS6; 
else if ((tp->t_cflag & CSIZE} == CS5) 
s |= BITSS; 
if (tp->t_cflag & CSTOPB) 
s |= STOP2; 


if (tp->t_cflag & PARENB) 
if ((tp->t_cflag & PARODD) == 0) 
Ss |= PEN|EPS; 
addr->te_lcr = s; 


{* 
* set modem control information 
i: 
addr->te_ mcr = DTR | RTS; 
/* 
* enable interrupts 
*/ 
addr->te_ier = ERBFI | ETBEI {| ELSI | EDSSI; 
/* 
* reset pending interrupts 
af 


c = addr->te_rbr; 
c = addr->te _lsr; 
c = addr->te_msr; 
c = addr->te iir; 


splx(oldpri) ; 


/* VARARGS */ 
teintr (ap) 
struct args *ap; 
{ 


register struct tedevice *addr; 
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register struct ccblock *cbp; 
register struct tty *tp; 
register int c, lent, flg, iir, 1sr; 


register char ctmp; 


int i, any; 


struct teidevice *iaddr; 


int index, s; 
char lbuf[3]; 


s = spl5(); 


index = te_remap[ap->a_dev]; 
laddr = te_idevice[ap->a_dev1; 


c= 0; 


laddr->te_intr = c; 


any = 0; 


/* reset master interrupt */ 


for (i = index; i < index+t4; i++) { 
addr = (struct tedevice *)te_ttptr[i].tt_addr; 


ia 
i 


ir = addr->te_ilir; 
f (iir & IRQ) 


continue; 
tp = te_ttptr[i] .tt_tty; 
isr = addr->te Isr; 


if (ir & RID) 


{ 


sysinfo.revintt++; 
c = addr->te_rbr & OxFF; 
if (tp->t_rbuf.c_ptr == NULL) { 


} 


anytt; 
goto restart; 


if ((lsz & DATARDY) == 0) 


c= 0; 


if (tp->t_iflag & IXON) { 


} 


{* 
* Check for errors 


ctmp = c & 0177; 
if (tp->t_state & TTSTOP) { 
Lf (ctmp == CSTART || tp->t_iflag & IXANY) 
{*tp->t_proc) (tp, T_RESUME); 
} else { 
if (ctmp = CSTOP) 
(*tp->t_proc) (tp, T_SUSPEND); 
} 
if (ctmp — CSTART || ctmp == CSTOP) { 
anyt+; 
goto restart; 


lent = 1; 
flg = tp->t_iflag; 
if (lsr & (PE_ERR|FR_ERR|OV_ERR|BR_INT)) { 


} 


if ((1lsr & PE_ERR) && (flg & INPCK)) 
c |= PERROR; 

if (1sr & OV_ERR) 
c |= OVERRUN; 

if (lsr & FR_ERR) 
c |= FRERROR; 

if (1sr & BR_INT) 


c = OVERRUN; /* reset char on a break */ 


Lf (c&(FRERROR|PERROR|OVERRUN)) { 


if ((c&0377) = 0) { 
if (flg&IGNBRK) { 
anytt; 
goto restart; 
} 
if (flg&BRRINT) { 
signal({tp->t_pgrp, SIGINT); 
ttyflush(tp, (FREAD|FWRITE)); 
anyt++; 
goto restart; 
} 
} else { 
if (flg&éIGNPAR) { 


} else { 


} 
/* 


anytt; 
goto restart; 
} 
} 
if (flg&PARMRK) { 
ibufl2] = 0377; 
lbuf[1] 0; 
licnt = 3; 
sysinfo.rawch += 2; 


} else 
c= 0; 


if (flgs&ISTRIP) 
c &= 0177; 
else { 
if (c == 0377 && flg&PARMRK) { 
lbuf({1] = 0377; 
lcnt = 2; 


* Stash character in r_buf 


*f 


chp = &tp->t_rbuf; 
if (cbp->c_ptr == NULL) { 


} 
if (licnt 


} else { 


} 
anytt; 


anytt+; 
goto restart; 


f= 1) { 
lbuf [0] = c; 
while (lent) { 
*cbp->c_ptrt++ = lbuf[--lent]; 
if (--cbp->c_count == 0) { 
cbp->c_ptr -= cbp->c_size; 
(*linesw[tp->t_line].1_ input) (tp); 
} 
} 
if (cbp->c_size != cbp->c_count) { 
cbp->c_ptr -= cbp->c_size - cbp->c_count; 
(*linesw[tp->t_line].1 input) (tp); 
} 


*cbp->c_ptr = c; 
cbp->c_count--; 
(*linesw[tp->t_line].1_input) (tp); 


goto restart; 


} 
1f (liréTHE) { 
sysinfo. 


xmtint++; 


tp->t_state &= ~BUSY; 
if (te_dparam[i]) { 


} 


te_dparam[{i] = 0; 
teparam(i); 


teproc(tp, T_OUTPUT); 


} else { 
/* 
* must 
*/ 


be a modem transition interrupt 


temodem(tp, addr->te_msr); 


} 

any++; 

goto restart; 
} 
if (any != 0) 

goto again; 
splx(s); 

} 


temodem(tp, msr) 
register struct tty *tp; 
{ 


if ((tp->t_statesé (ISOPEN |WOPEN) )==0) 
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return; 
if (msr & DSR || te_modem[(tp->t_index] = 0G) { 
if ((tp->t_state&CARR_ON) = 0) { 
tp->t_state |= CARR_ON; 
if (tp->t_state&WOPEN) 
wakeup ({ (caddr_t)étp->t_rawq) ; 
} 
} else { 
if (tp->t_state&CARR_ON) { 
tp->t_state &= ~CARR_ON; 
if (tp->t_rbuf.c_ptr != NULL) { 
ttyflush(tp, FREAD{FPHWRITE); 
signal(tp->t_pgrp, SIGHUP); 
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/* @(#)text.c 1.3 */ 
#include "sys/param.h"™ 
#include “sys/config.h" 
#include "sys/mmu.h" 
#include "sys/types.h" 
finclude "sys/sysmacros.h"™ 
$¥include “sys/systm.h" 
#include “sys/map.h" 
#include “sys/dir.n" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include "sys/proc.h" 
#include “sys/context.h" 
#include “sys/text.h" 
f#include “sys/inode.h" 
#include “sys/buf.h" 
#include “sys/seg.h" 
#include “sys/var.h" 
#include “sys/sysinfo.h" 
#include “sys/scat.h“ 


typedef int mem_t; 
/* 
* Swap out process p. 
* The ff flag causes its core to be freed-- 
* it may be off when called to create an image for a 
* child process in newproc. 
* On a partial swap ff is the negative number of blocks to be swapped. 
* Os is the old size of the process, 
* 


and is supplied during core expansion swaps. 
*f 

xswap(p, ff, os) 

register struct proc *p; 

{ 

register a, i, s, tos; 

int addr, sz; 


if (os == 0) 

os = p->p_size; 
p->p_flag j= (SLOCK|SNOMMU} ; 
xecdec(p->p_textp); 
exrelse(p->p_ context); 
a = malloc(swapmap, ctod(p->p_size)); 
if (a == NULL) { 

{* 


* s = decreasing click size of total disk space needed 
* tos = decreasing click size of process being swapped 


*/ 
tos = os; 
S = p->p_size; 
#ifdef NONSCATLOAD 
addr = p->p_addr: 
#else 
addr = p->p scat; 
fendif ~ 
for (i=0; i < NSCATSWAP; i++) { 


if ({a = dtoc(mallocl(swapmap))} == NULL) 


break; 
if (a > s) 
a=s; 


p->p_xaddr[i] = malloc(swapmap, (mem_t)ctod(a)); 


p->p_xsize({i] = a: 
sz = MIN({a, tos); 
if (sz) { 

#ifdef NONSCATLOAD 


swap(p->p_xaddr[il], addr, 


#felse 


addr = swap(p->p_xaddr{il], addr, (mem_t)sz, 


B_WRITE): 
tendif 


3 -= a; 

if {s == 0) 
break; 

tos -= a; 


(mem_t)sz, B WRITE); 


if (tos < 0) 
toes = 0; 
#ifdef NONSCATLOAD 
addr += a; 


fendif 
} 
if (s != 0) 
panic("out of swap space"); 
a = p->p_xaddr[6]; /* for /pin/ps */ 
} else { 


#ifdef NONSCATLOAD 


swap((daddr_t)a, (int)p->p_addr, (mem_t)os, B_ WRITE); 


(void) swap((daddr_t)a, (int)p->p_scat, (mem_t)os, B WRITE); 


#else 

#endif 
} 
p->p_flag 4= ~SNOMMU; 
if (ff) { 


#ifdef NONSCATLOAD 


mfree({coremap, {mem_t)os, (mem_t)p->p addr); 


#else 
memfree(p->p_scat); 
p->p_scat = QO; 
fendif 
} 
exrelse(p->p_context) ; 
P->p_dkaddr = a; 
p->p_flag &= ~(SLOAD|SLOCK); 
#ifndef NONSCATLOAD 
if (p->p_flag & SSWAPIT) { 
p->p_flag &= ~SSWAPIT; 
p->p_flag |= SCONTIG; 
wakeup({ (caddr_t)scatmap) ; 
} 


#endif 
p->p_time = 0; 
if (runout) { 
runout = 0; 
wakeup({(caddr_t)érunout); 
} 
} 
{* 


* relinquish use of the shared text segment 
* of a process. 
xf 
xfree() 
{ 
register struct text *xp; 
register struct inode *ip; 
register struct proc *p = u.u_procp; 


Lf ((sp = p->p_textp) == NULL) 
return; 

xlock (xp); 

xp->x_flag &= ~XLOCK; 

p->p_textp = NULL; 

u.u_ptsize = 0; 

ip = xp->x_iptr; 


if (--xp->x_count==0 && ((ip->i_mode&ISVTX)==0 || xp->x_flag&XERROR)) { 


xmsave (xp); 
xp->x_iptr = NULL; 
1f (xp->x_daddr) 


mfree(swapmap, ctod(xp->x_size), 


cxtxfree (xp); 
ip->i_flag 4= ~ITEXT; 
1f (ip->i_flagéILOCK) 
ip->i_count--; 
else 
iput (ip): 
} else 
xccdec (xp) ; 
cxrelse(u.u_procp->p_ context); 


f* 


(int) xp->x_daddr) ; 


soec: si nt sneer cnt enecthensn nane neNNaiahiee ne RaetoeTt 
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Attach to a shared text segment. 

If there is no shared text, just return. 

If there is, hook up to it: 

if it is not currently being used, it has to be read 


+ oe ee 


* to be written out as appropriate. 
* If it is being used, but is not currently in core, 
* a swap has to be done to get it back. 
x] 
Xalloc (ip) 
register struct inode *ip; 
t 
register struct text *xp; 
register ts; 
register struct text *xpl; 
register struct user *up; 


up = &u; 
if (up->u_exdata.ux_tsize = 0) 
return; 
xpl = NULL; 
loop: 
for (xp = é&text(0]; xp < (struct text *)v.ve_text; 
if (xp->x_iptr == NULL) { 
if (xpl — NULL) 
xpl = xp; 
continue; 
} 
if (xp->x_iptr == ip) { 
xlock (xp); 
xp->x_countt++; 
up->u_procp->p textp = xp; 
if (xp->x_ccount == 06) 
(void) xexpand (xp); 
else 
Xp->x_ccount++; 
xunlock (xp) ; 
return; 
} 
} 
if ((xp=xpl) = NULL) { 
printf (“out of text\n"); 
syserr.textovftt+; 
if (xumount (NODEV) ) 
goto loop; 
psignal (up->u_procp, SIGKILL); 
return; 
} 
xp->x_flag = XLOAD|XLOCK; 
xXp->x_count = 1; 
xXp->x_ccount = 0; 
xp->x_iptr = ip; 
ip->i_flag |= ITEXT; 
ip->i_count++; 
ts = btoc(up->u_exdata.ux _tsize); 
xp->x_size = ts; 


in from the inode (ip); the written bit is set to force 


it 


xptt+) { 


/* if ((xp->x_daddr = malloc(swapmap, ctod(ts))) == NULL) */ 


/* panic("out of swap space"); */ 
xp->x_daddr = 0; 
up-~>u_procp->p textp = xp; 
if (xexpand(xp)) { 

(void) estabur((unsigned)ts, (unsigned) 0, 

xp->x_flag = XWRIT; 

return; 


} 


/* defer swap alloc til later */ 


(unsigned) 6, 0, 


(void) estabur((unsigned)ts, (unsigned)0, (unsigned)0, 0, RW); 


up->u_count = up->u_exdata.ux_tsize; 
up->u_offset = sizeof (up->u_exdata) ; 

/* up->u_offset = up->u_exdata.ux_tstart; */ 
up->u_base = (caddr_t)v.v_ustart; 

/* up->u_base = 0; */ 

up->u_segflg = 2; 

up->u_procp->p flag |= SLOCK; 

readi (ip): 

up->u_procp->p flag &= ~SLOCK; 

up->n_segfilg. =O; . 


RW); 


if (up->u_error || up->u_count!=0) 
xp->x_flag = XERROR; 

else 
xp->x_flag = XWRIT; 


/* 
Assure core for text segment 

Text must be locked to keep someone else from 
freeing it in the meantime. 

x_ccount must be 0. 


ok Ok OF 
se. 


a 
xexpand (xp) 
register struct text *xp; 
{ 
if (xmlink(xp)) { 
xp->x_ccount+t; 
xunlock (xp) ; 
return(1); 
} 
#ifdef NONSCATLOAD 


if ({(xp->x_caddr = malloc(coremap, xp->x_size)) f= NULL) { 


if ((xp->x_flag&XLOAD) ==0) 


swap(xp->x_daddr, (int)xp->x_caddr, xp->x_size, 


xp->x_ccount++; 
xunlock (xp); 
return (0); 

} 


#else 
if ((xp->x_scat = memalloc(xp->x_size)} != NULL) { 
if ((xp->x_flag&éXLOAD) ==0) 
(void) swap(xp->x_daddr, (int)xp->x_scat, 
xp~>x_Size, B_READ); 
xp->x_ccountt++; 
xunlock (xp) ; 
return (0); 
} 
#endif 


if {save(u.u_ssav)) { 
cxtxfree (xp): 
sureg {i}; 
return (0); 
} 
xswap(u.u_procp, 1, 0); 
xunlock (xp) ; 
u.u_procp->p flag |= SSWAP; 
qswtch (); 
#ifdef lint 
return (9); 
tendif 
} 


/* 
* Lock and unlock a text segment from swapping 
a] 

xlock (xp) 

register struct text *xp; 

{ 


while (xp->x_flagéXLOCK) { 
xp->x_flag |= XWANT; 
{void) sleep((caddr_t)xp, PSWP); 
} 
xp->x_flag |= XLOCK; 
} 


xunlock (xp) 
register struct text *xp; 
{ 
if (xp->x_flag&éXWANT) 


wakeup ((caddr_t)xp); 
xp->x_flag é= ~(XLOCK| XWANT) ; 


i* 


text.c Fri Sep 5 19:08:28 1986 3 


x Decrement the in-core usage count of a shared text segment. 
* When it drops to zero, free the core space. 
*f 
xccdec (xp) 
register struct text *xp; 
{ 
int prevlock; 


if (xp==NULL || xp->x_ccount==0) 
return; 
xlock (xp); 
if (i(prevlock = (u.u_procp->p flag & SLOCK))} 
u.w _procp->p flag |= SLOCK; 
if (--xp->x_ccount==0) { 
if (xp->x_flag&xXWRIT) { 
xp->x_flag &= ~XWRIT; 
if (xp->x_daddr == 0) 
xp->x_daddr = swapalloc(ctod(xp->x_size), 1); 
#ifdef NONSCATLOAD 
swap (xp->x_daddr, (int)xp->x_caddr, xp->x_size, B_WRITE); 


#else 
(void) swap(xp->x_daddr, 
(int) xp->x_scat, xp->x_size, B_ WRITE); 
#endif 
} 
xmsSave (xp); 
extxfree (xp); 
} 
if (!prevlock) 
u.u_procp->p_flag é&= ~SLOCK; 
xunlock (xp}; 
} 
f* 


* free the swap image of all unused saved-text text segments 
* which are from device dev (used by umount system call). 
af 
xumount (dev) 
register dev_t dev; 
{ 
register struct inode *ip; 
register struct text *xp; 
register count = 0; 


for (xp = &text(0]; xp < (struct text *)v.ve_ text; xptt+) { 
if ((ip = xp->x_iptr) == NULL) 
continue; 
if (dev != NODEV && dev != ip->i_dev) 
continue; 
if (xuntext (xp) ) 
count++; 
} 
return (count); 
} 


{* 
* remove a shared text segment from the text table, if possible. 
*f 
xrele (ip) 
register struct inode *ip; 
{ 
register struct text *xp; 


if ((ip->i_flagsITEXT) == 0) 
return; 
for (xp = étext[0]; xp < (struct text *)v.ve_text; xptt) 
if (ip==xp->x_iptr) 
(void) xuntext (xp); 
f 


/* 
* remove text image from the text table. 
* the use count must be zero. 
sd 

xuntext (xp) 

register struct text *xp; 


register struct inode *ip; 


xlock{xp); 
if (xp->x_count) { 
xun1LOCK (xp) ; 
return (0); 
} 
ip = xp->x_iptr; 
xmfree (ip); 
xp->x_flag &= ~XLOCK; 
xp->x_iptr = NULL; 
cxtxfree (xp) : 
if (xp->x_daddr) 
mfree(swapmap, ctod(xp->x_size), (int)xp->x_daddr); 
ip->i_flag &= ~ITEXT; 
if (ip->i_flag&ILOck) 
ip->i_count--; 
else 
iput (ip); 
return(1l); 
} 


/* 
* allocate swap blocks, freeing and sleeping as necessary 
xf 
swapalloc(size, sflg) 
{ 
register addr; 


for (33) { 

if (addr = malloc(swapmap, size)) 
return (addr) ; 

Lf {swapelui{)) { 
printf ("\nWARNING: swap space running out\n"); 
printf(" needed $d blocks\n", size); 
continue; 

} 

printf (“\nDANGER: out of swap space\n"); 

printf(" needed %d blocks\n", size); 

if {sflg) { 
mapwant (swapmap) ++; 
(void) sleep((caddr_t)swapmap, PSWP); 


} else 
return (0); 

} 
} 
f* 
* clean up swap used by text 
xf 
swapclu () 


{ 
register struct text *xp; 
register ans = 0; 


for (xp = text; xp < (struct text *)v.ve_text; xptt) i 
if (xp->x_iptr == NULL) 
continue; 
1f (xp->x_flag&XLOCK) 
continue; 
1f (xp->x_daddr == 0) 
continue; 
Lf (xp->x_count) { 
if (xp->x_ccount) { 
mfiree(swapmap, ctod(xp->x_size), 
(int) xp->x_daddr); 
xp->x_flag |= XWRIT; 
xp->x_daddr = 0; 
anst+; 
} 
} else { 
(void) xuntext (xp); 
anst++; 
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return(ans); 
} 


{* 
* free the saved text area associated with an inode 
xf 
xmfree (ip) 
register struct inede *ip; 
{ 
register struct svtext *svx; 


for (svx = asvtext{O]; svx < (struct svtext *}v.ve_svtext; svxt+} { 
Lf (svx->x_svflag&XSVBUSY && ip->i_number==svx->x_svnumber && 
ip->i_dev==svx->x_svdev) { 
svx~->x_svflag &= ~XSVBUSY; 
#ifdef NONSCATLOAD 
mfree(coremap, svx->x_svsize, (mem_t)svx->x_svcaddr); 


#else 
memfree ((mem_t) svx->x_svscat); 
#endif 
break; 
} 
} 
} 
fe 
* link up to a text region already in memory 
xf 
xmlink (xp) 


register struct text *xp; 

{ 
register struct svtext *svx; 
register struct inode *ip; 


ip = xp->x_iptr; 
for (svx = &svtext[0]: svx < (struct svtext *)v.ve_svtext; svxtt+) { 
Lf (svx->x_svflagéxSVBUSY && ip->i_number==svx->x_synumber && 
ip->i_dev==svx->x_svdev) { 
svx->x_svflag &= ~XSVBUSY; 
#ifdef NONSCATLOAD 
xXp->“_caddr = svx->x_svcaddr; 
#else 
xp~>x_scat = svx->x_svscat; 
#endif 
#ifdef TEXTTRACE 
printf("linking to text caddr Ox%x\n", svx->x svcaddr); 
fendif ~ 
return(1); 
} 
} 
return (0); 
} 


i* 
* Release a shared text segment in the text area space. 
*/ 
xmrelse () 
{ 
register struct svtext *svx, *tsvx; 
register n; 


n= ((ungsigned) -1) >> 1; 
tsvx = NULL; 
for (svx = ésvtext[0}]; svx < (struct svtext *)v.ve_svtext; svxt+) { 
if (svx->x_svflag&XSVBUSY && svx->x_svsize<n) { 
N = svx->x_svsize; 
tSvxX = SVX; 
continue; 
} 
} 
if (tsvx == NULL) 
return (0); 
#ifdef TEXTTRACE 
printf("freeing %d segments at text caddr Oxtx\n", 
tsvx->x_svsize, tsvx~->x_svcaddr); 
#endif = 


#ifdef NONSCATLOAD 
mfree(coremap, tsvx->x_svsize, (mem_t)tsvx->x_svcaddr);: 


#else 
memfree ({mem_t)tsvx->x_svscat); 
tendif 
tsvx->x_svilag &= ~XSVBUSY; 
return({1); 
} 
/* 
* Save the memory of a text region of a shared process 
af 
xmsave (xp) 
register struct text *xp; 
{ 


register struct svtext *svx, *tsvx; 
register struct inode *ip; 


tsvx = NULL; 
ip = xp->x_iptr; 
for (svx = &svtext[0]; svx < (struct svtext *)v.ve_svtext; svxt+) { 
if ((svx~>x_svflag&xXSVBUSY) == 0) { 
if (tsvx == NULL) 
tsvx = SVX; 
continue; 
} 
if (ip->i_number==svx->x_svnumber && ip->i_dev==svx->x_svdev) { 
printf (*xmrelse:memory saved more than once\n"); 
tsvx = NULL; 


break; 
} 
} 
f* 
* No space left in table 
af 


if (xp->x_flag&éXERROR || tsvx = NULL) { 

#ifdef NONSCATLOAD 

mfree(coremap, xp->x_size, (mem_t)xp->x_caddr); 
#else 

memfree((mem_t)xp->x_scat); 
fendif 

} else { 

tsvx->x_svflag |= XSVBUSY; 

tsvx->x_svsize = xp->x_size; 
#ifdef NONSCATLOAD 

tsvx->x_svcaddr = xp->x_caddr; 
felse 

tsvx->x_svscat = xp->x_scat; 
#endif 

tsvx->x_svdev = ip->i_dev; 

tsvx->x_svnumber = ip->i_number; 
#tifdef TEXTTRACE 

printf(“saving %d segments at text caddr Ox%x\n", 

tsvx->x_svsize, tsvx->x_svcaddr) ; 

#endif 


} 
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/*#define HOWFAR*/ 
/*#define SYSCALLS */ 


/* @(#)trap.c 1.2 */ 
#include "sys/param.h" 
#include “sys/types.h" 
#include "“sys/systm.h" 
#include "sys/dir.h" 
f#include “sys/signal.h" 
#include "sys/user.h" 
finclude “sys/errno.h" 
finclude "sys/proc.h™ 
#include "sys/reg.h" 
#include "“sys/psl.h® 
#include "sys/trap.h" 
#ifdef mc68881 

#include “sys/fptrap.h"™ 
fendif mc68881 

#include “sys/seg.h* 
#include “sys/sysinfo.h™ 
#ifndef VIRTUAL451 
#include “sys/buserr.h" 


tendif 
#define EBIT 1 /* user error bit in PS: C-bit */ 
#define USER 0x1006 /* user-mode flag added to number */ 


#define NSYSENT 128 


#ifdef SYSCALLS 
static char reserved[] = "reserved"; 


char *calinames[] = { 


/*® Qf “indir", “exit", “fork", "read", 
fr 4 #f “write", “open", "close", “wait", 
f* 8 *f “creat", “link™", “unlink", "exec", 
f* 12 */ “chdir", “time, "mknod", "chmod*, 
/* 16 */ "chown", “break", “stat", “seek", 
f*® 20 */ “getpid®, "mount", “umount™, “setuid”, 
/* 24 *f “getuid", “stime", "ptrace", “alarm", 
/* 28 */ “fstat", “pause", “utime", “stty", 
{* 32 */ “gtty*, “access", “nice", “sleep", 
/* 36 */ “sync", "kill", “csw", “setpgrp", 
fe 40 */ “tell, “dup", “pipe", “times, 
{* 44 *f "prof*®, "lock", “setgid", “getgid", 
/* 48 *f “sig", “msgsys", reserved, “acct", 
/* 52 *f “shmsys“, “semsys", "ioctl", “phys", 
/* 56 */ "locking", “utssys", reserved, “exece", 
f* 60 */ "umask", “chroot", "fentl", “ulimit, 
/* 64 */ "reboot", reserved, reserved, reserved, 
#ifdef UCB NET 
/* 68 */ reserved, reserved, “select", "gethostname", 
/* 72 */ “sethostname”, “socket", "accept", "connect", 
7* 16 */ “receive™, "send", “socketaddr", “netreset", 
#else 
/* 68 */ reserved, reserved, reserved, reserved, 
/* 72 *f reserved, reserved, reserved, reserved, 
f* 76 *f reserved, reserved, reserved, reserved, 
tendif 
/* 80 */ reserved, reserved, reserved, reserved, 
/* 84 */ reserved, reserved, reserved, reserved, 
/* 88 */ reserved, reserved, reserved, reserved, 
/* 92 */ reserved, reserved, reserved, reserved, 
f* 96 */ reserved, reserved, reserved, reserved, 
/* 100 */ reserved, reserved, reserved, reserved, 
/* 104 */ reserved, reserved, reserved, reserved, 
/* 108 */ reserved, reserved, reserved, reserved, 
/® 112 */ reserved, reserved, reserved, reserved, 
/* 116 */ reserved, reserved, reserved, reserved, 
{* 120 */ reserved, reserved, reserved, reserved, 
/* 124 */ reserved, reserved, reserved, reserved 
he 
tendif 
fx 


* Offsets of the user's. registers relative to 


* the saved r0. See reg.h 
*f 
char regloc[8+8+i+1l] = { 
RO, R1, R2, R3, R4, R5, R6, R?, 
ARG, AR], AR2, AR3, AR4, ARS, AR6, SP, PC, 
RPS 
I 


f* 
* Called from the trap handler when a processor trap eccurs. 
x} 
trap{number, regs) 
short number; 
{ 
register struct user *up; 
extern int parityno; 
register i; 
time_t syst; 
int retval; 
int *oldar0; 
#ifdef mc68881 /* MC68881 floating-point coprocessor */ 
extern short fp881; /* is there an MC68881? */ 
#endif mc68881 


up = &u; 
retval = 0; 
syst = up->u_stime; 
#ifdef FLOAT /* sky floating point board */ 
up->u_fpsaved = 0; 
#endif 
oldarO = up->u_ard; 
up->u_ar0 = éregs; 
if (USERMODE (up->u_ar0[RPS])) 
number |= USER; 
#ifdef HOWFAR 
if (number != RESCHED && number != RESCHED+USER) { 
printf("trap number=0x%x ps=0x%x\n", number, 
up->u_ar0 [RPS] &0xFFFF) ; 
showregs {1); 


} 
tendif 
[x 
* Handle parity specially to make it processor independent 
xf 
if (number==parityno || number==(parityno|USER}) { 
if ({i = parityerror()) — 0) { 
logparity (({paddr_t)éup->u_arO[PC]); 
goto out; 
} 
if (i > 6) { 
number = i | (number & USER); 
goto sw; 
} 
if (number & USER) { 
logparity ((paddr_t)éup->u_arO0[PC]); 
i = SIGBUS; 
} else { 
if (nofault) { 
up->u_arQ = oldar0d; 
longjmp(nofault, -1); 
} 
showbus (); 
panic("kernel parity error"); 
} 
} else { 
SW: 


switch(number) { 


7* 
* Trap not expected. 
* Usually a kernel mode bus error. 
*/ 
default: 
if ((number & USER) == G) i 
panicstr = “trap"; /* fake it for printfs */ 
printi¢"\ntzap type td\n", number); 
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case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 


case 


#ifdef mcés881 


case 
case 
case 
case 
case 
case 
case 
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showregs (1); 
panic(“unexpected kernel trap"); 


} 


CHK + USER: /* CHK instruction */ 
TRAPV + USER: /* TRAPV instruction */ 
PRIVVIO + USER: /* Priviledge violation */ 
L1010 + USER: /* Line 1010 emulator */ 
L1111 + USER: #* Line 1111 emulator */ 
TRAP4 + USER: 
TRAPS + USER: 
TRAP6 + USER: 
TRAP7 + USER: 
TRAPS + USER: 
TRAPS + USER: 
TRAP10 + USER: 
TRAP11 + USER: 
TRAP12 + USER: 
TRAP13 + USER: 
TRAP14 + USER: 
TRAPi5 + USER: 
ILLINST + USER: ¢* illegal instruction */ 
i = SIGILL; 
break; 
DIVZERO + USER: /* zero divide */ 
i = SIGFPE; 
break; 
/* MC68881 floating-point coprocessor */ 


FPBSUN + USER: 
FPINEX + USER: 
FPD2Z + USER: 

FPUNFL + USER: 


FPOPERR + USER: 


FPOVFL + USER: 
FPSNAN + USER: 


fk 
/* 
f* 


Branch or Set on Unordered Condition */ 
Inexact Result */ 
Floating Point Divide by Zero */ 


/* Underflow */ 

/* Operand Error */ 

/* Overflow */ 

/* Signalling NAN (Not-A-Number) */ 


up~>u_fpexc = number & OXxFF; 


i = SIGFPE; 
break; 


#endif mc68esi 


case TRCTRAP: 
up->u_ar§ = oldard; 
return (retval); /* this is happens when a trap instruction */ 


case 
case 


case 


case 


case 


/* 


* Allow process switch 


*f 


case RESCHED + USER: 


case 


f* 


trace out of kernel mode ~ */ 


/* is executed with the trace bit set */ 


TRCTRAP + USER: 


TRAP1 + USER: 


i = SIGTRAP; 


ft 
/* 


trace */ 
bpt - trap #1 */ 


up~>u_arQ[RPS] é&= ~PS_T; 


break; 


TRAP2 + USER: 
i = SIGIOT; 
break; 


TRAPS + USER: 
i = SIGEMT; 
break; 


SYSCALL + USER: 
panic("syscall\n"); 


RESCHED: 
qswtch(); 
goto out; 


#ifdef VIRTUAL451 


/* 


{* 


f* 


/* 


dot - trap #2 */ 


emt - trap #3 */ 


sys call - trap #0 */ 


* If the user SP is below the stack segment 
* and within, STACKGAP clicks of the bottom 


* of the stack segment, then grow the 
* stack automatically. 


xf 
case ADDRERR + USER: 


case BUSERR + USER: 


/* bus error - address error */ 
i = SIGBUS; 

retval = i; 

trapaddr({(struct buserr *)&regs); 

break; 


/* memory management error - bus error */ 

if (pagein{ (int) (({struct buserr *)&regs)->ber_faddr))} { 
up~>u_ar0 = oldaré; 
return (6); 

} 

i = SIGSEGV; 

retval = 1; 

trapaddr{{struct buserr *)é&regs); 

break; 


case ADDRERR: /* bus error - address error */ 


case BUSERR: 


trapaddr(({struct buserr *)éregs); 
printf("kernel address error\n"); 
showbus (); 

panic(“kernel memory management error"); 


f* memory management error - bus error in kernel */ 
if (mofault) { 
up->u_ar0 = oldard; 
longjmp{nofault, -1); 
} 
trapaddr({(struct buserr *)é&regs); 
berdump({struct buserr *)&regs); 
printf ("kernel bus error\n") ; 
showbus () ; 
panic("kernel memory management error"); 


#else 
/* 
* If the user SP is below the stack segment, 
* grow the stack automatically. 
* This relies on the ability of the hardware 
* to restart a half executed instruction. 
* On the 68000 this is not the case and 
* the routine machdep/backup() will fail. 
*/ 
case ADDRERR + USER: /* bus error - address error */ 
i = SIGBUS; 
retval = 1; 
trapaddr((struct buserr *)éregs); 
break; 
case BUSERR + USER: /* memory management error - bus error */ 
1f (i = backup(up->u_ar0)) 
if (grow( (unsigned) (up->u_arQ[SP]+i))) 
goto out; 
i = SIGSEGV; 
retval = 1; 
trapaddr((struct buserr *)&regs); 
break; 
case ADDRERR: /* kernel address error */ 
case BUSERR: /* kernel bus error */ 
if (nofault) 
longjmp(nofault, ~-1); 
trapaddr((struct buserr *)éregs); 
showbus (); 
panic("kernel memory management error\n"); 
#endif 
/* 
* Unused trap vectors generate this trap type. 
* Reciept of this trap is a 
* symptom of hardware problems and may 
* represent a real interrupt that got 
= 


sent. to the wrong. place... Match out 
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* for hangs on disk completion if this message appears. 
x} 
case SPURINT: 
case SPURINT + USER: 
printf("\nRandom interrupt ignored\n"); 
up~>u_ard = oldar6; 
return (retval); 
} 
} /* end else ... */ 
psignal(up->u_procp, i); 


out 
if (up->u_procp->p_ sig && issig()) 
psig(): 
if (up->u_prof.pr_ scale} 
addupc ( (unsigned) up->u_arO0[PC], &up->u_pref, (int) (up->u_stime-syst)); 
#ifdef FLOAT /* sky fleating point board */ 
if (up->u_fpinuse && up->u_fpsaved) 
restfip(); 
fendif 
#tifdef mc68831 /* MC68881 floating-point coprocessor */ 
if (£fpee1) 


fprest{); 
#endif mc68881 
up->u_ar® = oldard; 
return (retval); 
} 


fx 
* process a system call 
*f 
syscali (regs) 
{ 
register struct proc *pp; 
register struct user *up; 
register *regp, *argp; 
register i; 
int *oldard; 
#ifdef mc68831 /* MC68881 floating-point coprocessor */ 


extern short fp881; /* is there an MC68881? */ 
f#endif mc68s88i 


up = &u; 
sysinfo.syscall+t+; 
up->u_error = 0; 
#ifdef FLOAT /* sky floating point board */ 
up->u_fpsaved = 0; 
fendif 
oldar0 = up->u_aro; 
up->u_arQ = regp = &regs; 
up->u_ap = argp = up->u_arg; 
1 = regp[RO] & 0377; 
if (i >= NSYSENT) 
i= 0; 
argp[{0] = regp[ARO]; 
argp[1] = regp[R1]; 
argp[2] = regp[AR1]; 
argp[3] = regp[{R2]: 
argp[4] = regp[AR2]; 
argp[5] = regp[R3]; 


tifdef SYSCALLS 
printf ("***** $s: tx $x $x &x\n", callnames[i], 
argp[0], argp({1], argp(2], argp[3], argp[4], argp[5]): 
#endif 
up->u_dirp = (caddr_t)argp[0]; 
up->u_rvall = 0; 
up->u_rval2 = regp[R1]: 
if (qsave(up->u_qsav)) { 
j* 
* restore registers not saved by qsave 
*/ 
up = &u; 
regp = &regs; 
argp = up~>u_arg; 
. Lf up->n_error==0) 


up->u_error = EINTR; 
} else { 
(*(sysent {i].sy_call)) (); 
} 
if (up->u_error) { 
regp[RO] = up->u_error; 
regp(RPS] |= PS _C; /* carry bit */ 
if (+tup->u_errent > 16) { 
up->u_errent = 0; 
runruntt; 
} 
#ifdef SYSCALLS 
printf(" syscall error = %d, pe = Ox$x\n", 
up->u_error, regp[PC]); 


tendif 
} else { 
#ifdef SYSCALLS 
printf(* syscall success, pe = 0x%x\n®", 
regp[PC])>; 
#endif 
regp[RPS] &= ~PS_C; /* carry bit */ 
regp(RO] = up->u_rvall; 
regp[R1] = up->u_rval2; 
} 
pp = up->u_procp; 
7* 
* Test if the trap instruction was executed with the 
* trace bit set (the trace trap was already ignored) 
* and set the trace signal to avoid missing the trace 
* on the trap instruction. 
*f 
pp->p_pri = (pp->p_cpu>>1) + (PUSER - NZERO) + pp->p nice; 
curpri = pp->p_pri:; 
if (pp->p_sig && issig{)) 
psig(); 
up->u_ar0 = oldar0d; 
if (runrun) 
qswtch({); 
#ifdef FLOAT /* sky floating point board */ 
if (up->u_fpinuse && up->u_fpsaved) 
restipt); 
#endif 
#ifdef mc68881 /* MC68881 floating-point coprocessor */ 
if (fpse1) 


fprest (); 
#endif mc68881 
} 


{* 
* nonexistent system call-- signal bad system call. 
af 

nosys{) 

{ 

psignal(u.u_procp, SIGSYS); 
} 


f* 
* Ignored system call 
*/ 

nullsys() 

{ 

} 


stray (addr) 
physadr addr; 
{ 
logstray (addr) ; 
printf("stray interrupt at %x\n", addr); 
} 


/* 
* trapaddr - Save the info from a 68010 bus or address error. 
*] 

trapaddr (ap) 

register struct buserr ‘*ap; 

{ . 
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extern int cputype; 


if (cputype = 0) 
return; 
u.u_fcode = ap->ber_sstat; 
u.u_aaddr = ap->ber_faddr; 
u.u_ireg = ap->ber_iib; 
} 


/* 
* showbus - print out status on mmgt error 
*f 
showbus () 
{ 
register struct user *up; 
up = éu; 
printf ("“vaddr = 0x%x paddr = Ox%x ireg = Ox%x fcode = 0x%x\n", 
up->u_aaddr, vtop{(caddr_t)up->u_aaddr), up->u_iregé0xFFFF, 
up->u_fcode&0xF) ; 
showregs (1); 
} 
/* 
* Show a processes registers 
*f 


showregs (mmuflg) 

int mmuflg; 

{ 
register struct user *up; 
register int i, 4; 
char command [DIRSIZ+1]; 


up = &u; 
#ifdef HOWFAR 
if (mmufig) 
dumpmm (-1); 
#fendif HOWFAR 
#ifdef lint 
dumpmm (mmuflg) ; 
#fendif lint 
for (i=0; i<DIRSIZ; i++) { 
3 = up->u_comm[i]; 
if (j<=" * [| j>=0x7F) 
break; 
command[i] = j; 
} 
command[i] = 0; 
{* 
* separate prints in case up or u_procp trashed 
*/ 
printf("“pe = Ox%x sr = Ox%$x up->u_procp = Ox%x", 
up->u_arO[PC], up->u_arO(RPS]&0xFFFF, up->u_procp); 
printf(" pid = %d exec = ‘4%s’\n", up->u_procp->p_pid, command); 
for {i = 0; i < 16; itt) { 
printf ("0x%x ", up->u_ar0[i]); 
if (L — 7 [| i == 15) printf("\n"); 


} 


#ifdef DUMPSTK 
#include <sys/var.h> 
#ifndef VIRTUAL451 
finclude <sys/mmu.h> 


#tendif 

#include <sys/sysmacros.h> 

/* 
x dump the present contents of the stack 
af 

dumpstack (ret) 


{ 
register unsigned short *ip; 


tp = (unsigned short *) éret; 
ip -~ 4; 
print£i"\n&x ", ip); 


while (ip < (unsigned short *) ({int)éu+cteb(v.v_usize))) { 
if ({(int)ip & 31) = 4) 
printft("\ntx ", ip); 
printi(" &x", *ipt+); 
} 
printf (*\n*}; 
if (ret != 6) 
panic("**** ABORTING ****") ; 
} 


f* 
* dump the present contents of the user stack 
af 

dumpustack (max) 

unsigned max; 

{ 

register unsigned short *ip, *jp; 
register unsigned i, n; 


p = (unsigned short *)(u.u_arO[SP] - 20}; 
p=ip + 64; 
£ (jp < (unsigned short *)max) 
jp = (unsigned short *)max; 
if (jp > (unsigned short *)v.v_uend) 
jp = (unsigned short *)v.v_uend; 
printf ("\n$x ", ip); 
while (ip < jp) { 
i = (fuword(ipt+) >> 16) & OxFFFF; 
if (((int)ip & 31) = 0) 
printf("\ntx ", ip): 
printf(™ $x", i); 


Pte be 


} 
printf("\n"); 


fendif 
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/* @(#)ttO.c 1.4 */ 

{* 

* Line discipline 0 

* Includes Terminal Handling 
xf 


#include "sys/param.h" 
#include "sys/types.h" 
#include "sys/systm.h" 
#include "“sys/conf.h" 
#include “sys/dir.h" 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include "sys/proc.h" 
#include “sys/file.h" 
#include “sys/tty.h" 
#include “sys/termio.h" 
#include “sys/crtctl.h" 
#include “sys/sysinfo.h" 
tinclude “sys/var.h" 


extern char partab[]; 


char colsave, rowsave; 
struct clist tempq: 


{* 
* routine called on first teletype open. 
* establishes a process group for distribution 
* of quits and interrupts from the tty. 
xf 
ttopen (tp) 
register struct tty *tp; 
{ 


/* temp save for high queue restore */ 
/* temp for echo during high queue */ 


} 
f* 


register struct cbhlock *cp; 


if ((ep = getcbitq)) == NULL) 
break; 
n = min(up->u_count, 


(unsigned) (cp->c_last - cp->c_first)); 
if (copyout ((caddr_t) &cp->c_data[cp->c_first], 


(caddr_t)up->u_base, n)} 
up->u_error = EFAULT; 
putcf((struct cbliock *)cp); 
up->u_base += n; 
up->u_count == n; 
} else { 
register c; 


Lf ((c = getc(tq)) < 0) 
break; 
if (subyte(up->u_baset++, c)) 
up->u_error = EFAULT; 
up->u_count--; 
} 
} 
1f (tp->t_statesTBLOCK) { 
if (tp->t_rawq.c_cc<TTXOLO) { 
(*tp->t_proc) (tp, T_UNBLOCK}; 
} 


* Called from device’s write routine after it has 
* calculated the tty-structure given as argument. 


x] 


ttwrite (tp) 
register struct tty *tp; 


register struct proc *pp; { 
register struct user *up; 
pp = u.u_procp; int hqflag;: 
if ((pp->p_pid == pp->p_pgrp) int col, row: 
&& (u.u_ttyp = NULL) 
&& (tp->t_pgrp == 6)) { up = &u; 
u.u_ttyp = &tp->t_pgrp; quait: 
tp->t_pgrp = pp->p_pgrp; spitty(); 


} 
ttioctl(tp, LDOPEN, 0, 4); 
tp->t_state &= ~WOPEN; 


while (tp->t_tmflag & QLOCKB) { 
tp->t_state |= OASLP; 


(void) sleep({(caddr_t)&tp->t_outg, TTOPRI); 


tp->t_state |= ISOPEN; } 
} SPLO(); 
if (! (tp->t_state&CARR _ON)) 
ttclose (tp) return; 
register struct tty *tp; hqflag = 0; 


{ 
if ((tp->t_state&ISOPEN) == 0) 
return; 
tp->t_state &= ~ISOPEN; 
tp->t_pgrp = 0; 
ttioctl(tp, LDCLOSE, 0, 9); 
} 


/* 


while (up->u_count) { 


if (tp->t_outq.c_cc > tthiwat [tp->t_cflag&CBAUD]) { 


if (hqflag) { 
col = tp->t_col; 
row = tp->t_row; 
hqrelse (tp); 

} 

spltty(); 

(*tp->t_proc) (tp, T_OUTPUT); 


* Called from device’s read routine after it has 
* calculated the tty-structure given as argument. 


while (tp->t_outq.c_cc > tthiwat[tp->t_cflag&CBAUD]) { 
tp->t_state |= OASLP; 


*/ 
ttread(tp) 
register struct tty *tp; 
{ 
register struct user *up; 
register struct clist *tq; 


up = éu; 
tq = &étp->t_canq; 
if (tq->c_cc == 0) 
canon (tp); 
while {up->u_count!=0 && up->u_errer==0} 
if (up->u_count >= CLSIZE) { 
Legister no: 


t 
V 


if (sleep((caddr_t)&tp->t_outq, 


hqflag ? PZERO : (TTOPRI|PCATCH))) { 


SPLO(); 
goto out; 


} 

SPLO(); 

if (hqflag) { 
tp->t_tmflag |= QLOCKI; 
colsave = tp->t_col; 
rowsave = tp->t_row; 
ttyct1(LCA, tp, col, row); 
continue; 


tt0.c 


norm: 


out: 


} 
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if (tp->t_tmflag & QLOCKB) 
goto qwait; 
} 
if (up->u_count >= (CLSIZE/2) && tp->t_term == 0) { 
register n; 
register struct cbhlock *cp; 


if (ep = getcfi{)) = NULL) 
break; 
n =~ min{up->u_count, (unsigned)cp->c_last); 


if (copyin((caddr_tj)up->u_base, (caddr_t)cp->c_data, 


ny) 
up->uy_error = EFAULT; 
putcf({struct cblock *)cp); 
break; 
} 
up->u_base += n; 
up->u_count -= n; 
cp->c_last = n; 
ttxput(tp, cp, n); 
} else { 
register c; 


c = fubyte(up->u_baset+); 

if (c<O) { 
up->u_error = EFAULT; 
break; 

} 

up->u_count~-; 

if (c = ESC && tp->t_term) { 
switch (c = cpass({)) { 

int col; 


case -1: 
continue; 

case ESC: 
goto norm; 

case HIQ: 
if (hqflag++) 

continue; 

tp->t_tmflag |= QLOCKB]QLOCKI; 
tp->t_hqentt+; 
colsave = tp->t_col; 
rowsave = tp->t_row; 
continue; 

case LCA: 

case SVID: 

case DVID: 

case CVID: 
col = cpass{); 

default: 


ttyctl(c, tp, col, c==LCA ? cpass{)} 


} 
} else { 


ttxput (tp, c, 0); 


} 


if (hqflag) { 


} 


hqrelse (tp); 
(void) putc(QESC, &tp->t_outq); 
{void) putc(HQEND, &tp->t_outq); 
spltty(); 
if (tp->t_state & OASLP) { 
tp->t_state i= ~OASLP; 
wakeup ((caddr_t) &tp->t_outgq) ; 
} 
SPLO(}; 


tp->t_tmflag &= ~(QLOCKB|QLOCKI); 
spltty(); 
(*tp->t_proc) (tp, T_OUTPUT); 


SPLO(); 


0); 


j* 
* Place a character on raw TTY input queue, putting in delimiters 
* and waking up top half as needed. 
* Also echo if required. 
x] 
#define LCLESC 0400 
ttinitp) 
register struct tty *tp; 
i 
register c; 
register flg; 
register char *cp; 
ushort nehar, ne; 
nchar = tp->t_rbuf.c_size - tp->t_rbuf.c_ count: 
/* reinit rx control block */ 
tp->t_rbuf.c_count = tp->t_rbuf.c_size; 
if (nchar==0) 
return; 
flg = tp->t_iflag; 
/* KMC does all but IXOFF */ 
if (tp->t_statesEXTPROC) 
flg &= IXOFF; 
ne = nchar; 
cp = tp->t_rbuf.c_ptr; 
if (ne < cfreelist.c_size || (flg & (INLCR|IGNCR|ICRNL|IUCLC)) 


{| tp->t_term) { 


/* must do per character processing */ 


for ( ;ne--; cptt) { 


if ((c = (*termsw(tp->t_term].t_input) (c,tp)) 


c = *cp; 
if (tp->t_term) { 
c & 0177; 
== -1) 
continue; 


if {c & CPRES) { 


(void) putc(ESC, &tp->t_rawq); 
(void) putc(c, &tp->t_rawq); 


continue; 
} 
} 
if (c == ‘\n’ && f1lg&INLCR) 
top = oc = "\rh; 
else if (c = ‘\r’) 
if (f1g&IGNCR) 
continue; 
@lse if (flgéICRNL) 
xcp = c= /\n'; 


if (f1g&IUCLC && ’A’ <= c && c <= 724) 


Cc t= var - FAT; 
if {putec(c, &tp->t_rawq) )} 
continue; 
sysinfo.rawcht+; 
} 
cp = tp->t_rbuf.c_ ptr; 
} else { 
/* may do block processing */ 


putcb(CMATCH{{struct cblock *)cp), é&tp->t_rawq); 


sysinfo.rawch += nc; 
/* allocate new rx buffer */ 


if ({tp->t_rbuf.c_ ptr = getcf{)->c_data) 


—= ((struct cblock *)NULL)->c_data) { 


tp->t_rbuf.c_ptr = NULL; 
return; 
} 
tp->t_rbuf.c_count = cfreelist.c_size; 
tp->t_rbuf.c_ size = cfreelist.c size; 


if (tp->t_rawq.c_cc > TTXOHI) { 
if (f1lgsIXOFF && ! (tp->t_state&TBLOCk) } 
(*tp->t_proc) (tp, T_BLOCK); 
if (tp->t_ramg.c_cc >. TTYHOG) { 
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ttyflush(tp, FREAD): 
return; 
} 
} 
flg = lobyte(tp->t_lflag); 
if (tp->t_outq.c_cc > (tthiwat(tp->t_cflag&CBAUD] + TTECHI)) 
flg &= ~(ECHO|ECHOK | ECHONL} ECHOE) ; 
if (flg) while (nchar--) { 
c = *optt; 
if (flgéIsic) { 
if (c == tp->t_cc[VINTR]) { 
signal (tp->t_pgrp, SIGINT); 
if ({(E£1lg&éNOFLSH) && tp->t_hgcnt==0) 
ttyflush(tp, (FREAD|FWRITE)); 
continue; 
} 
if (c == tp->t_cce(VQUIT]) { 
signal (tp->t_pgrp, SIGQUIT) ; 
if (i (f£lgsNOFLSH) && tp->t_hqcent==0) 
ttyflushitp, (FREAD|FWRITE)); 
continue; 
} 
} 
if (flg&ICANON) { 
if (tp->t_state&CLESC) { 
flg |= LCLESC; 
tp->t_state é&= ~CLESC; 
} 
if (c == *\n") { 
if (flg&ECHONL) 
fig |= ECHO; 
tp->t_delet+t; 
} else if (c = ‘\\') { 
tp->t_state |= CLESC; 
if (f1g&XCASE) { 
c |= QESC; 
if (flgeLCLESC) 
tp->t_state &= ~CLESC; 
} 


} else if (c == tp->t_cc[VEOL] |] c == tp->t_cc[VEOL2]) 


tp->t_delctt+; 
else if (i! (f1lg&LCLESC)) { 


if (c = tp->t_cc[VERASE] && flgéECHOE) { 


if (£1g&ECHO) 
ttxputi(tp, '\b*); 
flg |= ECHO; 
ttxputi(tp, ’ "); 
c = '\b!; 


} else if (c == tp->t_cc[VKILL] && flg&ECHOK) 


if (£1g&ECHO) 
ttxputi(tp, c); 
flg |= ECHO; 
c= '\n'; 
} else if (c == tp->t_cc[VEOF]) { 
flg &= ~ECHO; 
tp->t_delct++; 


} 
} 
if (f1lg&ECHO) { 
ttxputi(tp, c); 
(*tp->t_proc) (tp, T_OUTPUT); 
} 


} 
Lf (!(£1lg&ICANON)) { 


tp->t_state &= ~RTO; 
if (tp->t_rawq.c_cc >= tp->t_cc[VMIN]) 
tp->t_delct = 1; 
else if (tp->t_ccjVTIME]) { 
if (1 (tp->t_statea&TACT) ) 
tttimeo (tp); 
} 
} 
if (tp->t_delet && (tp->t_statesIASLP)) { 
tp->t_state é= ~IASLP; 
wakeup((caddr t)4tp->t_ramq); 


{ 


} 


fe 
* Interrupt interface to ttxput. 
* Checks for High Queue write in progress, and saves characters to be 
*] 
ttxputi(tp, c) 
register struct tty *tp; 
{ 
if (tp->t_tmflag & QLOCKI) { 
(void) putc(c, étempq); 
return; 
} else 
ttxput(tp, c, 0); 


* Put character(s) on TTY output queue, adding delays, 
* expanding tabs, and handling the CR/NL bit. 
* It is called both from the base level for output, and from 
* interrupt level for echoing. 
xf 
/* VARARGS1 */ 
ttxputi(tp, ucp, ncode) 
register struct tty *tp; 


union { 
struct ch { /* machine dependent union */ 
char dum[3]; 
unsigned char theaddr; 
} ch; 
int thechar; 
struct cblock *ptr; 
} ucp; 


register c; 

register flg; 

register unsigned char *cp; 
register char *colp; 

int ctype; 

int cs; 

struct cblock *scf; 


/* KMC does all but XCASE, virt term needs CR info for t_col */ 


if (tp->t_states&EXTPROC) { 
1f (tp->t_term || tp->t_lflagéXCASB) 
flg = tp->t_oflag& (OPOST|OLCUC |ONLRET | ONLCR) ; 
else 
flg = 4; 
} else 
flg = tp->t_oflag; 
if (ncode = 0) { 
ncodet++; 
if (!(flg&OPOST)) { 
sysinfo.outchtt; 
(void) putc(ucp.thechar, &tp->t_outq); 
return; 
} 
cp = (unsigned char *)é&ucp.ch.theaddr; 
scf = NULL; 
} else { 
if (!(flgsOPOST)) { 
sysinfo.outch += ncode; 
putcb{ucp.ptr, &tp->t_outq); 
return; 
} 


echoed. 


cp = (unsigned char *)&ucp.ptr->c_data[ucp.ptr->c_first]; 


scf = ucp.ptr; 
} 
while (ncode--) { 
c = *cptt; 
if (c >= 0200) { 
/* sp15-0 */ 
if (c == QESC &&@ i (tp->t_statea&EXTPROC} ) 
(void) putc(QESC, &tp->t_outq); 
sysinfio.outcht++; 
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(void) pute(c, &tp->t_outg); 
continue; 
} 
/* 
* Generate escapes for upper-case~only terminals. 
xf 
1£ (tp->t_lflag&xCASE) { 
cColp = "E{)}E14~7 AAAS 
while (*colpt++) 
if (c == *colptt+) { 


ttxput(tp, “\\"10200, 9); 
c = colip(-zi; 
break; 


} 
if (Af <= c && c <= /2") 
ttxput(tp, "\\!|0260, 6); 
} 
if ({flgsOLCUC && ‘a’ <= c && c <= '2') 
Ct AF - fale 
cs = c¢; 
{* 
* Calculate delays. 
* The numbers here represent clock ticks 
* and are not necessarily optimal for all terminals. 
* The delays are indicated by characters above 0200. 
*/ 
ctype = partab[c]; 
colp = &tp->t_col; 
c= 0; 
switch (ctypes077) { 


case 0: /* ordinary */ 
{*colp) +t; 


case 1: /* non-printing */ 
break; 


case 2: /* backspace */ 
if (flgéBSDLy) 
c= 2; 
if (*colp) 
(*colp)--; 
break; 


case 3: /* line feed */ 


if (tp->t_term) { 

if (tp->t_vrow && tp->t_row >= tp->t_lrow) { 
ttyct1(UVSCN, tp); 
continue; 

} 

if (tp->t_tmflag & SNL) { 
ttyctl(NL, tp); 
continue; 

} 

} 

if (f1lgsONLRET) 
goto cr; 

if (tp->t_row < tp->t_lrow) 
tp->t_rowt+; 

if (f1g&ONLCR) { 

Lf ((!(tp->t_statesEXTPROC)) &é& 
!(£1lg&ONOCR && *colp==0)) { 
sysinfo.outcht++; 

(void) pute(’\r’, &tp->t_outgq); 

} 

goto cr; 

} 


if (flg&NLDLy) 
c= 5; 
break; 


case 4: /* tab */ 
c= 8 - {(*colp)&07); 
*colp += .c; 


if ({(tp->t_statesEXTPROC)) { 

ctype = flg&TABDLY; 

if (ctype = TABO) { 
c= 6; 

} else if (ctype — TAB1) { 
if (c < 5) 

c= 0; 

} else if (ctype == TAB2) { 
c= 2; 

} else if (ctype == TAB3) { 
sysinfo.outch += c; 
do 

{void) putc(’ ’, &tp->t_outgq); 
while (--c); 
continue; 


} 
break; 


case 5: /* vertical tab */ 
if (flg&éVIDLY) 
c = 0177; 
break; 


case 6: /* carriage return */ 
if (£1lgéOCRNL) { 
cs = ‘\n'; 
goto ni; 
} 
if (f1lggéONOCR && *colp = 9) 
continue; 
cr: 
if (!(tp->t_state&EXTPROC)) { 
ctype = flgsCRDLY; 
if (ctype = CR1) { 
if {*colp) 
c = max( (unsigned) ({*colp>>4)+3), 6); 
} else if (ctype — CR2) { 


c= 5; 
} else if (ctype == CR3) { 
c= 9; 
} 
} 
*colp = G; 
break; 
case 7: /* form feed */ 
if (flgéFFDLY) 
c = 0177; 
break; 
} 
sysinfo.outchtt; 


if (tp->t_term && *colp >= 80 && tp->t_row >= tp->t_lrow 
&& tp->t_tmflag & LCF) { 
ttyctl (VHOME, tp); 
ttyctl (DL, tp); 
ttyct1l(LCA, tp, 79, tp->t_lrow-1); 
(*colp) ++; 
} 
if (tp->t_term=0) 
(void) putc(cs, &tp->t_outq); 
else 
qputc(cs, &tp->t_outq); 
if (!(tp->t_state&EXTPROC)) { 
if (c) { 
if ((c < 32) && fF1lgsOFILL) { 
if (f1lg&OFDEL) 


cs = 0177; 
elise 
cs = 0; 
{void) putc(cs, étp->t_outq); 
if (c > 3) 
(void) putc(cs, &tp->t_outgq); 
} eise { 


(void) putc(QESC, &tp->t_outgq); 
ivoid) putc{o} 0200, stp->t.outq): 
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} 
} 
if (*colp >= 80 && tp->t_term && tp->t_tmflagéANL) 
if (tp->t_tmflagéLcF) 
ttyctl{LCA, tp, 6, tp->t_rowti}; 
else { 
if ((flgéONLCR) — 0) 
ttxputi(tp,’\r’); 
cs = ‘\ni; 
goto top; 


a 


} 
if (sef != NULL) 
putcfiscf); 
} 


i* 
* Get next packet from output queue. 
* Called from xmit interrupt complete. 


*/ 


ttout (tp) 
register struct tty *tp; 
{ 
register struct ccblock *tbuf; 
register c; 
register char *cptr; 
register retval; 


extern ttrstrt(); 


if (tp->t_statesTTIOW && tp->t_outq.c_cc==0) { 
tp->t_state &= ~TTIOW; 
wakeup ((caddr_t)}&tp->t_oflag); 
} 
delay: 
tbuf = &tp->t_tbuf; 
if (hibyte(tp->t_lflag)) { 
if (tbuf->c_ptr) { 
putcf (CMATCH({struct cbhlock *jtbuf->c_ptr)); 
thuf->c_ptr = NULL; 
} 
tp->t_state |= TIMEOUT; 
timeout (ttrstrt, (caddr_t)tp, 
(int) ((hibyte (tp->t_lflag) &0177)+6)); 
hibyte (tp->t_lflag) = 9; 
return (0); 
} 
retval = 0; 
if (((tp->t_statesEXTPROC) || (!(tp->t_oflag&OPOST))) 4&& 
tp->t_term=0) { 
if (tbuf->c_ptr) 
putcf (CMATCH({struct cblock *)tbuf->c_ptr)); 
if ((tbuf->c_ptr = (char *)getcb(étp->t_outgq)} == NULL) 
return(0); 
thuf->c_count = ((struct cbhlock *)tbuf->c_ptr)->c_last ~ 
((struct cbhlock *)tbuf->c_ptr)->c_first; 
tbuf->c_size = tbuf->c_count; 
tbuf->c_ptr = £((struct cblock *)tbuf->c_ptr)->c_data 
[¢(struct cblock *)tbuf->c_ptr)->c_first]; 
retval = CPRES; 
} else { /* watch for timing f 
if (tbuf->c_ptr == NULL) { 
if ((tbuf->c_ptr = getcf()->c_data) 
== ((struct cblock *)NULL)->c_data) { 
tbuf->c_ptr = NULL; 
return (0); /* Add restart? */ 
} 
} 
tbuf->c_count = 0; 
cptr = tbuf->c_ptr; 
while ((c=getc(s&tp->t_outgq)) >= 0) { 
if (c == QESC) { 
if ((c = getc(étp->t_outq)) < 0) 
break; i 


} 


if (c == HOEND) { 
if (tp->t_term) 
tp->t_hqent--; 
continue; 


if (c > 0200 && ! (tp->t_stateéEXTPROC)) f{ 
hibyte(tp->t_lflag) = c; 
if (Sretval) 

goto delay; 
break; 

} 

j 
retval = CPRES; 
xcptrtt+ = c; 
tbuf->c_counttt; 
if (tbuf->c_count >= cfreelist.c_size) 
break; 
} 
tbhuf->c_size = tbuf->c_count; 
} 


if (tp->t_stateéOASLP && 
tp->t_outq.c_cc<=ttlowat [tp->t_cflagéCBAUD]) { 
tp->t_state &= ~OASLP; 
wakeup({(caddr_t)&tp->t_outq); 

} 

return(retval); 


tttimeo(tp) 
register struct tty *tp; 


{ 


} 


/*® 
* I/O control interface 


*/ 


tp->t_state é= ~TACT; 
if (tp->t_lflag&ICANON || tp->t_cc[VTIME}] == 0) 
return: 
if (tp->t_rawq.c_cc = 0 && tp->t_cc[VMIN]) 
return; 
if (tp->t_stateéRTO) { 
tp->t_delct = 1; 
if {tp->t_statesIASLP) { 
tp->t_state &= ~IASLP; 
wakeup ((caddr_t) &tp->t_rawq); 
} 
} else { 
tp->t_state |= RTO| TACT; 
timeout (tttimeo, (caddr_t)tp, 
(int) (tp->t_cc [VTIME]* (short) ({short)v.v_hz/10))); 


/* ARGSUSED */ 
ttioctli(tp, cmd, arg, mode) 
register struct tty *tp; 


{ 


ushort chg; 
struct termcb termblk; 
register struct termcb *tbp; 


switch(cmd) { 
case LDOPEN: 
if (tp->t_rbuf.c_ptr == NULL) { 
/* allocate RX buffer */ 
while((tp->t_rbuf.c_ptr = getcf()->c_data) 
== ((struct cblock *)NULL)->c_data) { 
tp->t_rbuf.c_ptr = NULL; 
cfreelist.c_flag = 1; 
(void) sleep((caddr_t)&cfreelist, TTOPRI); 
} 
tp->t_rbuf.c_ count = cfreelist.c_size; 
tp->t_rbuf.c_size = cfreelist.c_ size; 
{*tp->t_proc) (tp, T_INPUT); 


break; 
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case LDCLOSE: 


spltty(); 
(*tp->t_proc) (tp, T_RESUME); 
SPLO(); 
ttywait (tp): 
ttyflush(tp, (FRERAD|FWRITE)); 
1£ (tp->t_tbuf.c_ptr) { 
putcf (CMATCH((struct cblock *)tp->t_tbuf.c_ptr)); 
tp->t_tbuf.c_ptr = NULL; 
tp~>t_tbuf.c count = @; 
tp->t_tbhuf.c_size = 6; 
} 
Lf (tp->t_rbuf.c_ptr) { 
putcf (CMATCH( (struct cblock *)tp->t_rbuf.c_ptr)); 
tp->t_rbuf.c_ ptr = NULL; 
tp->t_rbuf.c_count = 0; 
tp->t_rbuf.c_ size = 6; 
} 
tp-~>t_tmflag = 0; 
break; 


case LDCHG: 


chg = tp->t_lflag*arg; 
Lf (! (chg&ICANON)) 
break; 
spltty{); 
if (tp->t_cang.c_cc) { 
Lf (tp->t_rawq.c_cc) { 
tp->t_cang.c_cc += tp->t_rawq.c_cc; 
tp->t_cang.c_cl->c_next = tp->t_rawq.c_cf; 
tp->t_cang.c_cl = tp->t_rawq.c_cl; 
} 
tp->t_rawq = tp->t_canq; 
tp->t_cang = ttnulq; 
} 
tp->t_delct = tp->t_rawq.c_ce; 
SPLO (); 
break; 


case LDGETT: 


thp = é&termblk; 

tbp->st_flgs = tp->t_tmflag; 

tbhp->st_termt = tp->t_term: 

tbp->st_crow = tp->t_row; 

tbp->st_ccol = tp->t_col; 

tbhp->st_vrow = tp->t_vrow: 

tbp->st_lrow = tp->t_lrow; 

if (copyout((caddr_t)tbp, (caddr_tjarg, sizeof (termb1k))) 
u.u_error = EFAULT; 

break: 


case LDSETT: 


tbp = é&termblk; 
if (copyin((caddr_t)arg, (caddr_t)tbp, sizeof{termblk))) { 
u.u_error = EFAULT; 
break; 
} 
if ((unsigned)tbp->st_termt >= terment) { 
u.u_error = ENXIO; 
break; 
} 
if (tbp->st_termt) { 
(*termsw(tbp->st_termt].t_ioct1) 
(tp, 
tp~->t_term==tbp->st_termt ? LDCHG : LDOPEN, 
tbhp->st_vrow) ; 
if (u.u_error) 
break; 
tp->t_vrow = tbp->st_vrow; 
tp->t_term = tbp->st_termt; 
if (tbp->st_flgs&TM_SET) 
tp->t_tmflag = tbp->st_flgs & ~TM_SET; 
} else | 
tp->t_term = 0; 
} 


tp->t_state &= ~CLESC; 
break; 
default: 
break; 
} 
} 
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f* 
* release the high priority queue for interrupts. 
* copy over any received characters while queue was locked. 
xf 

hqrelse(tp) 

register struct tty *tp; 

{ 


register c; 


ttyct1 (LCA, tp, colsave, rowsave); 

spltty()7 

while({(c = getc(&tempq)) >= 6) 
ttxput(tp, c, 4); 

tp->t_tmflag &= ~QLOCKI; 

SPLO(); 


i* 
* put a character on the output queue, 
* checking first to see if it is a ESC. 
oy 

qputc(c, gp) 

register c; 

struct clist *qp; 

{ 

if ic = ESC) 
{void) putc{c, gp); 
(void) putc(c, qp); 
} 


#ifdef notdef 
/* simulate Up Variable SCreeN as common routine */ 
ttuvsen (tp) 
register struct tty *tp; 
{ 
ttyctl (VHOME, tp); 
ttyctl(DL, tp); 
ttyct1(LCA, tp, 0, tp->t_lrow); 
} 


/* simulate Down Variable SCreeN as common routine */ 
ttdvscen (tp) 
register struct tty *tp; 
{ 
ttyct1 (VHOME, tp); 
ttyct1{IL, tp); 
} 
#endif 


char colpres, rowpres; 


/* VARARGS */ 
ttyctl({ac, tp, acol, arow) 
register struct tty *tp; 
{ 
register char *colp; 
register c; 
int sps; 


c = ac; 
colp = a4tp->t_col; 
sps = spltty(); 


coipres = *colip; 
rowpres = tp->t_row; 
owitohic) ¢ 
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case CUP: 
case DSCRI: 
if (tp->t_row =~ 0) 
goto out; 
tp->t_row--; 
break; 
case CDN: 
case USCRL: 
LE (tp->t_row >= tp->t_lrow) 
goto out; 
tp->t_rowt+; 
break; 
case UVSCN: 
xcolp = 0; 
tp->t_row = tp->t_lrow: 
break; 
case DVSCN: 
*colp = 0; 
tp->t_row = tp->t_vrow; 
break; 
case CRI: 
case STB: 
case SPB: 
if (*colp >= 79) 
goto out; 
(*colp)+t: 
break; 
case CLE: 
if (*colp == 0) 
goto out; 
(*colp)--; 
break; 
case HOME: 
case CS: 
case CM: 
tp->t_row = 0; 
case DL: 
case IL: 
*colp = 6; 
break; 
Case VHOME: 
*xcolp = 0; 
tp->t_row = tp->t_vwrow; 
c = LCA; 
break; 
case LCA: 
*colp = acol; 
tp->t_row = arow; 
break; 
case ASEG: 
tp->t_row = (short) (tp->t_row+24)% (short) (tp->t_lrowt1); 
break; 
case NL: 
if (tp->t_row < tp->t_lrow) 
tp->t_rowt+tt+; 
case CRTN: 
*colp = 0; 
break; 
case SVID: 
tp->t_dstat |= acol; 
c = DVID; 
break; 
case CVID: 
tp->t_dstat &= ~acol; 
c = DVID; 
break; 
case DVID: 
tp->t_dstat = acol; 
break; 
} 
(*termsw[tp->t_term] .t_output) (c, tp); 
out: 
splx(sps); 
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/* @(#)ttl.c 1.4 */ 

/* 

* Line discipline 0 

* No Virtual Terminal Handling 
x} 


tinclude “sys/param.h" 
f#include “sys/types.h" 
#include “sys/systm.h" 
#include “sys/conf.h" 
#include “sys/dir.h" 
tinclude “sys/signal.h™ 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/proc.h" 
#include “sys/file.h" 
#include “sys/tty.h®" 
#include “sys/termio.h" 
#include “sys/sysinfo.h" 
#include “sys/var.h" 
#include "“sys/reg.h" 


extern char partab[]; 


{* 
* routine called on first teletype open. 
* establishes a process group for distribution 
* of quits and interrupts from the tty. 
*f 
ttopen (tp) 
register struct tty *tp; 
{ 
register struct proc *pp; 


pp = u.u_procp; 
if ((pp->p_pid == pp->p_pgrp) 
&& (u.u_ttyp == NULL) 
&& ({tp->t_pgrp == 6)) { 
u.u_ttyp = étp->t_pgrp; 
. tp->t_pgrp = pp->p_pgrp; 
T 
ttioctl(tp, LDOPEN, 0, 0); 
tp->t_state é= ~WOPEN; 
tp->t_state |= ISOPEN; 
} 


ttclose(tp) 
register struct tty *tp; 
{ 
if ((tp->t_state&ISOPEN) == 0) 
return; 
tp->t_state &= ~ISOPEN; 
tp->t_pgrp = 0; 
ttioctl(tp, LDCLOSE, 6, 0); 
} 


{* 
* Called from device’s read routine after it has 
* calculated the tty-structure given as argument. 
xf 

ttread (tp) 

register struct tty *tp; 

{ 

register struct user *up; 
register struct clist *tq; 


up = &uU; 
tq = atp->t_canq; 
lf (tq->c_cc == 0) 
canon (tp); 
while (up->u_count!=0 && up->u_error==0) { 
if (up->u_count >= CLSIZE) { 
register n; 
register struct cblock *cp; 


if ((ep = getcbitq)} = NULL) 


break; 
n = MIN(up->u_count, 

(unsigned) (cp->c_last - cp->c_first)); 
if (copyout ((caddr_t)&cp->c_data[cp->c first], 


{caddr_t)up->u_base, n)) 
up->u_error = BFAULT; 
putcf((struct cbhlock *}cp); 
up->u_base += n; 
up->u_count -= n; 
} else { 
register c; 


if ((c = getc(tq}) < 0) 
break; 
if (subyte(up->u_baset+, c)} 
up->u_errer = EFAULT; 
up->u_count~-; 
} 
} 
if (tp->t_states&TBLOCK) { 
if (tp->t_rawq.c_cc<TTXOLO) { 
(*tp->t_proc) (tp, T_UNBLOCK); 
} 


} 


{* 
* Called from device’s write routine after it has 
* calculated the tty-structure given as argument. 
*f 

ttwrite (tp) 

register struct tty *tp; 

i 

register struct cblock *cp; 
register struct user *up; 
register a, n; 


if (!(tp->t_state&CARR_ON)) 
return; 
up = &u; 
a = tthiwat [tp->t_cflag&CBAUD] ; 
if (up->u_count <= 4 && up->u_ar0[RO] & 0x80000000) { 
n = up->u_arg[3]> 
SPL6(); 
while (tp->t_outq.c_cc > a) { 
(*tp->t_proc) (tp, T_OUTPUT); 
/* 
* For non-interrupting output devices sleep 
* only when characters are still pending. 
*f 
Lf (tp->t_state& (TIMEOUT|TTSTOP|BUSY)) { 
tp->t_state |= OASLP; 


(void) sleep((caddr_t)&tp->t_outg, TTOPRI); 


} 
SPLO()}; 
while (up->u_count) { 
ttxput(tp, néOxFF, 9); 
up->u_baset+; 
up->u_count--; 
Nn >>= 8; 
} 
} else 
while (up->u_count) { 
SPL6(); 
while (tp->t_outq.c_ce > a) { 
(*tp->t_proc) (tp, T_OUTPUT); 
/* 
* For non-interrupting output devices sleep 
* only when characters are still pending. 
af 
if (tp->t_stateé (TIMEOUT|TTSTOP|BUSY)) { 
tp->t_state |= OASLP; 


(void) sleep((caddr_t)&tp->t_outq, TTOPRI); 
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SPLO(); 
if (up->u_count >= (CLSIZE/4)) { 
if ((cp = getcf()) == NULL) 
break; 
nh = MIN(up->u_count, (unsigned) cp->c_last); 
if (copyin({caddr_tjup->u_base, (caddr_tjcp->c_data, 
n)) { 
up->u_error = EFAULT; 
putcf({struct cblock *)cp); 


break; 
} 
f* 
* Put trailing ‘\n* in a separate cblock 
*/ 
if (n=—up->u_count && cp->c_data[n-l]=="\n’ && n>=3) 
n--; 


up->u_base += n; 
up->u_count -= n; 
cp->c_last = n; 
ttxput(tp, cp, n); 


} else { 
n = fubyte(up->u_baset+t+); 
Lf (n<0) { 
up->u_error = EFAULT; 
break; 


} 
up->u_count~-; 
ttxputitp, n, 9); 
} 
I 
spltty(); 
Lf (1 (tp->t_statesBUSyY)) 
(*tp->t_proc) (tp, T_OUTPUT); 
SPLO{); 
} 


{* 

* Place a character on raw TTY input queue, putting in delimiters 
* and waking up top half as needed. 

* Also echo if required. 

xf 


#define LCLESC 0408 


ttin(tp) 

register struct tty *tp; 

{ 
register c; 
register flg; 
register char *cp; 
ushort nchar, ne; 


nchar = tp~>t_rbuf.c_size - tp->t_rbuf.c_count; 
/* reinit rx control block */ 
tp->t_rbuf.c_count = tp->t_rbuf.c_ size; 
if (nchar==0) 
return; 
flg = tp->t_iflag;: 
ne = nchar; 
cp = tp->t_rbuf.c_ptr; 
if (nc < cfreelist.c_ size {| ({flg & (INLCR|IGNCR|ICRNL|IUCLC))) { 
/* must do per character processing */ 
for ( ;ne--; cptt+) { 
c = *cp; 
if (c == ‘\n’ && flg&INLCR) 
*cp = c= /\r'; 
else if (c == "\r’) 
if (flg&IGNCR) 
continue; 
else if (flg&ICRNL) 
*cp =c = '\n'; 
lf (flgsIUCLe g& ‘A’ <= c && c <= '2°) 


c t= fal — ‘Af; 
if (putc(c, &tp->t_rawg)) 
continue; 

sysinfo.rawch++; 


cp = tp->t_rbuf.c ptr; 
} else { 
/* may do block processing */ 
putcb(CMATCH((struct cblock *)cp), &tp->t_rawq); 
sysinfo.rawch += nec; 
/* aliocate new rx buifer */ 
Lf ((tp->t_rbuf.c_ptr = getcf()->c_data) 
== ((struct cblock *)NULL)->c_data) { 
tp->t_rbuf.c_ptr = NULL; 
return; 
} 
tp->t_rbuf.c_ count = cfreelist.c_size; 
tp->t_rbuf.c_size = cfreelist.c_ size; 


if (tp->t_rawq.c_cc > TTXOHI) { 
Lf (flgsIxOFF && | (tp->t_statesTBLOCK) ) 
(*tp->t_proc) (tp, T_BLOCK); 
if (tp->t_rawq.c_ce > TTYHOG) { 
ttyflush(tp, FREAD); 
return; 
} 
} 
£lg = lobyte(tp->t_lflag); 
if (tp->t_outq.c_cc > (tthiwat[tp->t_cflagéCBAUD] + TTECHI)) 
flg &= ~{ECHO|ECHOK | ECHONL|ECHOE) ; 
if (flg) while (nchar--) { 
c= *eptt; 
if (flgsISIe) { 
LE (c == tp->t_cc[VINTR]) { 
signal (tp->t_pgrp, SIGINT); 
if (!(£lg&NOFLSH) ) 
ttyflush(tp, (FPREAD|FWRITE)}; 
continue; 
} 
if (c = tp->t_cc[VQUIT]) { 
signal (tp->t_pgrp, SIGQUIT); 
if (! (£lg&éNOFLSH) } 
ttyflush({tp, (FREAD|FWRITE)}; 
continue; 


} 
#ifdef notdef 
if (flg&ICANON) { 
if (tp->t_state&CLESC) { 
flg |= LCLESC; 
tp->t_state &= ~CLESC; 
} 
if (c == /\n’) { 
if (£1g&ECHONL) 
flg |= ECHO; 
tp->t_delcttt; 
} else if (c = ‘\\"%) { 
tp->t_state |= CLESC; 
if (flg&XCASE) { 
c |= QESC; 
if (flg&LCLESC) 
tp->t_state &= ~CLESC; 
} 
} else if (c = tp->t_cc[VEOL] || ¢ == tp->t_cc[VEOL2)) 
tp->t_delctt+t+; 
else if (!(flg&LCLESC)) { 
if (c == tp->t_cc[VERASE] && flg&ECHOE) { 
if (flg&ECHo) 
ttxput(tp, ’\b’, 6); 
flg |= ECHO; 
ttxputitp, % ", 0); 
c= '\b’; 
} else if (c = tp->t_cc[VKILL] && flg&ECHOK) { 
if (£1lg&ECHO) 
ttxput(tp, c, 0); 
flg |= ECHO; 
c= "\n'; 
} else if (c = tp->t_cc[VEOF]) { 
; flg é= ~ECHO; 
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tp->t_delct++; 


} 


} 
Lf (£1géECHO) { 
ttaputitp, c, Go); 


{*tp->t_proc) (tp, T OUTPUT); 
} 


#else 
if (f1geICANON) { 
if (c == "\n") { 

LE (£1gsECHONL} 
flg |= ECHO; 

tp->t_delct++; 

} else if (c = tp->t_cc[VEOL] || c = tp->t_cc[VEOL2]) 
tp->t_delct++; 
Lf (!(tp->t_stateacLESsc)) { 

if (c == '\\F) 
tp->t_state |= CLESC; 

if (c == tp->t_cc[VERASE] && flg&ECHOE) { 
if (£1lgéECHO) 

ttxputitp, “\b’, 0); 
flg |= ECHO; 
ttxputi(tp, * *, 0); 
cm ®\b!;: 

} else if (c == tp->t_cc[VKILL] && flg&ECHOK) { 

if (flg&ECHO) 

ttxput(tp, c, 6); 
flg |= ECHO; 
c= *"\n'; 

} else if (c == tp->t_cc[VEOF]) { 
flg &= ~ECHO; 
tp->t_delctt++; 

} 

} else { 
if (c f= "\\" |[ (£lgsXCAsE)) 
tp->t_state &= ~CLESC; 
} 
} 
if (flgeECHO) { 
<xput{tp, c, 9); 
(*tp->t_proc) (tp, T_OUTPUT); 
} 
#endif 
} 
if (1 (flgéICANON)) { 
tp->t_state &= ~RTO; 
if (tp->t_rawq.c_ce >= tp->t_cc[VMIN]) 
tp->t_delct = 1; — 
else if (tp->t_cc[VTIME]) { 
if (! (tp->t_stateaTAcT) ) 
tttimeo (tp) ; 
} 
} 
1f (tp->t_delct «6 (tp->t_statesIASLP)) { 
tp->t_state &= ~IASLP; 
wakeup ((caddr_t) &tp->t_rawq); 
} 
} 
/* 


* Scan a list of characters and assure that they require no 
* post processing 
*f 
ttxchk(ncode, cp) 
register short ncode; 
register unsigned char *cp; 


{ 
register c, n; 


n= 0; 
ncode--; 
do { 
c= *eptt+: 
Af (c & 0200) 
return(-1); 


c = partab[c] & 077; 
if {c = 0) 
ntt+; 
else if (c != 1) 
return{-1); 
} while (--ncode != -1); 
return (n); 


* Put character(s) on TTY output queue, adding delays, 
* expanding tabs, and handling the CR/NL bit. 
* It is called both from the base level for output, and from 
* interrupt level for echoing. 
xf 
/* VARARGS1 */ 
ttzputitp, ucp, ncode) 
register struct tty *tp; 
register ncode; 


union { 
struct ch { /* machine dependent union */ 
char dum[3]; 
unsigned char theaddr; 
} ch: 


int thechar; 
struct cblock *ptr; 


} ucp; 


register struct clist *outqp; 
register unsigned char *cp; 
register c, flg, ctype; 
register char *colp; 

struct cbhlock *scf; 

int cs; 


fig = tp->t_oflag; 
outgp = &tp->t_outq; 
if (ncode — 0) { 
if (1 (f1gsOPOST)) { 
sysinfo.outcht+; 
(void) putc(ucp.thechar, outqp); 
return; 
} 
necodett+; 
cp = (unsigned char *) &ucp.ch.theaddr; 
scf = NULL; 
} else { 
if (!(£lgsOPOST)) { 
sysinfo.outch += ncode; 
putcb{ucp.ptr, outgqp); 
return; 
} 
cp = (unsigned char *)éucp.ptr->c_data[ucp.ptr->c_first]; 
scf = ucp.ptr; 
} 
if ((tp->t_lflagéXCASE)==0 && (flg&OLCUC)==0) { 
colp = &tp->t_col; 
if (ncode > 1 && (c = ttxchk(ncode, cp)) >= 9) { 
{*colp) += c; 
sysinfo.outch += ncode; 
putcb{ucp.ptr, outqp); 
return; 
} 
while (ncode--) { 
ctype = partab{c = *cptt] & 077; 
if (ctype==0) { 
(*colp) +t; 
sysinfo.outch++; 
(void) putc(c, outgp); 
continue; 
} 
else if (ctype=1) { 
sysinfo.outcht+; 
(void) putc(c, outgp):; 
continue; 
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if (c >= 9200) { 


} 
cs = c; 


f* 


if (c == QESC) 
(void) putc(QESC, outgp); 
sysinfo.outchtt+; 
(void) putc{c, outgqp): 
continue; 


* Calculate delays. 
* The numbers here represent clock ticks 
* and are not necessarily optimal for all terminals. 


continue; 
qcer: 
ctype = flg&CRDLY; 
if (ctype = CR1) { 
1f (*colp) 


c = max( (unsigned) ((*colp>>4) + 3), 6); 


} else if (ctype = CR2) { 


c= 5; 

} else if {ctype == CR3) { 
c= 9 

} 

xcolp = 0; 


* The delays are indicated by characters above 0200. break; 
*/ 
c= 0; case 7: /* form feed */ 
switch (ctype) { if (flg&FFDLY) 
c = 0177; 
case 0: /* ordinary */ break; 
(*colp) t+; } 
sysinfo.outcht+; 
case 1: /* non-printing */ (void) putc(cs, outqp); 
break; if (c) { 
if ((c < 32) && £1gsOFILL) 
case 2: /* backspace */ if (flg&OFDEL) 
if (flg&BSDLY) cs = 0177; 
c= 2: else 
if (*colp) cs = 0; 
{*colp)--; (void) putc(cs, outqp); 
break; if (c > 3) 
(void) putc(cs, outgp); 
case 3: /* line feed */ } else { 
if (flgsONLRET) (void) putc(QESc, outqp): 
goto qcr; (void) putc(c|9200, outqp); 
if (f1g&ONLCR) { } 
. if (!(f1lg&ONOCR && *colp==0)) { } 
sysinfo.outcht+; } 
(void) putc(*\r’, outgp); } else 
} while (ncode--) { 
goto qcer; c = *eptt; 
} if (c >= 6200) { 
qni: /*® spl5-0 */ 
if (flg&NLDLY) if (c == QESC) 
e= 5; {void) putc(QESC, outgp); 
break; sysinfo.outch++; 
{void) putc{(c, outqp): 
case 4: /* tab */ continue; 
c= 8 - {(*colp)&07); } 
*colp += c; /* 
ctype = flgé&TABDLY; * Generate escapes for upper-case-only terminals. 
if (ctype == TABO) { xf 
c= 0; if (tp->t_lflagéxXCASE) { 
} else if (ctype = TAB1) { colp = "({)} LE] 4-7 ANANS; 
if (c < 5) while (*colpt++) 
c= 0; if (c == *colpt+) { 
} else if (ctype == TAB2) { ttxput(tp, “\\"% (0200, 0); 
c= 2; c = colp[-2]; 
} else if (ctype == TAB3) { break; 
sysinfo.outch += c; } 
do if (fA’ <= co && c <= 12°) 
(void) putc(’ ‘, outap); ttxput(tp, "\\" 10200, 0); 
while (--c); } 
continue; if (f1lg&OLCUC && ‘a’ <= co && © <= 42") 
} c t= "Af = ‘a’; 
break; cs = c; 
/* 
case 5: /* vertical tab */ * Calculate delays. 
if (f1g&VTDLY) * The numbers here represent clock ticks 
c = 0177; * and are not necessarily optimal for all terminals. 
break; * The delays are indicated by characters above 0200. 
*/ 


case 6: /* carriage return */ ctype = partab[c]; 
if (f1géséOCRNL) { colp = &tp->t_col; 
es = ‘\n!'; c= 0; 
goto qnl; Switch (ctypes077) { 
} 


if (f1lgé&ONOCR && *colp == 06) case 0: /* ordinary */ 
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{*colp) ++; 


1: /* non-printing */ 
break; 


2: /* backspace */ 


} 
sysinfo.outcht+; 
{void) putci(cs, outgp); 
lf (c) { 
Af ({c < 32) && f1lgéOFILL) 
if (flgsOFDEL) 


if (flg&BSDLY) cs = 0177; 
c= 2; else 
if (*colp) cs = 0; 
(*colp) --; (void) putc(cs, outqp); 
break; if {c > 3) 
{void) putcics, outqp); 
case 3: /* line feed */ } else { 


if (flgsONLRET) (void) putc(QESC, outqp); 


goto cr; putcf(scf); 
} } 
nl: 
if (F1lgéNLDLY) /* 
c= 5; * Get next packet from output queue. 
break; * Called from xmit interrupt complete. 
xf 
case 4; /* tab */ 
c= 8 - ((*colp) 407); ttout (tp) 
*xcolp t= c; register struct tty *tp; 
ctype = flgéTABDLY; { 
if (ctype == TABC) { register struct ccblock *tbuf; 
c = 0; register c; 
} else if {ctype = TAB1) { register char *cptr; 
if (c < 5) register retval; 
c= QO; register struct clist *outgqp; 
} else if (ctype == TAB2) { extern ttrstrt(); 
c= 2; 
} else if (ctype == TAB3) { outqp = étp->t_outq; 
sysinfo.outch t= c; if (tp->t_statesTTIOW && outgqp->c_cc=0) { 
do tp~>t_state &= ~TTIOW; 
(void) putc(’ ‘, outgp); wakeup ((caddr_t)&tp->t_oflag); 
while (--c); } 
continue; delay: 
} tbuf = stp->t_tbuf; 
break; if (hibyte(tp->t_lflag)) { 
if (tbuf->c_ptr) { 
case 5: /* vertical tab */ putcf (CMATCH((struct cblock *)tbuf->c_ptr)); 
if (flgéVTDLY) tbuf->c_ptr = NULL; 
c = 0177; } 
break; tp->t_state |= TIMEOUT; 
timeout (ttrstrt, (caddr_t)tp, 
case 6: /* carriage return */ (int) ((hibyte (tp->t_lflag) &0177)+6)); 
if (flg&OCRNL) { hibyte(tp->t_lflag) = 0; 
cs = ‘\n‘:; return (0); 
goto nl; } 
} retval = 6; 
if (f1lg&ONOCR && *colp == 0) if (1 (tp->t_oflagsOPOST)) { 
continue; 1f (tbuf->c_ptr) 
er: putcf (CMATCH((struct cblock *)tbuf->c_ptr)); 
ctype = flg&éCRDLY; if (({tbuf->c_ptr = (char *)getcb(outqp)) == NULL) 
if (ctype == CR1) { goto out; 
if (*colp) /* return(0); */ 
c = max((unsigned) ((*colp>>4) + 3), 6): tbuf->c_count = ((struct cblock *)tbuf->c_ptr)->c_last - 
} else if (ctype == CR2) { ((struct cblock *)tbuf->c_ptr)->c_first; 
c= 5: tbuf->c_size = tbuf->c_count; 
} else if {ctype == CR3) { tbhuf->c_ptr = &((struct cblock *)tbuf->c_ptr)~->c_data 
c= 9 [({struct cblock *)tbuf->c_ptr)->c_first]; 
} retval = CPRES; 
xcolp = 0; } else { /* watch for timing xf 
break; if (tbuf->c_ptr — NULL) { 
if ((tbuf->c_ptr = getcf()->c_data) 
case 7: /* form feed */ == ((struct cblock *)NULL)->c_data) { 


goto cr; (void) putc(c]02060, outaqp); 


if (f1lgsONLCR) { 
Lf (!(£lgsONOCR && *colp==0)) { 
sysinfo.outchtt+; 
(void) putc(’\r’, outqp); 
} 


Lf (flgsFFDLY) 
oe = 0177; 
break; 


if (sef != NULL) 


tbuf->c_ptr = NULL; 
goto out; 
/*. vetarn(0); /* Add restart? */ 


ttl.c Fri Sep 5 19:08:09 1986 


} 
} 
tbuf~>c_count = 0; 
eptr = tbuf->c_ptr; 
while ((c=getc(outqp)) >= 0) { 
if {fe == QESC) { 
if ((c = getc(outqp)) < 6) 
break; 
if (c > 0200) { 
hibyte(tp->t_lflag) = c; 
if (!retval) 
goto delay; 
break; 
} 
h 
retval = CPRES; 
*xeptri+ = c; 
tbuf->c_count++; 
if (tbuf->c_count >= cfreelist.c_size) 
break; 
} 
tbuf->c_size = tbuf->c_count; 
} 


out: 
Lf (tp->t_statesOASLP && 
outqp->c_cc<=ttlowat [tp->t_cflag&CBAUD] ) { 
tp->t_state é&= ~OASLP; 
wakeup((caddr_t)outqp); 
} 
return (retval); 
} 
tttimes (tp) 


register struct tty *tp; 
{ 
tp->t_state &= ~TACT; 
if (tp->t_lflageICANON {| tp->t_cc[VTIME] == 0) 
return; 
if (tp->t_rawq.c_cc == 0 && tp->t_cc[VMIN]} 
return; 
if (tp->t_state&RTO} { 
tp->t_delct = 1; 
if (tp->t_state&IASLP) { 
tp->t_state &= ~IASLP; 
wakeup({ (caddr_t)&tp->t_rawq); 
} 


} else { 
tp->t_state |= RTO| TACT; 
timeout (tttimeo, (caddr_t)tp, 
(int) (tp->t_cc[VTIME] * (short) ({short)v.v_hz/16))); 
} 
} 
{* 
* I/O control interface 
af 


/* ARGSUSED */ 
ttioctl(tp, cmd, arg, mode) 
register struct tty *tp; 
{ 
ushort chg; 


switch(cmd) { 
Case LDOPEN: 
if (tp->t_rbuf.c_ptr == NULL) { 
/* allocate RX buffer */ 
while ((tp->t_rbuf.c_ ptr = getcf()->c_data) 
=~ ((struct cblock *)NULL)->c_data) { 
tp->t_rbuf.c ptr = NULL; 
cfreelist.c_flag = 1; 
(vold) sleep((caddr t)&cfreelist, TTOPRI); 
} 
tp->t_rbuf.c_count = cfreelist.c size; 
tp->t_rbuf.c_size = cfreelist.c_size; 
(*tp->t_proc) (tp, T_INPUT); 


break; 


case LDCLOSE: 


spltty(); 
(*tp->t_proc) (tp, T_RESUME); 
SPLO(}; 
ttywait (tp); 
ttyflush(tp, (FREAD|FWRITE)); 
if (tp->t_tbuf.c_ptr) { 
putcf (CMATCH{ (struct cbhlock *)tp->t_tbuf.c_ptr)); 
tp->t_tbuf.c_ ptr = NULL; 
tp->t_tbuf.c_ count = 9; 
tp->t_tbuf.c_size = 0; 
} 
if (tp->t_rbuf.c_ptr) { 
putcf (CMATCH( (struct cblock *)tp->t_rbuf.c_ptr)); 
tp->t_rbuf.c_ptr = NULL; 
tp->t_rbuf.c_count = 0; 
tp->t_rbuf.c size = 0; 
} 
tp->t_tmflag = 0; 
break; 


case LDCHG: 


default: 


} 


chg = tp->t_lflag*arg; 
if (! (chg&ICANON) ) 
break; 
spltty(}; 
if (tp->t_cang.c_cc) { 
if (tp->t_rawq.c_cc) { 
tp->t_cang.c_cce += tp->t_rawq.c_cc; 
tp->t_cang.c_cl->c_next = tp->t_rawq.c_cf; 
tp->t_cang.c_cl = tp->t_rawq.c_cl; 
} 
tp->t_rawq = tp->t_canq; 
tp->t_cang = ttnulgq; 
} 
tp->t_delct = tp->t_rawq.c_cc; 
SPLO{); 
break; 


break; 
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/* @l(#)tty.c 1.2 */ 


Case TCSETAF: 


i* ttywait(tp); 
* general TTY subroutines if (cmd == TCSETAP) 
*f ttyflush(tp, (FREAD|FWRITE)); 


#include "sys/param.h" 
#include "sys/types.h" 
#include “sys/systm.h" 
#include “sys/dir.h" 
#include "“sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
#include “sys/tty.h" 
#include "sys/ttold.h" 
#include “sys/proc.h" 
#include "sys/file.h" 
#include “sys/conf.h" 
finclude "sys/termio.h" 
#include "sys/sysinfo.h" 
f#include "sys/var.h" 


extern int sspeed; 
extern int tthiwat[]; 
extern int ttlowat[]; 
extern char ttcchar[]; 


case TCSETA: 


chp = &c0b; 
if (copyin({caddr_t)arg, (caddr_t)cbp, sizeof cb)) { 
up->u_error = EFAULT; 
break; 
} 
if (tp->t_line != cbp->c_line) { 
if (cbp->c_line < 9 || cbp->c_line >= linecnt) 
up->u_error = EINVAL; 
break; 
} 


(*linesw[tp->t_line].1 ioctl) (tp, LDCLOSE, 0, mode); 


} 
flag = tp->t_lflag; 
tp->t_iflag = cbp->c_iflag; 
tp->t_oflag = cbhp->c_oflag; 
tp->t_cflag = cbp->c_cflag; 
tp->t_lflag = cbp->c_lflag; 
beapy((caddr_t)cbp->c_cc, (caddr_t)tp->t_cc, NCC); 
if (tp->t_line != cbp->c_line) { 
tp->t_line = cbp->c_line; 


{* null clist header */ (*linesw[tp->t_line].1_ioct1) (tp, LDOPEN, 0, mode); 

struct clist ttnulq; } else if (tp->t_lflag [= flag) { 
{*linesw[tp->t_line].1 ioctl) {tp, LDCHG, flag, mode}; 

/* canon buffer */ } 
char canonb [CANBSI2]; return{1); 

fx case TCGETA: 

* Input mapping table-- if an entry is non-zero, when the cbp = &cb; 

* corresponding character is typed preceded by "\" the escape cbp->c_iflag = tp->t_iflag: 

* sequence is replaced by the table value. Mostly used for cbp->c_oflag = tp->t_oflag: 

* upper-case only terminals. cbp->c_cflag = tp->t_cflag; 

*{ cbp->c_lflag = tp->t_lflag: 


char maptab[] = { 
000,000, 000, 000,000, 000,000,006, 
600,000,000,000,000, 000,000,000, 
900,000,000, 000,000, 000,600, 000, 
600,000, 600,006, 000,000,600, 000, 
6060,/|*7,060,000,5900,000,000,' **, 
"{?,°3°,0600, 000,000, 000, 000,000, 
000,000,000, 000,600,006, 000,000, 
000,000,000, 000,000, 000,000,000, 
006,000,000, 000, 000,006,006, 000, 
000, 000,060,660, 000,000, 000,000, 
006, 060, 000, 000, 000, 000,000, 000, 
000,000,060, 000, 000, 000,’~" , 000, 
G00,°A’,'B’,’C’,’D!,"E’,"F’,'G!, 
HY FIT, fof, KE, Lt, MN’, fOr, 
PF TQl ER, fS! ITE, Ul VE ae, 
*x’,fY¥",12°, 006, 000,000,000, 000, 

ye 


/* 
* common ioctl tty code 
xf 
ttiocom(tp, cmd, arg, mode) 
register struct tty *tp; 
{ 
register struct user *up; 
register short flag; 
register struct sgttyb *tbp; 
register struct termio *cbp; 
struct termio cb; 
struct sgttyb tb; 


up = &u; 

switch(cmd) { 

case IOCTYPE: 
up->u_rvall = TIOC; 
break; 


case TCSETAW: 


cbp->c_line = tp->t_line; 

beopy((caddr_t)tp->t_cc, (caddr_t)cbp->c_ce, NCC); 

if {copyout ({caddr t)ebp, (caddr_t)arg, sizeof cb)) 
up->u_error = EFAULT; 

break; 


case TCSBRK: 


ttywait (tp); 
if (arg = 4) 

(*tp->t_proc) (tp, T_BREAK); 
break; 


case TCXONC: 


switch (arg) { 


case 0: 
(*tp->t_proc) (tp, T_SUSPEND}); 
break; 

case l: 
(*tp->t_proc) (tp, T_RESUME) ; 
break; 

case 2: 
(*tp->t_proc) (tp, T_BLOCK); 
break; 

case 3: 
(*tp->t_proc) (tp, T_UNBLOCK) ; 
break; 

default: 
up->u_error = EINVAL; 

} 

break; 


cease TCFLSH: 


switch (arg) { 

case 0: 

case i: 

case 2: 
ttyflush(tp, {arg - FOPEN)&(FREAD'IFWRITE)): 
break; 
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default: 

up->u_error = EINVAL; 
} 
break; 


/* conversion aide only */ 
case TIOCSETP: 


tbhp = 4tb; 
ttywait (tp); 
ttyflush(tp, (FREAD|FWRITE)); 
if (copyin((caddr_t)arg, (caddr_t)tbp, sizeof(tb))) { 
up~>u_error = EFAULT; 
break; 
} 
tp->t_iflag = 0; 
tp->t_oflag = 0; 
tp->t_lflag = 0; 
tp->t_cflag = (tbp->sg_ispeed&CBAUD) | CREAD; 
if ((tbp->sg_ispeed&CBAUD) ==B110) 
tp->t_cflag |= CSTOPB; 
tp->t_cc[VERASE] = tbp->sg_erase; 
tp->t_cc[VKILL] = tbp->sg_ kill; 
flag = tbp->sg_ flags; 
if (flagsO_HUPCL) 
tp->t_cflag |= HUPCL; 
if (flag&O_XTABS) 
tp->t_oflag |= TAB3; 
else if (flagsO_TBDELAY) 
tp->t_oflag |= TABI; 
if (flag&O_LCASE) { 
tp->t_iflag |= IUCLC: 
tp->t_oflag |= OLCUC; 
tp->t_lflag |= XCASE: 
} 
if (flag&O_ECHO) 
tp->t_lflag |= ECHO; 
if (!(flag&O_NOAL))} 
tp->t_lflag |= ECHOK; 
if (flagsO_CRMOD) { 
tp->t_iflag j= ICRNL; 
tp->t_oflag |= ONLCR; 
if (flag&O_CR1) 
tp->t_oflag |= CRI; 
if (flag&O_CR2) 
tp->t_oflag |= ONOCR|CR2; 
} else { 
tp->t_oflag |= ONLRET; 
if (flagsO_NL1) 


return {1); 


case TIOCGETP: 


tbp = é&tb; 
tbp->sg_ispeed = tp->t_cflagéCBAUD; 
tbp=>sg_ospeed = tbhp->sg_ispeed; 
tbp->sg_erase = tp->t_cc[VERASE] ; 
tbp->sg_kill = tp->t_cc[VKILL]; 
flag = 0; 
if (tp->t_cflag&HUPCL) 
flag |= O_HUPCL; 
LE (1 (tp->t_1flagsICANON} ) 
flag |= O_RAW; 
if (tp~->t_lflags&xCASE) 
flag |= O_LCASE; 
if (tp->t_lflag&ECHo) 
flag |= O_ECHO; 
if (!(tp->t_1lflagsECHOR) } 
flag |= O_NOAL; 
if (tp->t_cflag&PARODD) 
flag |= O ODDP; 
else if (tp->t_iflag&INPCK) 
flag |= O_EVENP; 
else 
flag |= O_ODDP|O_EVENP; 
if (tp->t_oflagéONLCR) { 
flag |= O_CRMOD; 
if (tp->t_oflagécCR1) 
flag |= O_CR1; 
if (tp->t_oflagécR2) 
flag i= O_CR2; 
} else { 
if (tp->t_oflagé&CR1) 
flag |= O_NL1; 
if (tp->t_oflag&CR2) 
flag |= O_NL2; 
} 
if ((tp->t_ocflagsTABDLY) ==TAB3) 
flag |= O_XTABS; 
else if (tp->t_oflag&TAB1) 
flag |= C_TBDELAY; 
if (tp->t_oflagéFFDLY) 
flag |= O_VITDELAY; 
if (tp->t_oflagéBSDLY) 
flag |= O_BSDELAY; 
tbp->sg_flags = flag; 
if (copyout({caddr_t)tbp, (caddr_t)arg, sizeof(tb))) 
up->u_error = EFAULT; 


tp->t_oflag |= CRI; break; 
if (flag&O_NL2) 
tp->t_oflag |= CR2; f* 
} * The following ioctls were added by UniSoft 
if (flag&O_RAW) { *f 
tp->t_cc[VTIME] = 1; 
tp->t_cc[VMIN] = 6; {* 
tp->t_iflag &= ~(ICRNL|IUCLC); * Return number of characters immediately available. 
tp->t_cflag |= CS8; x/ 
} else { case FIONREAD: { 


tp->t_cc[VEOF] = CEOF; 
tp->t_cc[VEOL] = 0; 
tp->t_cc[VEOL2] = 0; 
tp->t_iflag |= BRKINT|IGNPAR|ISTRIP|IXON| IXANY;: 
tp->t_oflag |= OPOST; 
tp->t_cflag |= CS7|PARENB; 
tp->t_lflag |= ICANON|ISIG; 
} 
tp->t_iflag {= INPCK; 
if (flagséO_ODDP) 
if (flag&OQ_EVENP) 
tp->t_iflag &= ~INPCK; 
else 
tp->t_cflag |= PARODD; 
if (flagsO_VTDELAY) _ 
tp->t_oflag |= FFDLY:; 
if (flagé&O_BSDELAY) 
tp->t_oflag |= BSDLY; 


off _t nread; 


SPL6(); 

while (tp->t_rawq.c_cc && tp->t_delct) 
canon (tp); 

SPLO(); 

nread = tp->t_canq.c¢_cc; 

if (!(tp->t_lflag &ICANON) ) 
nread += tp->t_rawq.c_cc; 

if (copyout((caddr_t)énread, (caddr_t)arg, sizeof (off_t))) 
up->u_error = EFAULT; 

break; 

} 


Af ({cmd&IOCTYPE) == LDIOC) 
(*linesw[tp->t_line].1_ ioctl) (tp, cmd, arg, mode); 
else 
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up~>u_error = EINVAL; 


break; spltty(): 
} if (tp->t_rawq.c_cc == 6) 
return(0); tp->t_delct = 0; 
} while {tp->t_delct = 0) { 
if {!(tp->t_statesCARR ON} || (u.u_fmodeéFNDELAY)} { 
ttinit (tp) SPLO{(): 


register struct tty *tp; return; 


{ } 
tp->t_line = 0; if (!(tp->t_1lflag&ICANON) && tp->t_cc[VMIN]==0) { 
tp->t_iflag = 0; 4£ (tp->t_cc [VTIME]==0) 


tp->t_oflag = 4; break: 
tp->t_cflag = sspeed|CS$8|CREAD|HUPCL; tp->t_state &= ~RTO: 
tp->t_lflag = 0; if (!(tp->t_stateaTACT) ) 
beopy((caddr_t)ttecchar, (caddr_t)tp->t_cec, NCC); tttimeo(tp); 
} } 
tp->t_state |= IASLP; 
ttywait (tp) (void) sleep({caddr_t)&tp->t_rawg, TTIPRI); 
register struct tty *tp; } 
{ "if (i (tp->t_1flagsICANON)) { 
spltty(); if (tp->t_cang.c_cc == 9) { 
while (tp->t_outq.c_cce || (tp->t_state& (BUSY|TIMEOUT))) { tp->t_cang = tp->t_rawq; 
tp->t_state |= TTIOW;: tp->t_rawq = ttnulq; 
(void) sleep((caddr_t)&tp->t_oflag, TTOPRI); } else 
} while (tp->t_rawq.c_cc} 
SPLO{); (void) putci(getc(é&tp->t_rawq), &tp->t_cang): 
delay (v.v_hz>>4); tp->t_delct = 0; 
} SPLO({); 
return; 
/* } 
* flush TTY queues SPLO(); 
xf bp = canonb; 
ttyflush(tp, cmd) esc = 6; 
register struct tty *tp; while ((c=getc(&tp->t_rawq)) >= 0) f{ 
{ if (fesc) { 
register struct cblock *cp; if (c = "\\) { 
register s; esctt; 
} else if (c == tp->t_cc[VERASE]) { 
if (cmd&FWRITE) { if {bp > canonb) 
while ((ep = getcb(atp~>t_outgq)) != NULL) bp--; 
putcf(cp); continue; 
(*tp->t_proc) (tp, T_WFLUSH); } else if (c == tp->t_cc[VKILL]) { 
if (tp->t_statesOASLP) { bp = canonb; 
tp->t_state &= ~OASLP; continue; 
wakeup ((caddr_t)4atp->t_outgq); } else if (c == tp->t_cc[VEOF]) { 
} break; 
if (tp->t_state&TTIOW) { } 
tp->t_state &= ~TTIOW; } else { 
wakeup ((caddr_t) &tp~>t_oflag); esc = 0; 
} if (c = tp->t_cc[VERASE] || 
} c == tp->t_cc[VKILL] || 
if (cmd&FREAD) { c = tp->t_cc(VEOF]) 
while ((cp = getcb(&tp->t_cang)) != NULL) bp--: 


putcf icp); else if (tp->t_lflagsXCASE) { 
s = spltty(); 1f ({c < 0200) && maptab[c]) { 


while ((cp = getcb(&tp->t_rawq)) != NULL) bp-~; 
putcf (cp); c = maptab[c]; 


tp~>t_delct = 0; } else if (c == ‘\\‘) 
splx(s); continue; 
(*tp->t_proc) (tp, T_RFLUSH); } else if (c == '\\‘) 
at (tp->t_statesIASLP) { escit; 
tp->t_state &é= ~IASLP; } 
wakeup ((caddr_t) &tp->t_rawq); *bpt+ = c; 
} i pce a= ‘\n’ [| c == tp->t_cc[VEOL] || ¢ == tp->t_ec[VEOL2]) 
} break; 
} if (bp >= &canonb[CANBSI2Z]) 
bp--; 
{* } 
* Transfer raw input list te canonical list, tp->t_delet--; 
* doing erase-kill processing and handling escapes. c = bp - canonb; 
*/ sysinfo.canch += c; 
canon (tp) bp = canonb; 
register struct tty *tp; /* faster copy 2? */ 
{ while (c--) 
register char *bp; (void) putc(*bpt+, a&tp->t_cang); 


register c, esc: return; 
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} 


fr 
* Restart typewriter output following a delay timeout. 
* The name of the routine is passed to the timeout 
* subroutine and it is called during a clock interrupt. 
af 

ttrstrt (tp) 

register struct tty *tp; 

{ 


(*tp->t_proc) (tp, T_TIME); 


~ 
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/* udp usrreq.c 4.45 83/02/16 */ 


#include “sys/param.h" 
finclude “sys/config.h" 
#include “sys/errno.h" 
#include “sys/types.h" 
#include “sys/sysmacros.h" 
finclude "sys/systm.h" 
#include “sys/sysmacros.h" 
#include "sys/dir.h" 
#include "“sys/signal.h" 
#include “sys/user.h" 
#ineclude "net/misc.h™ 
#include "net /mbuf.h" 
#include “net/protosw.h® 
#include “net/socket.n" 
#include "net/socketvar.h" 
#include “"net/in.h" 
#include “net/if.h" 
#include “net/route.h" 
#include “net/in_pcb.h" 
#include "net/in_systm.h" 
#include "net/ip.h" 
#include “net/ip_var.h" 
#include “"net/ip icmp.h" 
#include "net/udp.h" 
#include “net/udp_var.h" 
#include “errno.h" 


f* 
* UDP protocol implementation. 
* Per RFC 768, August, 1980. 


xf 
udp_init () 
{ 
udb.inp next = udb.inp prev = &udb; 
} 
int udpcksum; 


struct sockaddr_in udp in = { AF_INET }; 


udp input (md) 
struct mbuf *m0; 

{ 
register struct udpiphdr *ui; 
register struct inpcb *inp; 
register struct mbuf *m; 
int len; 


{* 
* Get IP and UDP header together in first mbuf. 
*f 
m = mQ; 
if ((m->m_off > MMAXOFF || m->m_len < sizeof (struct udpiphdr)) && 
(m = m_pullup(m, sizeof (struct udpiphdr))) == 0) { 
udpstat.udps_hdrops+t+; 
return; 
} 
ui = mtod(m, struct udpiphdr *); 
if (((struct ip *)ui)->ip hl > (sizeof (struct ip) >> 2)) 
ip_stripoptions((struct ip *)ui, (struct mbuf *)0); 


/* 
* Make mbuf data length reflect UDP length. 
* If not enough data to reflect UDP length, drop. 
xf 
len = ntohs((u_short)ul->ui_ulen); 
if (((struct ip *)ul)->ip len != len) { 
if (len > ((struct ip *)ul)->ip len) { 
udpstat.udps badlen+t+; 
goto bad; 
} 
m_adj(m, ((struct ip *)ui)->ip_len - len); 
/* (struct ip *)ui->ip_len = len; */ 


} 


{* 
* Checksum extended UDP header and data. 
xf 
if {udpceksum && ui->ui_sum) { 
register u_short csum = ui->ui_sum; 
if (csum == Oxffff) 
csum = 0G; 
ui->ui_next = ui->ui_prev = 
ni->ui_xl = 0; 
ui->ui_len = htons({(u_short)len); 
ui->ui_sum = 0; 
if (csum != in cksum(m, len + sizeof (struct ip))) { 
udpstat.udps_badsum++; 
m_freem(m) ; 
return; 
j 
} 
{* 
* Locate peb for datagram. 
x} 


inp = in_peblookup (éudb, 


ui->ui_sre, ui->ui_sport, ui->ui_dst, ui->ui_dport, 


INPLOOKUP_WILDCARD) ; 
if (inp = 6) { 


/* don’t send ICMP response for broadcast packet */ 
if (in_lnaof(ui->ni_dst) == INADDR_ANY) 


goto bad; 


icmp_error(({struct ip *)ui, ICMP_UNREACH, ICMP_UNREACH_ PORT); 


return; 


} 
i* 


* Construct sockaddr format source address. 
* Stuff source address and datagram in user buffer. 


*f 
udp_in.sin_port = ui->ui_sport; 
udp_in.sin_addr = ui->ui_sre; 
m->m_len -= sizeof (struct udpiphdr); 
m->m_off += sizeof (struct udpiphdr); 


if (sbappendaddr (sinp->inp_socket->so_rev, (struct sockaddr 


goto bad; 
sorwakeup{inp->inp_ socket) ; 
return; 
bad: 
m_freem(m); 


} 


udp abort (inp) 
struct inpcb *inp; 
{ 
struct socket *so = inp->inp_ socket; 


in_pebdisconnect (inp) ; 
soisdisconnected (so) ; 
} 


udp ctlinput(cmd, arg) 
int cmd; 
caddr_t arg; 


struct in_addr *sin; 
extern u_char inetctlerrmap[]; 


if (cmd < 0 |{ cmd > PRC_NCMDS) 
return; 
switch (cmd) { 


case PRC_ROUTEDEAD: 
break; 


case PRC_QUENCH: 
break; 


*)éudp in, m) == 0) 


( 
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/* these are handled by ip */ 
case PRC_IFDOWN: 
Case PRC_HOSTDEAD: 
case PRC_HOSTUNREACH: 
break; 


default: 
sin = &({struct icmp *)arg)->icmp_ip.ip dst; 
in_pebnotify(audb, sin, (int)inetctlerrmap[cmd], udp_abort); 


udp output (inp, m0) 


struct inpcb *inp; 
struct mbuf *m0; 


register struct mbuf *m; 
register struct udpiphdr *ui; 
register struct socket *so; 
register int len = 0; 


fe 
* Calculate data length and get a mbuf 
* for UDP and IP headers. 
*f 
for (m= m0; m; m = m->m_next) 
len += m->m_len; 
/#* we don’t have MT HEADER’s (yet?) 
m = m_get(M DONTWAIT, MT HEADER) ; 
af 
m = m_get(M DONTWAIT); 
if (m = 0) { 
m_freem(m0); 
return (ENOBUFS) ; 
} 


fe 
* Fill in mbuf with extended UDP header 
* and addresses and length put into network format. 
wf 

m->m_off = MMAXOFF - sizeof (struct udpiphdr); 

m->m_len = sizeof (struct udpiphdr); 

m->m_next = m0; 

ui = mtod(m, struct udpiphdr *); 

ui->ui_next = ui->ui_prev = 0; 

ui->ni_xl = 0; 

ui->ui_pr = IPPROTO_UDP; 

ui->ui_len = len + sizeof (struct udphdr); 

ui->ui_sre = inp->inp laddr; 

ui->uni_dst = inp->inp faddr; 

ui->ui_sport = inp->inp lport; 

ui->ui_dport = inp->inp_ fport; 

ui->ui_ulen = htons((u_short)ui->ui_len); 

ui->ui_len = ui->ui_ulen; 


{* 
* Stuff checksum and output datagram. 
¥/ 
ui->ui_sum = 0; 
if (udpeksum) { 
ui->ui_sum = in_cksum(m, sizeof (struct udpiphdr) + len); 
if (ui->ui_sum = 0) 
ui->ui_sum = Oxffff; 
} 
({struct ip *)ui)->ip_len = sizeof (struct udpiphdr) + len; 
((struct ip *)ui)->ip ttl = MAXTTL; 
so = inp->inp_ socket; 
return (ip output(m, (struct mbuf *)0, 
(so->so_ options & SQ _DONTROUTE) ? é&routetoif : (struct route *)0, 
so->so state & SS PRIV)); 


int req; 
struct mbuf *m, *nam; 


struct inpcb *inp = sotoinpceb(so); 
int error = 0; 


if (inp = NULL && req != PRU_ATTACH) { 
error = EINVAL; 
goto release; 

} 

switch (req) { 


case PRU_ATTACH: 
if (inp {= NULL) { 
error = EINVAL; 
break; 
} 
/* billn. for now, attach the old 4.1a way 
error = in_pcballoc{so, &udb); 
if (error) 
break; 
error = soreserve({so, 2048, 2048); 
af 
error = in_pebattach(so, sudb, 2048, 2048, 
{struct sockaddr_in *)nam); 
if (error) 
break; 
break; 


case PRU_DETACH: 
if (inp = NULL) { 
error = ENOTCONN; 
break; 
} 
in_pcbdetach (inp) ; 
break; 


/* “pind is not in the system (yet?) 
case PRU_BIND: 
error = in_pcbbind(inp, nam); 
break; 


/* neither is listen 

case PRU_LISTEN: 
error = EOPNOTSUPP; 
break; 


xf 
case PRU_CONNECT: 
if (inp->inp_faddr.s addr != INADDR_ANY) { 
error = EISCONN; 
break; 
} 
error = in_pebconnect(inp, (struct sockaddr_in *)nam); 
if (error = 0) 
soisconnected (so); 
break; 


case PRU_ACCEPT: 
error = EOPNOTSUPP; 
break; 


case PRU_DISCONNECT: 

if (inp->inp faddr.s_addr == INADDR_ANY) { 
error = ENOTCONN; 
break; 

} 

in_pebdisconnect (inp); 

soisdisconnected (so); 

break; 


case PRU_SHUTDOWN: 
socant sendmore (so); 


/*BRGSUSED* / break; 
udp usrreq(so, req, m, nam) 
struct socket *so; case PRU_SEND: { 
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release: 


struct in_addr laddr; 


if (nam) { 
laddr = inp->inp_laddr; 
if (inp->inp faddr.s addr != INADDR_ANY) { 
error = EISCONN: 
break; 
} 
error = in_pebconnect (inp, {struct sockaddr_in *)nam); 
if (error) 
break; 
} else { 
if (inp->inp faddr.s_addr == INADDR_ANY) { 
error = ENOTCONN; 
break; 
} 
} 
error = udp output(inp, m);: 
m = NULL; 
1f (nam) { 
in_pebdisconnect (inp); 
inp->inp_laddr = laddr; 
} 
} 
break; 


case PRU_ABORT: 


in_pcbdetach (inp) ; 
sofree(so); 
soisdisconnected (soj; 
break; 


case PRU_CONTROL: 


error = EOPNOTSUPP;: 
break; 


case PRU_SOCKADDR: 


in_setsockaddr((struct sockaddr_in *)nam, (struct inpcb *)inp); 
break; 


default: 


} 


panic("udp_usrreq"); 


Af (m f= NULL) 


return 


m_freem (m} ; 
{error); 
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/* @(#)utssys.c 1.3 */ 
#include “sys/param.h" 
f#include “sys/types.h" 
#include “sys/sysmacros.h" 
#include “sys/buf.h" 
#include “sys/filsys.h" 
#include “sys/mount.h" 
#include "sys/dir.h"™ 
#include “sys/signal.h" 
#include “sys/user.h" 
#include “sys/errno.h" 
finclude “sys/var.h" 
tinclude “sys/utsname.h" 


utssys() 

{ 
register i; 
register struct a { 


char *cbuf; 
int mv; 
int type; 
} *uap; 
struct { 
daddr_t f£_tfree; 
ino_t f_tinode; 
char f_fname[6]; 
char f fpack[6é]; 
} ust; 


register struct user *up; 


up = &u; 
uap = (struct a *)up->u_ap; 
switch (uap->type) { 


case 0: /* uname */ 
if (copyout ((caddr_t)éutsname, vap->cbuf, sizeof(struct utsname))) 
up->u_error = EFAULT; 
return; 


/* case 1 was umask */ 


case 2: /* ustat */ 
for(i=0; i<v.v_mount; i++) { 
register struct mount *mp; 


mp = émount [{short)il; 
if (mp->m_flags=—=MINUSE && brdev(mp->m_dev)==brdev(uap->mv)) { 
register struct filsys *fp; 


fp = mp->m_bufp->b_un.b filsys; 
ust.f tfree = FsLTOP(mp->m_dev, fp->s tfree); 
ust.f£ tinode = fp->s_tinode; 
beopy(fp->s_fname, ust.f fname, sizeof(ust.f fname)); 
beopy(fp->s_fpack, ust.f fpack, sizeof(ust.f fpack)); 
if (copyout((caddr_t)é&ust, uap->cbuf, 18)) 
up->u_error = EFAULT; 
return; 
} 
} 
up->u_error = EINVAL; 
return; 


case 33: /* uvar */ 
if (copyout((caddr_t)év, uap->cbuf, sizeof(struct var))) 
up->u_error = EFAULT; 
return; 


default: 
Up->u_error = EFAULT; 
} 
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~ 
* 


Copyright 1982 UniSeft Corporation 
AT&T, Western Electric and UniSoft Corporation. 


VT100 emulator 
Called with each character destined for the console. 


+ + + + + & BH FS 


Calls into bitmap.c actually do the 1/0 


* 
~ 


/* SENSESCRN resets the contrast on screen output (via the console device 


* driver} as if a key was hit. 
*/ 


#include “sys/types.h" 
#include “sys/12.h® 


#define FAST 
#define SENSESCRN 


f#define MAXVT_N 255 /* maximum value of any numeric parameter */ 
tdefine MAXPARAMS 10 /* maximum number of numeric parameters */ 
short vt_n[MAXPARAMS] ; ¢* numeric parameters of \E[ commands */ 


char vt_mparam; 

char vt_tabset [88] = { 0 }: 

extern char bmbck, bmcolor, bmnormal; 
extern char *bmscrn; 

extern char kb altkp; 

short vt_maxrow = 38; 

short vt_maxcol = 88; 


short vt_row, vt_col; /* cursor location (0-vt_maxrow, O-vt_maxcol) */ 
short vtrow_ofs = 1; 

short vtcol_ofs = 1; /* row and column offsets */ 

short vt_winscrl = 1; /* lines to scroll each time */ 


/* This routine interprets the characters destined for the console and 
* performs like a VT100 . It is implemented in terms of primitives 


* defined in bitmap.c 
*/ 


#define CBKSP 
#define CCR 
#define CLF 
#define CHTAB 
#define CESC 
#define CBELL 
#define CGARB 
#define CCHAR 


@a-v go tf WHR 


char vt_keytype[] = { 


CGARB, CGARB, CGARB, CGARB, CGARB, CGARB, CGARB, 
CBKSP, CHTAB, CLF, CLF, CLF, CCR, CGARB, 
CGARB, CGARB, CGARB, CGARB, CGARB, CGARB, CGARB, 
CGARB, CGARB, CGARB, CESC, CGARB, CGARB, CGARB, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 
CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, CCHAR, 

}e 

vt_putc (c) 


register char c> 


{ 


Use of this material is subject to your disclosure agreement with 


Processes control sequences and keeps track of terminal state. 


CBELL, 
CGARB, 
CGARB, 
CGARB, 


CCHAR, 
CCHAR, 
CCHAR, 
CCHAR, 


CCHAR, 
CCHAR, 
CCHAR, 
CCHAR, 


CCHAR, 
CCHAR, 
CCHAR, 
CGARB, 


extern int (*te_putc) {(); 
int vt_esc()}; 
int x; 


extern time t lbolt; 


12_dtrap = lbolt + 12_dtime; 
if (12_dimmed) 12undim(); 


if {c >=" *} { 
bmputc(vt_rowt+tvtrow_ofs, vt_coltvtcol_ofs,c); 
vt_advance(); 
bminvert (vt_rowtvtrow_ofs, vt_colivtcol_ofs); 
return; 
} 
bminvert (vt_rowtvtrow_ofs, vt_coltvtcol_ofs); 
switch (vt_keytype[c]) { 
case CBKSP: 
if (vt_col > 0) 


vt_col--; 
break; 
case CCR: 
vt_col = 0; 
break; 
case CLF: 


if (++vt_row >= vt_maxrow) { 
b1t (omsernt90*9, bmscrn+90*9*2,9*90*38); 
vt_row -= vt_winscrl; 

} 
break; 

case CHTAB: 
for (x = vt_col+l; x < vt_maxcol-1 ; x++ ) 

if ( vt_tabset[x] == 1 ) 
break; 

vt_col = x; 
break; 

case CESC: 
te_putc = vt_esc; 
break; 

case CBELL: 
beep(): 
break; 

case CGARB: 
break; 

} 
bminvert (vt_rowtvtrow_ofs,vt_coltvtcol ofs); 


} 
f* 
* Process the escape sequences to the terminal 
xf 
vt_esc(c) /* after ESC key hit */ 


register char c; 

{ 
extern int (*te_putc) (); 
int vt_brek(}, vt_putc(); 


switch (c) { 

case ‘[': 
te_putc = vt_brck; /* check E[ sequence */ 
return; 

case ’>!: /* disable alternate keypad */ 
kb altkp = 0; 
break; 

case ‘=!: /* enable alternate keypad */ 
kb altkp = 1; 
break; 

case ’M’: /* reverse scroll */ 


bminvert (vt_rowt+tvtrow_ofs,vt_colt+vtcol_ofs); 
bmrscrl{); 
bminvert (vt_row+tvtrow_ofs, vt_col+vtcol_ofs); 


break; 
case ’H!: 
vt_tabset [vt_coi]J=1; 
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} 


break; 
} 
te_putc = vt_putc; 
return; 


vt_brcek (c) /* \E[ sequence checked here */ 
register char c; 


{ 


} 


extern int (*te_putc) (); 
int vt_param(), vt_attrb(); 


vt_mparam = 0; 

vt_n[0] = vt_n[1] = 0; 

if (c == 43°) { /* missing 1st number - look for 2nd */ 
te_putc = vt_param; 
vt_mparamt+; 
return; 

} 

if (c >= '0! £& c <= *9F ) { 
vt_n[0] =c - '0°; 
te_putc = vt_param; 
return; 

} 

LE (c == 42") { 
te_pute = vt_attrb; 
return; 

} 

vt_eomd(c); 


vt_paramic) 
register char c; 


{ 


} 


register tmp; 
int vt_putc(); 


if{ c >= "Of && c <= °9% ) f{ 
tmp = (vt_n[vt_mparam] * 10) + {c - '0’); 
vt_n[vt_mparam] = (tmp > MAXVT_N) ? MAXVT_N : tmp; 
return; 
} 
if (c= "3" ) { 
if (++vt_mparam >= MAXPARAMS) { /* too many parameters */ 
te_pute = vt_putc; 
return; 
} 
vt_n{vt_mparam] = 0; 
return; 
} 
vt_omd(c); 


vt_emd (c) /* now have last char of esc sequence */ 
register char c; 


{ 


extern int (*te_putc) (); 
register vt_nl = vt_n[0]; 
register vt_n2 = vt_n[1]; 
register int x, y; 

int vt_putc(); 


1f (c == 'f') c= fH; 

Lf ((c >= 'AT) && (c <= '2°)) { 
bminvert (vt_row+tvtrow_ofs, vt_col+vtcol_ofs); 
switch (c) { 


case ‘Af: /* move cursor up */ 
if (vt_ni = 0) 
vt_nl ~ 1; 
vt_row = (vt_nl < vt_row) 2? (vt_row - vt_nl) : 4; 
break; - = 
case 'B: /* move cursor down */ 
if (vt_ni == 0) 
vt_nl = 1; 


y = vt_row + vt_ni; 
vt_row = (y < vt_maxrow) 2? y : vt_maxrow-1; 


break; 
case 'Cf: /* move cursor right */ 
if (vt_nl = 6) 
vt_nl = 1; 
y = vt_col + vt_nl; 
vt_col = (y < vt_maxcol) ? y : vt_maxcol-1; 


break; 
case ‘D': f#* move cursor left */ 
if (vt_nl = 0) 
vt_ni = 1; 
vt_col = (vt_nl < vt_col) ? (vt_col - vt_nl) : 0; 
break; 
case ‘'H': /* move cursor home */ 
if (vt_nl = 0) 
vt_row = 0; 


else if ((vt_row = vt_nl-1) >= vt_maxrow) 
vt_row = vt_maxrow - 1; 
if (vt_n2 = 0) 
vt_col = 0; 
else if ((vt_col = vt_n2-1) >= vt_maxcol) 
vt_col = vt_maxcol - 1; 
break; 
case fJ': /* clear screen */ 
if {(vt_nl = 0) 
if ((vt_row == 0) && (vt_col = 0)) 
vt_nl = 2; 
switch (vt_nl) { 
case 0: /* clear from cursor to end */ 
for (y = vt_col ; y < vt_maxcol ; yt+t ) 
bmputc(vt_rowtvtrow_ofs,y+vtcol_ofs,' '); 
for (x = vt_rowtl; x < vt_maxrow ; xt+t+ ) 
bmblank (x+vtrow_ofs); 
break; 
case 1: /* clear from beginning to cursor */ 
for (x = 0; x < vt_row ; xt++ ) 
bmblank (xt+vtrow_ofs); 
for (y = G; y <= vt_col ; yt+ ) 
bmputc(vt_rowtvtrow_ofs,ytvtcol_ofs,’ '); 


break; 
case 2: /* clear entire screen */ 
bmclear{); 
} 
break; 
case ‘Kf: /* clear line */ 


switch (vt_nl) { 
case 0: /* clear from cursor to end */ 
for (y = vt_col ; y < vt_maxcol ; yt++ ) 
bmputc(vt_rowtvtrow_ofs,y+vtcol_ofs,’ *); 
break; 
case 1: /* clear from beginning to cursor */ 
for {y = 0; y <= vt_col ; ytt ) 
bmputc(vt_rowtvtrow ofs,yt+vtcol_ ofs,’ '); 
break; 
case 2: /* clear entire line */ 
bmblank(vt_rowtvtrow_ofs); 
} 


break; 
case "Lf: /* insert line(s) */ 
if (vt_ni = 6) 


vt_nl = 1; 

if (vt_nl > vt_maxrow - vt_row) 
vt_nl = vt_maxrow - vt_row; 

for (x=vt_maxrow-1, y=vt_maxrow-vt_nl-1; y >= vt_row; x--, y-~) 
bmepl(xtvtrow_ofs, ytvtrow_ofs); 

for { ; x >= vt_row ; x-- ) 
bmblank (x+vtrow_ofs); 

break; 

case 'M’: /* delete line(s) */ 

if (vt_ni = 0) 
vt_nl = 1; 

if (vt_nl > vt_maxrow - vt_row) 
vt_nl = vt_maxrow ~ vt_row; 

for (x=vt_row, y=vt_rowtvt_nl; y < vt_maxrow; x++, y+t) 
bmcpl (xt+tvtrow_ofs, ytvtrow_ofs): 

for ( ; x < vt_maxrow ; x++ ) 
bmblank (x+vtrow_ofs); 
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break; 
case 'P!: /* delete character(s) */ 
if (vt_nl == 0) 
vt_nl = 1; 
if (vt_nl > vt_maxcol - vt_col) 
vi_nl = vt_maxcol - vt_col; 
for (x=vt_col, y=vt_coltvt_nl; y < vt_maxcol; xt++, ytt) 
bmmvec(vt_rowtvtrow_ofs, xtvtcol ofs, 
vt_rowtvtrow_ofs, ytvtcol_ofs); 
for ( ; x < vt_maxcol ; xt++ ) 
bmputc (vt_rowtvtrow_ ofs,xtvtcol_ofs,’ '); 
break: 
} 
bminvert (vt_rowtvtrow_ofs, vt_coltvtcol_ofs); 


} else { 
switch {c) { 
case 'g’: 
if (vt_nl = 0) 
vt_tabset[vt_col] = @; 
else if (vt_nl = 3) 
for (x = 0 ; x < vt_maxcol ; xt+ ) 
vt_tabset[x] = 0; 
break; 
case ‘mi: /* set normal display or reverse video */ 


for (x = 0; x <= vt_mparam; xt+) 
switch (vt_n[x]) { 
case 6: /* turn underline off, set normal background */ 
if (pmbck != bmnormal) { 
bmswitch(); /* invert font table */ 
bmbck = bmnormal; 
} 
bmcolor = bmbck; /* underline off */ 
break; 
case 1: case 7: /* set reverse image */ 
if (bmbck — bmnormal) { 
bmswitch(); /* invert font table */ 
bmbck = bmnormal ? 0 : ~-1; 
} 
break; 
case 4: /* set underline */ 
bmcolor = bmbck 2? 0 : <1; 


break; 
} 
} 
te_putc = vt_putc; 
} 


vt_attrb{c) /* \EL? */ 
char c; 
{ 

int vt_atrb()}, vt_putc(); 


if(c >= /0" && c <= '9F) 
te_putc = vt_atrb; 
else 
te_pute = vt_putc; 
} 


vt_atrb() 
{ 
int vt_putc(); 


te_putc = vt_pute; 
} 


vt_advance () 
{ 


if (++vt_col >= vt_maxcol) /{ ‘* wraps around */ 
vt_col = 0; 
if (++vt_row >= vt_maxrow) { /* on last line */ 


blt (bmscrn+90*9, bmscrn+90*9*2, 9*90*38); 
vt_row -= vt_winscrl; 
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Bitmap Display Driver 


The screen is 720 by 364 raster units. A comfortable pixel size is 

9 by 10 giving 80 columns (9 wide) and 36 lines {10 deep). The 

extra 4 raster rows are unused. Unfortunately this arrangement is 

very expensive in processor time since pixels lie across byte boundaries. 


For the time being the pixel size used will be 8 by 9 providing a 
screen area of 90 columns, and 40 lines. 


This is the low level display driver intended to simplify the task 
of writing higher level screen emulators by simulating just the common 
aspects of all crts in the following functions: 


bminit () clears entire display 
bminvert (row, col) invert character at row, column 
bmputc (r, c, char) put the character at row, column 


bmwin (cmd, t, b, 1, r) modifies window (top,bot, left, right); 
cmd == 1 means scroll up a line 
cmd == 6 means clear that area 


xf 
#define FAST 
#define NODEBUG 
#include <sys/mmu.h> 
#include <sys/types.h> 
#include <sys/local.h> 
#include <sys/bmfont.h> 


char *bmscrn; /* pointer to screen -- initialized in bminit */ 

char bmcolor; /* underline color; same as bmbck for no underlining */ 
char bmbck; /* current background color; 6 for white, -1 for black */ 
char bmnormal; #* normal background color; 0 for white, -1 for black */ 
char bmfirst = 1; /* is this the first boot? (not true for a restart) */ 
bminit {) /* one time screen initialization (called from mch.s) */ 


{ 


i 


register short i; 
register long *p; 
extern long bblank[]; 


/* amount of screen in longs */ 


*MEMEND -= SCRNSIZE; /* lop off mem for screen */ 
bmscrn = *MEMEND; /* logical screen address */ 
VIDADDR = ((int) (omscrn+*MEMBASE)>>15); /* init screen addr latch */ 
i = ((SCRNSIZE - (MAXCOL * MAXROW * V_RESO)) >> 2) - 1; 

p = (long *) (bmscrn + (MAXCOL * MAXROW * V_RESO)); 


do { /* so retrace lines won’t show */ 
*pott = -1; 
} while (--i != -1); 
bmcolor = 0; /* bmcolor switches in bminit if bmbck is -1 */ 
bmbck = -1; 
bmnormal = -1; 
bmclear():; 
if (bmfirst) { 
bmfirst = 0; 
bmswitch{); 
bmclear(); 
} else { 
bmcolor = -1; 
for (i=0; i<16; i++) 
bblank[i] = -1; 
bmclear(); 


bmswitch () 


{ 


bmcolor = (bmcolor ? 0: -1 ); 
bmifont({); 


bmifont () /* invert the font table (set or reset rev. video) */ 
{ 
register short i: 
register char *f, g; 
extern long pbpliank[j; 


/* amount of screen in longs */ 


i = sizeof(bmfont) - 1; 


£ = bmfont; 

do { 
g = ~*f; 
*fit = g; 


} 
while (--i != -1); 
for (i=0; i<16; i++) 
bblank[i] = ( bblank{i] 2? 0 : -1); 
} 


bmsinv () /* invert the entire screen */ 
{ 
register short i; 
register char *p, q; 


/* amount of screen in chars */ 


i = MAXCOL * MAXROW * V_RESO; 


p = bmscrn; 

do { 
q = ~*p: 
*ptt = qi 


} while (--i != 0); 
} 


#ifndef FAST 
/* Modify a section of the display 
* Cmd is 0 to clear the area, positive to scroll up that many lines 
* or negative to scroll down that many. 
xf 
bmwin (cmd, tr, br, lc, re) 
short cmd, br, lc, reo; 
register short tr; 


register short wrap, j, i; 
short cols, rows; 

register char *pc, *ec; 
register char color = bmcolor; 


pe = bmscrn; 


#ifndef NODEBUG 
if (tr<O| |tr>=MAXROW| | br>=MAXCOL| |br<tr 
| |1le<0| | 1c>=MAXCOL| | rc>=MAXCOL| |rce<=lc) { 
printf ("bmwin (%s, %d,%d,%d,%d) is illegal\n", 
emd?"scrolli":"clear™", tr, br, lc, rc); 
return; 


#endif 


/* Calculate number of logical lines to operate on */ 
rows = br - tr + 1; 


/* Calculate number of columns (bytes) accross screen */ 
cols = re - le + i; 


/* Wrap is an offset to be added to scan line pointers at the end of 
* each line to bring them around to the start of the next line. 
* It is the number of columns not being scrolled (usually zero) 
*/ 
wrap = BPL - cols; /* wrap around offset */ 
/* Pc points at the upper area of the screen (ie, that which will 
* receive the scroll data). 
x] 
pe += tr * (short) (BPL * V_RESO) + lc; 


/* I is the number of scan lines to operate on. ie. the number of 
* lines in the window minus the number of lines. toe seroli. 
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xf 
i = (short) (rows - cmd) * (short) (V_RESO) - 1; /* scan lines */ 


/* Here we do the scrolling if it is indicated */ 
if (cmd) { /* scroll command lines */ 


/* Ee is is set to point at the first line to scroll up */ 
ec = pe + cmd * ({short) (BPL) * (short) (V_RESO)); 


do { /* scroll scan line at a time */ 
4 = cols - 1; /* column counter */ 
do *pett+t = *ect+; /* optimizes to dbra loop */ 
while (--j {= -1): 
pe += wrap; /* skip to next scan line */ 
ec += wrap; 

} while (--i != -1); 


i = (short) (V_RESO) * cmd - 1; /* reset for clear */ 


do { /* clear */ 
j = cols - 1; 
do *pet+t+ = color; 
while (--j !=-1); 
pe t= wrap; 
} while (--i I= -1); 
return; 
} 
#endif 
bminvert (r, c) f/* reverse video char under cursor */ 
register short r, ¢c; 
{ 
register char *p = bmscrn; 
register short i; 


p t= (r * (BPL * V_RESO)) + c; 


i = V_RESO; 
do { 
*p = ~*D; 
p t= BPL: /* 1 scan line */ 


} while (--i != 0); 
} 


bmmve (dr, dc, sr, sc) 
register short dr, dc; 
register short sr, sc; 
{ 


/* copy char at (sr,sc) to (dr,dc) */ 


register char *dest, *src; 
register short i; 


dest = bmscrn + (dr * (BPL * V_RESO)) + dc; 
src = bmscrn + (sr * (BPL * V_RESO)) + sc; 


2 


i = V_RESO; 

do { 
*dest = *sre; 
dest += BPL; /* 1 scan line */ 
src += BPL; #* 1 scan line */ 


} while (--i != 0); 
} 


#ifndef FAST 
bmcpl(dl, sl) /* copy line sl to dl */ 
register di, sl: 
{ 
register char *dest, *src; 
register short i; 


dest = bmscrn + (dl * (BPL * V_RESO)); 
src = bmscrn + (sl * (BPL * V_RESO) ); 
i = BPL * V_RESO; 


do { 
*dest = *sre; 
destt++; /* 1 sean line */ 
srcett+; /* 1 sean line */ 


} while {(--i != 9); 


#else FAST 
bmepl (dl, sl) /* copy line sl to dl */ 
register dl, sl; 
{ 
register char *dest, *sre; 


dest = bmscrn + (dl * (BPL * V_RESO)); /* register a5 */ 
src = bmscrn + (sl * (BPL * V_RESO)); /* register a4 */ 


/* Use the 13 registers a6, a3-a0 and d7?-d0 to copy 52 bytes at a time. */ 


asn(" moveml #OxFFFF,sp@- "); /* save all the registers */ 
asmi" moveml a4@,20x4FFF "); /* move 52 bytes */ 
asm(“ moveml #0x4FFF,a5@ “); 

asm(" moveml a4@(52),#0x4FFF "); /* move 52 bytes */ 
asm(™" moveml #0x4FFF,a5@8(52) ™)s 

asm({“ moveml a4@ (104), #0x4FFF "); /* move 52 bytes */ 
asm(* moveml #Ox4FFF,a5@(164) "); 

asm(" moveml a4@ (156), #0x4FFF "); /* move 52 bytes */ 
asm(" moveml #0x4FFF,a58@(156) ™); 

asm(" moveml a4@(208),#0x4FFF "); /* move 52 bytes */ 
asm{" moveml #Ox4FFF,a5@(208) “); 

asm(" moveml a4@(260),#0x4FFF "); /* move 52 bytes */ 
asm(* moveml #0x4FFF,a5@8(260) ™); 

asm{™ moveml a4@(312),#0x4FFF "); /* move 52 bytes */ 
asm(™" moveml #0x4FFF,a5@(312) "); 

asm(*" moveml a4Q@ (364), #0x4FFF "); /* move 52 bytes */ 
asm({" moveml #0x4FFF,a5@(364) "); 

asm(" moveml a4@(416),#0x4FFF "); /* move 52 bytes */ 
asm{" moveml #0x4FFF,a5@(416) "); 

asm(“ moveml a4@(468),#0x4FFF "); /* move 52 bytes */ 
asm(" moveml #Ox4FFF,a5@ (468) "); 

asm(" moveml a4@ (520), #0x4FFF "); /* move 52 bytes */ 
asm(" moveml #O0x4FFF,a5@(520) "); 

asm{™ moveml a4@(572),#0x4FFF "); /* move 52 bytes */ 
asm(™" moveml #0x4FFF,a58(572) ")> 

asm(® moveml a4@ (624) ,#0x4FFF "); #* move 52 bytes */ 
asm(" moveml #0x4FFF,a5@(624) “); 

asm(™" moveml a4 (676), #0x4FFF "); /* move 52 bytes */ 
asm(™ moveml $0x4FFF,a5@(676) "); 

asm(" moveml a4@(728),#0x4FFF "); /* move 52 bytes */ 
asm({" moveml #OxX4FFF,a5@(728) *); 

asm(" moveml a4@(780),#0x7F "); /* move 28 more bytes */ 
asm(" moveml #0x7F,a5@(780) "); 

asm(" movw a4@(808),a5@(808) ™); /* move last 2 bytes */ 


asm(" moveml sp@+,#OxFFFF "); 
#ifdef lint 
if (dest) 
return; 
else if (src) 
return; 
#endif lint 
} 
#endif FAST 


#ifndef FAST 
bmblank (a1) /* blank line dl */ 
register dl; 
{ 
register char *dest; 
register short i; 


dest = bmscrn + (dl * (BPL * V_RESO)); 
i = BPL * V_RESO; 
do { 
*xdest = bmnormal; 
destt+t+; /* 1 scan line */ 
} while (--i != 0); 
} 
#else FAST 
bmblank (dl) /* blank line dl */ 
register dl: 
{ 
register char *dest, *a4; /* NOTUSED */ 
extern long bblank[]; 


dest = bmscrn + (dl * (BPL * V_RESO)); /* register a5 */ 


asm(“ moveml 


#OxFFFF,sp@- "); 


a4 = (char *)bblank; 


asm(" moveml 
asm(" movl 


asm(“ moveml 
asm(" moveml 
asm(" moveml] 
asm(" movem1 
asm(" moveml 
asm(" moveml 
asm(" moveml 
asm(" moveml 
asm(" moveml 
asm(" moveml 
asm(™" moveml 
asm(“ moveml 
asm(™ moveml 
asm(" moveml 
asm(™" moveml 
asm(™ movw 
asm(" moveml 
#ifdef lint 
if (dest) 


return; 


else if (a4) 


return; 


fendif lint 
} 
#fendif FAST 


bmpute {r, c, k) 


a4Q,#0x4FFF "); 
a6,a4 “); 


#0x5FFF,a5@ “); 
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/* save all the registers */ 


/*® set a6,a3-a0,d7-d0 to blanks */ 
/* set a4 to blanks */ 


/* move 56 bytes */ 


#0xSFFF,a5@(56) "); 


#OxSFFF,a5@ (112) 
#0xS5FFF,a5@ (168) 
#0xSFFF,a58 (224) 
#0x5FFF,a5@ (280) 
#0x5FFF, a5@ (336) 
#0x5FFF,a5@ (392) 
#0x5FFF, a5@ (448) 
#0x5FFF,a5@ (504) 
#0x5FFF,a5@ (560) 
#OxS5FFF,a5@(616) 
#0x5FFF,a5@ (672) 
#O0x5FFF,a5@ (728) 


#0x3F,a5@(784) “); 


_bblank, a5@ (808) 
spat+, #OxFFFF "); 


register short r, c; 


char k; 


register char *p = bmscrn; 
register char *f = ébmfont[6]; 
register short i; 


#ifndef NODEBUG 
if (xr <6 {| 


printf ("bmputc(%d, %d, 
return; 


#endif 


p t= (r * (BPL * V_RESO)) + c; 
ft= (k- " 7) << 3; 


i = FONTVERT - 1; 


do { 
*p = *ft++; 
p += BPL; 
} while (--i [= -1); 


*p = bmcolor; 


} 


long bblank [16]; 
int savesp; 


bmclear () 


{ 
int x; 


#ifdef Lint 
savesptt+; 

f#endif 
xX = spl7(); 
asm(" moveml 
asm(" movl 
asm(" moveml 
asm(™ movl 
asm(" addl 


#0xFFFF,sp@- "); 
sp, sSavesp "); 


mM) 

"); 

mis 

"); 

“): 

"); 

"); 

")3 

"); 

"): 

"); 

“): 

/* move another 24 bytes */ 
"); /* move last 2 bytes */ 


/* draw a char at location r, c */ 


ce < 0 i| xr >= MAXROW {|| c >= MAXCOL) { 
‘$c’) is illegal\n",1r,c,k): 


/* bytes in font table for one char */ 


/* 1 scan line == 90 bytes */ 


7* blank row under cursor */ 


_bblank, #0xFFFF "); 


_bmscrn,sp "); 
#32400,sp "); 


asm("1S: moveml #0xFFFE,sp@~ "); 


asm(" moveml 
asm(" moveml 


#0xXFFFE,spa- "); 
#OxFFFE, sp@- "); 


asm(" moveml 
asm("“ moveml 
asm(“ moveml 
asm(™" movemli 
asm(" moveml 
asm(* moveml 
asm(*® moveml 
asm(™" cmpl 
asm(" bne 
asm({™ movl 
asm({" moveml 
Sp1lx(x}i 

} 


#ifndef FAST 
bmrscrl {) 
{ 


#0xFFFE,sp@- ™); 
#0xFFFE,sp@- "); 
#0xFFFE,spf- "); 
#0xFFFE,sp@- "); 
#0xFFFE,sp@- "); 
#0xFFFE,sp@- "); 
#0xFFFE,sp@- "); 
_bmscrn,sp "); 
18"); 
_savesp, sp ™); 
sp@t+, #0xFFFF "); 


register i = 29969; 
register char *dest, *sre; 


dest = bmscrnt+30779; 
src = bmscrn+29969; 


do { 
*dest-- 
} while (--i != 
} 
#else FAST 
/* 


= *src~--; 
-1); 


* move 37 lines of 9 lines of pixels times 90 columns 
* which is 29970 bytes to bmscrnt+29970 from 


* bmscrn+ 307806 


* use all of the registers except a6,a5,d0 and a7 


xf 
bmrscrl () 
{ 

asm(" moveml 
asm(*® movl 
asm(™ movl 
asm(" addl 
asm(" addl 
asm({™ movi 
asm("15: moveml 
asm(™" moveml 
asm{" moveml 
asm(“" moveml 
asm(" moveml 
asm(“ moveml 
asm({™" moveml 
asm({" moveml 
asm(“" moveml 
asm(" moveml 
asm(" moveml 
asm(™" moveml 
asm(* moveml 
asm(" moveml 
asm(“ moveml 
asm(" moveml 
asm(" subw 
asm({" subw 


asm({" dbra 
asm(“" moveml 
asm(" moveml 
asm(“ movw 
asm(" moveml 
} 
#endif FAST 


#0xFFFF,sp@- "); 
_bmscrn,a6 ")?; 
_bmsern,aS “); 
#30732,a5 "); 
#29922,a6 "); 
#77,00 *); 
a6@,#Ox1FFE "); 
#0x1FFE,a5@ "); 
a6@(-48) , #O0x1FFE 
#0x1FFE,a5@ (-48) 
a6@ (-96), #0xX1FFE 
#0x1FFE,a5@(-96) 
a6@(-144) , #0x1FFE 
#Ox1lFFE,a5@(-144) 
aG@ (-192) , 0x1 FFE 
#Ox1FFE, a5@(-192) 
a6@(-240), #0x1FFE 
#0x1FFE, a5@(-240) 
a6@(-288) , 0x1 FFE 
#0x1FFE, aS@ (~288) 
aG6@ (-336), #0x1FFE 
#O0x1FFE,a5@(-336) 
#384,a6 "); 
#384,a5 "); 


d0,1$ "); 
a6@(32),#0x1E "); 
#0x1E,a5@(32) "); 
a6@(30),a5@(30) " 
spQ+, #0xFFFF "); 


; 


f* 
{* 
/* 


/* 


Save all the registers */ 


destination - 48 bytes */ 
source - 48 bytes */ 
77 times -1 */ 


move 16 more bytes) */ 


